作者:乔山办公网日期:
返回目录:excel表格制作
在Excel传播过程中又各种类型表格的操作权限设置,今天就教大家一个更高逼格的打开EXCEL的方法,就是用VBA来设置一个登录窗口,必须输入登录账号密码才能登录。
首先我们要打开开发工具→Visual Basic
然后插入窗体
Caption位置这是窗体名称,我设置为登录窗。
新建两个输入框,用来输入账号密码的。
新建登录按钮和取消按钮,并修改Caption名称
新建两个文本说明,修改caption名称为账号和密码。
双击登录按钮进入代码页面。
箭头位置名称需要对应,否则无法运行
下边是“登录按钮”代码。
Private Sub CommandButton1_Click()If TextBox1.Text <> "admin" Then '判断用户名的 如果要修改账号请替换admin内容MsgBox "用户登录名错误,无法登录!" '错误提示ElseIf TextBox2.Text <> "123456" Then '判断密码是否错误 如果要修改密码请替换123456的内容MsgBox "密码输入错误,请重新输入!" '错误提示ElseMsgBox "登录成功!" '登录成功提示Unload Me '登录成功后关闭窗体End IfEnd Sub
切换至取消按钮设置代码
“取消按钮”输入以下代码
Private Sub CommandButton2_Click()Unload Me '卸载窗体ThisWorkbook.Close '关闭工作簿End Sub
然后按下ALT+F11回到Excel表即可。
保存的时候选择启用宏的工作薄。
注意:如果对方使用的是WPS或者其它没有默认加载VBA的excel,登录窗口将会失效,请悉知。