Excel VBA编程  典型实例——设计工资管理系统安全密码
在完成某个项目后，如果不希望其他人打开自己的程序，那么可以为Excel VBA程序添加安全保护。安全保护可分为两种：一是保护文档，保护文档可使用Excel自带的文档加密功能，或者使用代码来控制文档的打开；二是保护程序源代码，在VBE环境中，可通过保护工程来保护源代码不被查看，或者将代码封装到动态链接库（DDL）文件中。下面将练习创建用户登录窗体，通过在窗体中输入安全密码来进入系统。

1．练习要点
● 用户窗体
● 使用控件
● 保护工程
● 代码
2．操作步骤：
（1）打开“员工工资录入.xlsm”工作簿。添加工作表Sheet4，并重命名为“登录”，然后设置工作表的样式，如图20-5所示。
电脑编程工资多少图20-5  添加并设置工作表
提 示
选择工作表中所有单元格，在【开始】选择卡下，单击【字体】组中的“填充颜”按钮，在【主题颜】框中选择一种颜
（3）按Alt+F11进入VBE窗口，然后添加新用户窗体UserForm2。
（4）在UserForm2中，添加一个“标签”控件、一个“文字框”控件和一个“按钮”控件。然后，设置控件的属性，如图20-6所示。
图20-6  添加并设置控件
提 示
设置UserForm2的Caption属性的值为“密码保护”；设置Label1的Caption属性的值为“请输入安全密码”；设置CommandButton1的的Caption属性的值为“确定”；设置TextBox1的PasswordChar属性的值为“*”
（5）双击ThisWorkBook对象，进入ThisWorkBook对象的【代码】编辑窗口。在左上角组合框中，选择WorkBook对象，为其Open事件添加代码，如图20-7所示。
图20-7  输入代码
代码如下：
Private Sub Workbook_Open()
'最大化窗口
Application.WindowState = xlMaximized
'最大化当前工作表
ActiveWindow.WindowState = xlMaximized
'运行后隐藏工作表
Sheet1.Visible = xlSheetHidden
Sheet2.Visible = xlSheetHidden
Sheet3.Visible = xlSheetHidden
'显示用户登录
UserForm2.Show 1
End Sub
（6）双击【确定】按钮，进入【代码】编辑窗体，并实现按钮的Click事件的代码，如图20-8所示。
图20-8  输入代码
代码如下：
'全局变量为用户输入密码的次数
Public flag As Integer
'确定按钮
Private Sub CommandButton1_Click()
flag = flag + 1
If TextBox1.Value = "admin" Then
    Sheet1.Visible = xlSheetVisible
    Sheet2.Visible = xlSheetVisible
    Sheet3.Visible = xlSheetVisible
    Sheet1. Activate
    End
ElseIf flag = 3 Then
    '保存并关闭工作簿
    ThisWorkbook.Close
    ThisWorkbook.Close
End
    Else
        MsgBox "密码有误，请重新输入"
        TextBox1.Text = ""
        TextBox1.SetFocus
    End If
End Sub
（7）在【代码】窗口，为对象“UserForm”的“QueryClose”事件实现代码。
代码如下：
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    ThisWorkbook.Save
    ThisWorkbook.Close  '关闭工作簿
    End
End Sub
（8）执行【工具】｜【属性】命令，打开【工程属性】对话框，在【通过】选项卡的【工程名称】框中输入“工资管理”。如图20-9所示。
图20-9  【工程属性】设置
（9）单击【保护】选择卡，在【锁定工程】框中，启用【查看时锁定工程】复选框。然后在【查看工程属性的密码】框中，输入“密码”和“确认密码”，并单击【确定】按钮，如图20-10所示。
图20-10  设置【保护】内容
（10）保存所更改的操作，并关闭“员工工资录入”工作表。然后重新打开该工作表，程序运行效果如图20-11所示。
图20-11  打开工作簿
（11）输入正确的密码，并单击【确定】按钮后，将关闭【密码保护】对话框，如图20-12
所示。
图20-12  显示工作表
（12）按Alt+F11进入VBE窗口。这时源代码已被保护。双击【工程资源管理器】窗口中的【工资管理】工程，将弹出【工资管理 保护】对话框，如图20-13所示。
图20-13  工程密码保护
（13）在对话框中，输入“密码”，并单击【确定】按钮，就可以浏览源代码了。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。