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

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

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

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

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

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

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

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

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

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

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

---

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

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

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

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

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

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

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

---

附：源代碼文本

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

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

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(" 請(qǐng)輸入進(jìn)入分頁(yè)密碼", "密碼輸入") '——彈出密碼輸入框

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

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

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

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

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

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

End If

End If

End Sub

網(wǎng)友解答:

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