《VBA Excel登陆窗体.doc》由会员分享，可在线阅读，更多相关《VBA Excel登陆窗体.doc（2页珍藏版）》请在三一文库上搜索。
1、VBA Excel登陆窗体1、 打开EXECL应用程序，点击“工具”“宏”“录制宏”。这时会出现一个“录制新宏”的对话框。2、 点选“录制新宏”对话框中“保存在”下拉列表中的“个人宏工作薄”，点击“确定”按钮。这时会在EXECL表格中出现一个叫“停止”小窗体。3、 在表格中任意点击一个单元格，然后按“停止”工具栏的“停止”按钮。（以上三步是为了生成一个随EXECL应用程序一起运行的默认EXCEL文件PERSONAL.XLS）。4、 按ALT+F11组合键调出VB编辑器，在“工程资源管理器”中点选“PERSONAL.XLS”5、 点选工具栏中“插入用户窗体”中的“用户窗体”以插入一个用户窗体。这
2、时VB编辑器中会出现一个名为“USERFORM1”的用户窗体和一个“工具箱”窗体。6、 点选“USERFORM1”，在属性对话框中的CAPTION属性栏中输入一些文字，如：“EXCEL安全系统石水创意工作室制作”等。7、 在“工具箱”中拖入一个“标签”（LABEL1）、一个“文字框”（TEXTBOX1）、一个“命令按钮”（COMMANDBUTTON1）到USERFORM1，并适当调整尺寸及位置。8、 把LABEL1的“CAPTION”值设为“请输入密码”；TEXTBOX1的“PASSWORDCHAR”值设为“*”，“TABINDEX”值为“0”；COMMANDBUTTON1的“CAPTION”
3、值设为“确定”，“TABINDEX”值为“1”。（4到8步设定“锁”的外观及触发顺序）9、 在用户窗体的代码栏中输入以下代码 Dim gg As BooleanPrivate Sub CommandButton1_Click()If TextBox1.Text = 12345 Thengg = TrueThisWorkbook.Application.Visible = TrueUnload MeElsegg = FalseUnload MeMsgBox 密码错误，请与机主联系!ThisWorkbook.Application.QuitEnd IfEnd SubPrivate Sub User
4、Form_Activate()TextBox1.SetFocusgg = FalseEnd SubPrivate Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)If Not gg Then ThisWorkbook.Application.QuitEnd Sub10、 在“工程资源管理器”中点选“PERSONAL.XLS”，双击其中的“THISWORKBOOK”对象，输入如下代码：Private Sub Workbook_Open()Me.Application.Visible = FalseUserForm1.ShowEnd Sub11、 关闭VB编辑器，点击EXCEL应用程序中的“工具”“宏”“安全性”，在“安全性”窗体中的“安全级”中点选“无”。（这一步会有一定的安全隐患，在大部份情况下可以省略。）12、 存盘退出。 怎么样，很有成就感吧！这只是最简单的，你也可以增加其它功能，如根据不同的用户设定不同的进入密码等。发挥你的想象力，一起DIY吧。