Excel VBA で「マクロが実行できる状態」でないとファイルの中身を見れないようにする

やりたいこと

フォームから入力をさせたい等、マクロを実行できる状態でのみ操作を許可したい。

方法

「マクロを有効にしてください」と書いたシートを用意して、他のシートを非表示にする。
ファイルオープン時、ファイル保存時に表示するシートを切り替えるようにする。

コード

ThisWorkbook

'Sheet1：「マクロを有効にしてください」と書いたシート
'Sheet2：何かいろいろするシート
Private Sub Workbook_Open()
    Sheet2.Visible = xlSheetVisible
    Sheet1.Visible = xlSheetVeryHidden
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Sheet1.Visible = xlSheetVisible
    Sheet2.Visible = xlSheetVeryHidden
End Sub

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
    Sheet2.Visible = xlSheetVisible
    Sheet1.Visible = xlSheetVeryHidden
End Sub