怎么设置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

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

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com

怎么设置Excel2003的宏的密码？

相关问答

猜你还关注