VBA код в Workbook_BeforeClose работает, но не имеет никакого эффекта

Question

У меня есть следующий код в Excel 2010 книги:

Private Sub Workbook_BeforeClose(Cancel As Boolean) 

    Dim FileName As String 

    FileName = ActiveWorkbook.Name 

    If FileName = "False" Then Exit Sub 

    If FileName <> "Shipping Manifest SaveAS Update.xlsm" Then 
     Application.DisplayAlerts = False 
     ActiveWorkbook.SaveAs FileName:=FileName, FileFormat:=xlOpenXMLWorkbookMacroEnabled, WriteResPassword:="abc123", ReadOnlyRecommended:=True 
     Application.DisplayAlerts = True 
    End If 

End Sub 

код выполняется, если вставить контрольную точку и запустить его линия за линией, но когда я повторно открыть книгу, он не запрашивает пароль «abc123» для открытия не в режиме «Только для чтения» - он просто открывается. Что я делаю не так? Я уверен, что макросы включены.

Answer 1

Вы подавили оповещения с Application.DisplayAlerts = False. Удалите эту строку, и вы увидите, в чем проблема.

Когда предупреждения отключены, Excel использует параметр по умолчанию. В этом случае вы будете предупреждены, что файл уже существует, и Excel хочет, чтобы вы подтвердили, что это нормально, чтобы перезаписать. Параметр по умолчанию для этого «Да/Нет/Отмена» - «Нет», поэтому может показаться, что файл фактически не сохраняется.

Другая потенциальная проблема заключается в том, что вы можете ввести в заблуждение ThisWorkbook и ActiveWorkbook. Событие _BeforeClose будет запускаться только из книги, в которой он находится, поэтому нет причин делать какие-либо проверки имени, предполагая, что вы всегда хотите сохранить книгу, в которой находится этот код, когда вы ее закрываете.

Вместо этого попробуйте:

Private Sub Workbook_BeforeClose(Cancel As Boolean) 
    With ThisWorkbook 
     .WritePassword = "abc123" 
     .ReadOnlyRecommended = True 
     .Save 
    End With 
End Sub 

выше предположение не может иметь место, если рабочая книга закрывается программно, в этом случае вы может необходимо проводить различие между ThisWorkbook и ActiveWorkbook, но это трудно себе представить, почему при закрытии этой книги вы хотите сохранить другую (активную) книгу.

Кроме того, в комментарии Гэри выше (и я протестировал это), если вы не предоставляете полный путь, файл будет сохранен в папке «Документы» (по крайней мере, для меня в Excel 2013).

Вам может понадобиться сделать:

ActiveWorkbook.SaveAs FileName:=ActiveWorkbook.FullName, FileFormat:=xlOpenXMLWorkbookMacroEnabled, WriteResPassword:="abc123", ReadOnlyRecommended:=True 

В своем коде, как:

Private Sub Workbook_BeforeClose(Cancel As Boolean) 

    If ActiveWorkbook.Name <> "Shipping Manifest SaveAS Update.xlsm" Then 
     Application.DisplayAlerts = False 
     ActiveWorkbook.SaveAs FileName:=ActiveWorkbook.FullName, FileFormat:=xlOpenXMLWorkbookMacroEnabled, WriteResPassword:="abc123", ReadOnlyRecommended:=True 
     Application.DisplayAlerts = True 
    End If 

End Sub 

Answer 2

я удалил "отменить, как логическое" и она работала отлично

Private Sub Workbook_BeforeClose() 
Dim FileName As String 



FileName = ActiveWorkbook.Name 

If FileName = "False" Then Exit Sub 


If FileName <> "Shipping Manifest SaveAS Update.xlsm" Then 
    Application.DisplayAlerts = False 
    ActiveWorkbook.SaveAs FileName:=FileName, FileFormat:=xlOpenXMLWorkbookMacroEnabled, WriteResPassword:="abc123", ReadOnlyRecommended:=True 
    Application.DisplayAlerts = True 
End If 

End Sub