Excel 财务应用制作进入管理界面的口令系统

2022-12-22 03:49:11 文档大全网 [ 字体：小中大 ] [ 阅读： ]

【#文档大全网# 导语】以下是®文档大全网的小编为您整理的《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所示。