怎么设置Excel2003的宏的密码？
发布网友
发布时间：2022-02-21 23:12
共1个回答
热心网友
时间：2022-02-22 00:41
设置属性名称（Name）属性：
用于输入用户名的文本框：txtName
用于输入密码的文本框：txtPassword
确定按钮：btnLogin
退出按钮：btnExit
在窗体模块代码窗口输入：
Option Explicit '本句可有可无
'预存用户名和密码，可以使用其他方式实现
Private Const UserName As String = "UserName"
Private Const PassWord As String = "123456"
Private Sub btnExit_Click()
ThisWorkbook.Close False
End Sub
Private Sub btnLogin_Click()
If txtName.Text = UserName And txtPassword = PassWord Then
MsgBox "用户名或密码错误！请重新输入。"
txtName.SetFocus
Else
Unload Me
End If
End Sub
双击工程管理窗口的 ThisWorkBook 以打开编辑窗口，输入：
Option Explicit
Private Sub Workbook_Open()
frmLogin.Show 1
End Sub
保存后打开即可。不过必须允许运行宏
声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com
E-MAIL:11247931@qq.com