【 tulaoshi.com - ASP.NET 】
你是否用过ACCESS数据库？ACCESS有一个实用的功能就是锁住ACCESS应用程序本身。不管用户ACCESS数据库文件是否加密，要打开ACCESS应用程序必须经过身份验证。其实在EXECL中通过VBA编程也可以实现类似的功能。现在和我一起DIY一个吧！
1、 打开EXECL应用程序，点击“工具”—“宏”—“录制宏”。这时会出现一个“录制新宏”的对话框。
2、 点选“录制新宏”对话框中“保存在”下拉列表中的“个人宏工作薄”，点击“确定”按钮。这时会在EXECL表格中出现一个叫“停止”小窗体。
3、 在表格中任意点击一个单元格，然后按“停止”工具栏的“停止”按钮。（以上三步是为了生成一个随EXECL应用程序一起运行的默认EXCEL文件"PERSONAL.XLS"）。
4、 按ALT+F11组合键调出VB编辑器，在“工程资源管理器”中点选“PERSONAL.XLS”
5、 点选工具栏中“插入用户窗体”中的“用户窗体”以插入一个用户窗体。这时VB编辑器中会出现一个名为“USERFORM1”的用户窗体和一个“工具箱”窗体。
6、 点选“USERFORM1”，在属性对话框中的CAPTION属性栏中输入一些文字，如：“EXCEL安全系统—石水创意工作室制作”等。
7、 在“工具箱”中拖入一个“标签”（LABEL1）、一个“文字框”（TEXTBOX1）、一个“命令按钮”（COMMANDBUTTON1）到USERFORM1，并适当调整尺寸及位置。
8、 把LABEL1的“CAPTION”值设为“请输入密码”；TEXTBOX1的“PASSWORDCHAR”值设为“*”，“TABINDEX”值为“0”；COMMANDBUTTON1的“CAPTION”值设为“确定”，“TABINDEX”
值为“1”。（4到8步设定“锁”的外观及触发顺序）
9、 在用户窗体的代码栏中输入以下代码
Dim gg As Boolean
Private Sub CommandButton1_Click()
If TextBox1.Text = "12345" Then
gg = True
ThisWorkbook.Application.Visible = True
Unload Me
Else
gg = False
Unload Me
MsgBox "密码错误，请与机主联系!"
ThisWorkbook.Application.Quit
End If
End Sub
Private Sub UserForm_Activate()
TextBox1.SetFocus
gg = False
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If Not gg Then ThisWorkbook.Application.Quit
End Sub
10、 在“工程资源管理器”中点选“PERSONAL.XLS”，双击其中的“THISWORKBOOK”对象，输入如下代码：
Private Sub Workbook_Open()
Me.Application.Visible = False
UserForm1.Show
End Sub
11、 关闭VB编辑器，点击EXCEL应用程序中的“工具”—“宏”—“安全性”，在“安全性”窗体中的“安全级”中点选“无”。（这一步会有一定的安全隐患，在大部份情况下可以省略。）
12、 存盘退出。
怎么样，很有成就感吧！这只是最简单的，你也可以增加其它功能，如根据不同的用户设定不同的进入密码等。发挥你的想象力，一起DIY吧。希望大家和我联系，我的EMAIL是：GGGGDIU@HOTMAIL.COM.
作者信息
姓名：王泵
地址：江苏省无锡市洛社镇黄傲里27号
邮编：214187
电话：0510-3315660 小灵通：0510-8904226
