BeforeClose VBAイベントをキャンセルするときにブックを閉じる

Question

Excelのブックのユーザーが最初のシートを保護せずにブックを閉じるのを防ぐための短いマクロを作成しようとしています。

コードは、メッセージボックスを表示しますが、その後、ブックを閉じます。私の理解から、 "キャンセル"パラメータがTrueに設定されている場合は、ブックを閉じてはいけません。

Private Sub Workbook_BeforeClose(Cancel As Boolean) 

    If Sheets(1).ProtectContents = True Then 
     Cancel = False 
    Else 
     MsgBox "Please Protect 'Unique Futures' Worksheet Before Closing Workbook" 
     Cancel = True 
    End If  
End Sub 

メッセージボックスを表示し、最初のシートが保護されていない場合は閉じないようにするコードが必要です。

Answer 1

Application.EnableEventsをFalseに設定すると、それを複製することができます。下の例では、私はそれが後に置かれるように状態を記憶していましたが、どのようにそれが最初にFalseの状態になるのか分かりません。

Private Sub Workbook_BeforeClose(Cancel As Boolean) 
    Dim BlnEventState as Boolean 

    BlnEventState = Application.EnableEvents 
    Application.EnableEvents = True 

    If Sheets(1).ProtectContents = True Then 
     Cancel = False 
    Else 
     MsgBox "Please Protect 'Unique Futures' Worksheet Before Closing Workbook" 
     Cancel = True 
    End If 

    Application.EnableEvents = BlnEventState 

End Sub 

状態を強制的に戻すより安全な長期的なオプションがあります。

Private Sub Workbook_BeforeClose(Cancel As Boolean) 
    Application.EnableEvents = True 
    If Sheets(1).ProtectContents = True Then 
     Cancel = False 
    Else 
     MsgBox "Please Protect 'Unique Futures' Worksheet Before Closing Workbook" 
     Cancel = True 
    End If  
End Sub