網(wǎng)友解答: 謝謝悟空推送回答。【源代碼附后】VBA其實沒有想象的復(fù)雜。希望有更多人關(guān)注交流！一、根據(jù)問題要求設(shè)計的操作流程：第一步，點擊【進入分頁】按鈕→彈出提示輸入密碼框→輸入密碼后確

一、根據(jù)問題要求設(shè)計的操作流程：

第一步，點擊【進入分頁】按鈕→彈出提示輸入密碼框→輸入密碼后確定；

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

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

二、設(shè)計流程：

第一步，設(shè)置命令按鈕：在【主頁】的【h8】單元格中輸入【進入分頁】；

第二步，設(shè)置宏等級，請點擊標(biāo)題《Excel設(shè)置啟用宏方法（宏等級設(shè)置）！ 》，查看設(shè)置，這里不重復(fù)；

第三步，打開Sheet1（代碼）窗口，考錄代碼；（源碼文本附后）

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

查看更多優(yōu)選文章，請分別點擊以下標(biāo)題：

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

2、《Excel高級下拉：箭頭不隱藏，增顯行數(shù) 改字體大小顏色，禁止粘貼 》；

3、《Excel設(shè)置自動合計行數(shù)不確定（即動態(tài)）日記帳的收支方發(fā)生額方法 》；

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

5、《Excel一鍵自動完成多種可選方案，轉(zhuǎn)換運算結(jié)果的方法（免代碼）》。

附：源代碼文本

Private Sub Worksheet_Activate() '——工作表激活事件

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

End Sub

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

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

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

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

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

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

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

Sheets("分頁").Select '——設(shè)置分頁為活動工作表

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

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

End If

End If

End Sub

在workbook_sheetchange事件里面加入vba代碼，首先彈出輸入框讓用戶輸入密碼，然后和預(yù)兆設(shè)置的打開密碼比較，不相同就讓cancel屬性設(shè)置為 true