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

網(wǎng)友解答: 謝謝悟空推送回答?！驹创a附后】VBA其實(shí)沒有想象的復(fù)雜。希望有更多人關(guān)注交流！

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

第一步，點(diǎn)擊【進(jìn)入分頁】按鈕→彈出提示輸入密碼框→輸入密碼后確定；

第二步，判斷密碼是否正確：錯(cuò)誤時(shí)，彈出提示窗口；

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

二、設(shè)計(jì)流程：

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

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

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

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

---

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

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

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

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

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

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

謝謝您的閱讀！我是#Excel財(cái)務(wù)VBA#，懂會(huì)計(jì)的程序員，Excel&VBA精通。上面回答如果對您有幫助，或有不清楚的問題，或需要更多自動(dòng)化財(cái)務(wù)表單模板下載，或了解更多實(shí)戰(zhàn)技巧分享。請記得點(diǎn)"關(guān)注"我的酷米號(hào)“Excel財(cái)務(wù)VBA”哦！也可私信

---

附：源代碼文本

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

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

End Sub

---

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

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

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

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

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

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

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

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

Else '——如果密碼錯(cuò)誤，則提示出錯(cuò)

MsgBox "密碼錯(cuò)誤！", , "友情提示" '——提示密碼出錯(cuò)

End If

End If

End Sub

網(wǎng)友解答:

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