' [054.xls]



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

Option Explicit

Private Sub Worksheet_Activate()
Dim パスワード As Integer

    '一旦 Excel の表示を消します
    Application.Visible = False
    
    'エラーが起きても気にしない(エラー制御を無効にする)
    On Error Resume Next
    
    'おまじないが合った時だけ 秘密のページをアクティブに出来ます
    パスワード = Application.InputBox("パスワードをどうぞ", "秘密のページへ入るにはパスワードが必要です")
        
        If パスワード = 777 Then
            Application.Visible = True
            On Error GoTo 0
            Exit Sub
        End If
    
    'エラー制御が無効になっているのを解除
    On Error GoTo 0
    
    '[OK] ボタンと警告メッセージ アイコンを表示します
    MsgBox "パスワードが違います", 17, "秘密のぺーじには入れません"
    Sheets("Title").Select
    Application.Visible = True

End Sub