В нашей сети более 10 компьютеров, и каждый компьютер открывает файл без проблем. Даже этот компьютер, на котором он автоматически закрывался при открытии, работал без проблем до сегодняшнего утра. Я создал копию файла, чтобы увидеть, был ли он поврежден, но когда копия открывается, происходит то же самое. Кто-нибудь есть идеи, почему это может начаться, я не вижу никаких проблем с кодом. Компьютеры работают на Windows 10 Pro. Вот код, который запускается при открытии, предполагается, что он только закрывает книгу 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
Он не просит восстановить что-либо, просто предлагает сохранить прямо при открытии, и если выбрано Сохранить или Не сохранять, то оно закрывается, только при нажатии кнопки отмены оно остается открытым.