ExcelでBeforeSaveが機能しない

ExcelでBeforeSaveを使用してvbaスクリプトを実行する際に問題が発生しています。
このスクリプトを実行していますが、問題またはMsgboxなしでファイルを保存できます。ExcelでBeforeSaveが機能しない

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 
a = MsgBox("Do you really want to save the workbook?", vbYesNo) 
If a = vbNo Then Cancel = True 
End Sub

何が問題ですか？保存するためにキャンセルできるMsgboxが表示されます。

出典

2017-09-08 Joe C

イベントは有効になっていますか？ – CLR

イベントが発生しないようにするコードはありません。 –

私はExcelを再起動して今すぐ動作します。 :) –

[ファイル]> [オプション]> [セキュリティセンター]> [セキュリティセンター設定]> [マクロ設定]で、セキュリティセンターの設定を確認します。「すべてを有効にする」と

を発生し、また、何を参照するには、次のラジオボタンをチェックし、あなたのファイルが

出典

2017-09-08 09:51:14 ExcelinEfendisi

すでに「すべて有効」に設定されています。延長はxlsmです。 –

まあ、それは私のために働く。コードに問題はないようです。他に何かがあるはずです。あなたはまた、イミディエイトウィンドウに "？application.EnableEvents"を書くことでイベントのステータスを確認することができます – ExcelinEfendisi

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)は、VBAプロジェクトにThisWorkbook内でなければなりませんXLSBまたはXLSMの拡張子を持っている必要があります。

出典

2017-09-08 10:16:18 Dominik

はいThisWorkbookの中にあります –

これは役立ちます：[Stack Overflow]（https://stackoverflow.com/questions/26296597/how-to -enable-events-so-workbook-beforesave-gets-called） – Dominik

それは役に立たなかった。私は投稿のすべてのものを試しましたが、私はまだMsgBoxなしで文書を保存することができます –

ExcelでBeforeSaveが機能しない

答えて

関連する問題