怎么设置Excel2003的宏的密码？

发布网友发布时间：2022-02-21 23:12

共1个回答

热心网友时间：2022-02-22 00:41

打开VBA编辑器，插入用户窗体，设计好界面后，输入代码：
设置属性名称（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

保存后打开即可。不过必须允许运行宏