怎么设置Excel2003的宏的密码？

Question

我想用宏设置Excel的密码，要详细方法，最好配图。
我想弄成的样子：

Answer 1

打开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

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

能再具体点么？最好有图片！我什么都不会

追答

打开VBA编辑器：按 ALT + F11 组合键

Excel 工作簿：http://pan.baidu.com/s/1hqioktQ

 

程序有点问题，将：

 If txtName.Text = UserName And txtPassword = PassWord Then

改成

 If txtName.Text <> UserName Or txtPassword <> PassWord Then

追问

都是怎么弄出来的，我一点都不会，Q我吧详细说，47954402



