VBA_Excel登陆窗体.doc

VBAExcel登陆窗体
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、在用户窗体的代码栏中输入以下代码
DimggAsBoolean
PrivateSubCommandButton1_Click()
IfTextBox1.Text="12345"Thengg=TrueThisWorkbook.Application.Visible=TrueUnloadMeElsegg=FalseUnloadMeMsgBox"密码错误，请与机主联系!"ThisWorkbook.Application.QuitEndIf
EndSub
PrivateSubUserForm_Activate()
TextBox1.SetFocusgg=False
EndSub
PrivateSubUserForm_QueryClose(CancelAsInteger,CloseModeAsInteger)IfNotggThenThisWorkbook.Application.QuitEndSub
10、在“工程资源管理器”中点选“PERSONAL.XLS”，双击其中的“THISWORKBOOK”对象，输入如下代码：
PrivateSubWorkbook_Open()Me.Application.Visible=FalseUserForm1.ShowEndSub
11、关闭VB编辑器，点击EXCEL应用程序中的“工具”—“宏”—“安全性”，在“安全性”窗体中的“安全级”中点选“无”。（这一步会有一定的安全隐患，在大部份情况下可以省略。）12、存盘退出。怎么样，很有成就感吧！这只是最简单的，你也可以增加其它功能，如根据不同的用户设定不同的进入密码等。发挥你的想象力，一起DIY吧。