輸入密碼才可見指定工作表

問題：Sheet3隻有輸入密碼才能進入。

檢視Sheet3的代碼：

Sub Sh()
Dim MyPw  As String
MyPw = InputBox( "請輸入密碼" ,  "密碼" )
If MyPw =  "aaa" Then
    Sheets( "sheet3" ).Visible = 1
    Sheets( "sheet3" ). Select
Else
    MsgBox  "密碼錯誤"
End If
End Sub      

可以在Sheet1添加按鈕指定該宏。　　

隐藏Sheet3的代碼：

Sub Hdd()
Sheets( "sheet1" ). Select
Sheets( "sheet3" ).Visible = 2
End Sub      

可以在Sheet3添加按鈕指定該宏。

最後為代碼設定保護密碼：VBE》【工具】》【VBAProject屬性】》【保護】》勾選【檢視時鎖定工程】》設定密碼》【确定】

​​點我下載下傳示例檔案​​