在workbook_sheetchange事件裡面加入vba程式碼，首先彈出輸入框讓使用者輸入密碼，然後和預兆設定的開啟密碼比較，不相同就讓cancel屬性設定為 true

第二步，判斷密碼是否正確：錯誤時，彈出提示視窗；

第三步，密碼正確時，顯示隱藏的工作表【分頁】；

二、設計流程：

第三步，開啟Sheet1（程式碼）視窗，考錄程式碼；（原始碼文字附後）

第四步，將工作簿另存為啟用宏的型別（*.xlsm）。

1、《Word如何將合同編號自動同步到頁碼中，使每頁都有唯一的標識號？》；

2、《Excel高階下拉：箭頭不隱藏，增顯行數 改字型大小顏色，禁止貼上 》；

3、《Excel設定自動合計行數不確定（即動態）日記帳的收支方發生額方法 》；

4、《Excel設定在輸入名稱時自動生成特定格式的唯一編號方便查詢 》；

5、《Excel一鍵自動完成多種可選方案，轉換運算結果的方法（免程式碼）》。

Private Sub Worksheet_Activate() "——工作表啟用事件

Sheets("分頁").Visible = 0 "——返回主頁後自動隱藏分頁

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range) "——工作表單擊單元格事件

If Target.Address = "$H$8" Then "——指定單擊h8時執行令

Target.Offset(0, 1).Select "——單擊h8後取消其為活動單元格

mima = InputBox(" 請輸入進入分頁密碼", "密碼輸入") "——彈出密碼輸入框

If mima = "" Then Exit Sub "——如果選擇取消，則終止程式執行

If mima = "123" Then "——如果密碼正確，則顯示分頁

Sheets("分頁").Visible = -1 "——顯示分頁工作表

Sheets("分頁").Select "——設定分頁為活動工作表

Else "——如果密碼錯誤，則提示出錯

MsgBox "密碼錯誤！", , "友情提示" "——提示密碼出錯

End If

End If

End Sub