【#第一文档网# 导语】以下是®第一文档网的小编为您整理的《Excel 财务应用 制作进入管理界面的口令系统》，欢迎阅读！
Excel 财务应用 制作进入管理界面的口令系统 在员工档案表单中，用户需要输入用户名和密码才能进入工作表界面。本节学习使用INPUTBOX函数制作一个对话框来实现口令系统的建立，当需要进入界面时则必须输入用户名和口令（密码），如果口令出错则弹出系统提示对话框，提示用户口令出错无权进入系统。 1．创建口令 选择VB窗口左侧的【工程管理器】窗口中的【Microsoft Excel对象】列表下的ThisWorkBook项，则切换至代码编辑窗口中，输入代码即可，如图6-115所示。 输入口令代码 图6-115 输入口令代码 其代码如下： Sub kouling() Dim message, title, default, value message = "请输入用户名" title = "用户名" default = "小杰" value = InputBox(message, title, default) pass = InputBox("请输入密码", "密码") If pass = "123" Then Sheets("员工基本档案信息").Select Management.Show Else MsgBox ("密码不正确,无权进入系统") ThisWorkbook.Save ThisWorkbook.Close End If End Sub 当用户在启动此工作簿时，该定义的函数并不会自动调出，所以用户可以在代码窗口中，设置【对象】为WorkBook，【过程】为Open。然后在窗口中的Private Sub Workbook Open()和Sub之前输入代码，如图6-116所示。 输入代码 图6-116 输入代码 其代码如下： Private Sub Workbook_Open() Sheets("sheet2").Select Call kouling End Sub 2．隐藏工作表标签、行与列 隐藏和显示行、列是针对工作表中的部分数据而言。对于不需要显示的单元格区域，可以将其进行隐藏。如果工作簿中只有一个工作表，用户可以隐藏工作表标签，以方便该工作表操作。 （1）隐藏工作表标签 在【Excel选项】对话框中，选择【高级】选项卡，并在【此工作簿的显示选项】栏中，禁用【显示工作表标签】复选框，如图6-117所示。单击【确定】按钮，即可隐藏工作表中的工作表标签，效果如图6-118所示。 禁用 选择 、 图6-117 禁用复选框 图6-118 隐藏工作表标签 （2）隐藏行和列 在【名称框】中输入I1:XFD1048576单元格区域，即可选择该单元格区域。然后单击【单元格】组中的【格式】下拉按钮，执行【隐藏和取消隐藏】|【隐藏列】命令，如图6-119所示。其隐藏效果如图6-120所示。 输入 隐藏 执行 图6-119 执行【隐藏列】命令 图6-120 隐藏列效果 然后在名称框中，输入A30:XFD1048576单元格区域，即可选择从第31行到1048576行的所有单元格区域。然后单击【格式】下拉按钮，执行【隐藏和取消隐藏】|【隐藏行】命令，即可隐藏所选区域，效果如图6-121所示。 本文来源：https://www.dywdw.cn/4f4a0c50a8114431b90dd894.html
下载此文档
搜索文档
阅读：
文档下载
2022-12-22
