' [055.xls]

' [ThisWorkbook] のコード
Option Explicit


Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    
    'xlVeryHiddenを指定するとマクロで
    'True を指定しない限り再表示されません
    Worksheets("秘密").Visible = xlVeryHidden

End Sub


' [Module1] のコード
'★★☆　非表示シートの再表示をパスワードで保護する　☆★★

Option Explicit

Sub start()
Dim パスワード As Integer

   'エラーが起きても気にしない(エラー制御を無効にする)
   On Error Resume Next
   
   '指定したパスワードに合った時だけ秘密のシートを表示します
   パスワード = InputBox("パスワードをどうぞ", "秘密のページへ入るにはパスワードが必要です")
   
   If パスワード = 777 Then
       
       'イベントの発生を制御します
       Application.EnableEvents = False
       
       '秘密シートを表示します
       Worksheets("秘密").Visible = True
       Worksheets("秘密").Select
       
       'イベントの発生の制御を解除します
       Application.EnableEvents = True
       
       'エラー制御が無効になっているのを解除
       On Error GoTo 0
       
       Exit Sub
   End If
   
       On Error GoTo 0
       MsgBox "パスワードが違います", 17, "秘密のぺーじには入れません"
       Sheets("Title").Select

End Sub