クライアントにExcelマクロを有効にするように強制する

Excelでマクロを使用するには、ユーザーはマクロを有効にする必要があります。つまり、環境でマクロを実行するためのアクセス許可をExcelに付与する必要があります。マクロを有効にするには、ユーザーは数式バーの上にポップアップ表示されるセキュリティ警告の[コンテンツを有効にする]ボタンをクリックします。

肝心なのは、世界中のすべての派手なマクロを書くことができるということですが、ユーザーがマクロを有効にしない限り、それらは実行されません。これは疑問を投げかけます。ユーザーにマクロを有効にするように強制できますか？答えはイエスです–少し注意が必要です。

アイデアは比較的単純です。たとえば、STARTという名前のシートを作成します。このシートには、マクロを有効にする必要があることを示す簡単な警告のみが含まれています。次に、そのSTARTシートを除く、ブック内のすべてのシートを非表示にします。最後に、ブックを開いたときにすべてのシートを再表示する単純なマクロを記述します。

この時点で、ブックを開くと、Excelはユーザーにマクロを有効にするように求めます。表示されるのはスタートシートだけなので、ユーザーはそうすることを余儀なくされます。他のシートは非表示になります！

この手法を機能させるには、2つのマクロが必要です。1つのマクロは、ブックが閉じたときにSTARTシート以外のすべてを非表示にし、もう1つのマクロはブックが開いたときにSTARTシート以外のすべてを再表示します。

まず、ブックが閉じたときに発生する必要のあるアクションに取り組みます。：

キーボードのALT + F11を押して、Visual BasicEditorをアクティブにします

[プロジェクト]ウィンドウで、プロジェクト/ワークブックの名前を見つけ、その横にあるプラス記号をクリックして、すべてのシートを表示します。

ThisWorkbookをクリックします。

[イベント]ドロップダウンボックスで、BeforeCloseイベントを選択します。

次のコードを入力または貼り付けます。

Private Sub Workbook_BeforeClose（Cancel As Boolean）
'ステップ1：変数を宣言する
  ワークシートとして薄暗い
'ステップ2：開始シートを再表示する
  Sheets（ "START"）。Visible = xlSheetVisible
'ステップ3：すべてのワークシートのループを開始します
  ThisWorkbook.Worksheetsの各wsについて
'ステップ4：各ワークシート名を確認する
  if ws.Name <> "START" Then
'ステップ5：シートを非表示にする
  ws.Visible = xlVeryHidden
  終了する場合
'ステップ6：次のワークシートにループする
  次のws
'ステップ7：ブックを保存する
  ActiveWorkbook.Save
エンドサブ

プライベートサブWorkbook_Open（）
'ステップ1：変数を宣言する
  ワークシートとして薄暗い
'ステップ2：すべてのワークシートのループを開始します
  ThisWorkbook.Worksheetsの各wsについて
'ステップ3：すべてのワークシートを再表示する
  ws.Visible = xlSheetVisible
'ステップ4：次のワークシートにループする
  次のws
'ステップ5：スタートシートを非表示にする
  Sheets（ "START"）。Visible = xlVeryHidden
エンドサブ