excelのクローズ[x]ボタン

Question

excelのclose [x]機能を無効にするこのコードがあります。完了IDの入力後、もう一度ボタンを有効にする必要があります。

私は再び閉じる[x]機能を有効にする方法を、私はこれを持ってworkbookモジュールの[x]は、

Public FlagToClose As Boolean 
Sub Enter_1() 
    FlagToClose = False 

    'code 
    '..................... 

    FlagToClose = True 
End Sub 

、

Private Sub Workbook_Open() 
    FlagToClose = True 
End Sub 

Private Sub Workbook_BeforeClose(Cancel As Boolean) 
    If Not FlagToClose Then Cancel = True 
End Sub 

を無効にするには、この部分を持っていますか？

Answer 1

は、閉鎖を再度有効に閉じる前に、この短いマクロを実行するには、次のようである

Sub ev_off() 
    Application.EnableEvents = False 
End Sub