Question

我们的网络上有10多台计算机，每个人的计算机都可以正常打开文件。即使是一台自动打开的计算机，直到今天早上也能正常工作。我创建了该文件的副本，以查看它是否是已损坏的文件，但是当打开该副本时，也会发生同样的事情。有谁知道为什么会开始这种情况，我看不到代码有任何问题。这些计算机在Windows 10专业版上运行。这是在打开状态下运行的代码，只应关闭工作簿x，但也要从今天开始在他的计算机上也关闭y。

Private Sub Workbook_Open()
Dim x As Workbook
Dim y As Workbook
Dim z As Integer
Set x = Workbooks.Open(Filename:="*FilePath*", ReadOnly:=True)
Set y = Workbooks("MonthlyLog")
x.Sheets("Distribution Lists").Range("A2:F1200").Copy
y.Sheets("Distribution Lists").Range("A124:F1322").PasteSpecial
Application.CutCopyMode = False
x.Close
If month(Now) = 1 Then
    z = 12
Else
    z = month(Now) - 1
End If
Sheets(MonthName(z)).Activate

Application.Calculation = xlManual

End Sub

它不要求修复任何东西，只是在打开时提示立即保存，并且如果选择了“保存”或“不保存”，则它会关闭，只有单击“取消”时它才会保持打开状态。

Answer 1

此问题已通过在安全模式下打开文件并保存来解决。

知道为什么XLSM File仅在网络上的一台计算机上打开时自动关闭吗？

1 个答案: