ExcelのVBAコードについて教えてください。

マクロ設定ブックに
シート名「受付」「青紙表」「1」と「審査」があります。
作業の流れで、シート名「1」を表示して、作業を行う必要がありますが
度々失念してしまう事があり、マクロ等を設定し、この失念を防止したいと考えております。
私の希望ですが、
シート名「1」を1回でも表示しないと、シート名「審査」のシートに移動できないように設定できるマクロを教えてください。
その時にメッセージボックスが表示され、（シート「1」の作業が完了しておりません。作業を完了してください。）と表示出来る方法もお願いいたします。
又、このVBAコードをどこのシートに設定又はThisWorkbook
を含めて親切にコード共教えください。
宜しくお願い致します。

質問者からの補足コメント

• 

  回答ありがとうございます。
  貴者の提案でお願いいたします。
  宜しくお願い致します。

  No.1の回答に寄せられた補足コメントです。 補足日時：2024/10/23 16:06

No.2 ベストアンサー 回答者： tatsumaru77 回答日時： 2024/10/23 16:16

以下のようにしてください。

１．標準モジュールに、以下の行を登録。（共通変数の登録）

Public sheet1_flag As Boolean


２．Thisworkbook（ブックモジュール）に以下のマクロを登録。

Private Sub Workbook_Open()
sheet1_flag = False
If ActiveSheet.Name = "審査" Then
Worksheets("1").Activate
End If
End Sub


３．シート「審査」のシートモジュールに以下のマクロを登録。

Private Sub Worksheet_Activate()
If sheet1_flag = False Then
MsgBox ("シート「1」の作業が完了しておりません。作業を完了してください。")
Worksheets("1").Activate
End If
End Sub


４．シート「1」のシートモジュールに以下のマクロを登録。

Private Sub Worksheet_Activate()
sheet1_flag = True
End Sub


以上で完了です。

この回答へのお礼

ありがとうございます。
詳しいコード共親切に教えて頂けて、感謝いたします。
早速、設定させていただきます。

お礼日時：2024/10/23 17:26

No.1 回答者： tatsumaru77 回答日時： 2024/10/23 16:01

＞シート名「1」を1回でも表示しないと、シート名「審査」のシートに移動できないように設定できるマクロを教えてください。

１．審査のシートタブをクリックしたとき、審査のシートに移動できないようにすることはできないので、（審査シートをクリックする前のシートに戻れないので）
①シート名「1」を1回でも表示していない場合、
エラーメッセージ（提示されたメッセージ）を表示して、
シート「１」に移動する。
②シート名「1」を1回でも表示していれば、シート「審査」移動する。

２．シート「審査」を表示した状態で、そのブックを閉じると、次回、そのブックをオープンしたとき、シート「審査」が、表示されます。
この場合は、シート「１」に移動するようにしますが、宜しいでしょうか。

上記の１，２のようになりますが良いでしょうか。それでよければ可能です。