在excel表格里，怎么制作需要密码才能打开下一个表格的VBA命令按钮？

网友解答: 谢谢悟空推送回答。【源代码附后】VBA其实没有想象的复杂。希望有更多人关注交流！一、根据问题要求设计的操作流程：第一步，点击【进入分页】按钮→弹出提示输入密码框→输入密码后确

一、根据问题要求设计的操作流程：

第一步，点击【进入分页】按钮→弹出提示输入密码框→输入密码后确定；

第二步，判断密码是否正确：错误时，弹出提示窗口；

第三步，密码正确时，显示隐藏的工作表【分页】；

二、设计流程：

第一步，设置命令按钮：在【主页】的【h8】单元格中输入【进入分页】；

第二步，设置宏等级，请点击标题《Excel设置启用宏方法（宏等级设置）！ 》，查看设置，这里不重复；

第三步，打开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

在workbook_sheetchange事件里面加入vba代码，首先弹出输入框让用户输入密码，然后和预兆设置的打开密码比较，不相同就让cancel属性设置为 true