用自动宏保护Word文档
?牐犑紫纫龅墓ぷ骶褪谴蚩猈ord，单击“工具”菜单，选择“宏→宏...”。在弹出的对话框中输入宏名“autoexec”，单击“创建”。
#1 一、界面设计
?牐?1.单击“插入”菜单，选择“添加用户窗体”。
?牐?2.单击“工具箱”（若没有工具箱，可单击菜单“视图”选择“工具箱”）中的“标签（Label）”按钮，将鼠标移到窗体上，这时鼠标会变成十字形且有大写字母“A”跟随。在窗体上拖动鼠标，画出一个大小适当的标签，再用相同的方法在窗体上添加一个文本框（TextBox）和两个命令按钮（CommandButton）。
#1 二、属性设置
?牐牭セ鞔疤錟serForm1，在“属性”窗口中选择Caption属性（若没有“属性”窗口，可单击菜单“视图”选择“属性窗口”），将其值改为“密码”，再用同样的方法将标签1（Label1）的Caption属性设为“请输入密码：”，将文本框1（TextBox1）的Caption属性设为空，Passwordchar属性设为“*”。然后，将命令按钮1（CommandButton1）的Caption属性设为“确定”，将命令按钮2（CommandButton2）的Caption属性设为“取消” （如^06080504a^，是设置好属性之后的窗体）。
#1 三、代码编辑
?牐?1.展开“工程”窗口中的文件夹“模块”（若没有“工程”窗口，可单击菜单“视图”选择“工程资源管理器”），双击“NewMacors”输入以下代码（注意：粗体为VBA自动添加的代码，单引号后的内容为注释，可以不添加到代码中，下同）：
?牐燬ub autoexec（）
?牐燯serForm1.show ＇显示窗体1
?牐燛nd Sub
?牐?2.双击“确定”按钮，输入以下代码：
?牐燩rivate Sub CommandButton1_Click（）
?牐牐А叭范ā卑磁サ牡セ魇录?
?牐營f TextBox1.Text=“abc” Then
?牐牐?如果密码输入的密码为abc
?牐燯nload Me ＇卸载本窗体
?牐燛lse
?牐燤sgBox “密码错误，请重新输入密码。”，vbCritical ＇显示错误消息
?牐燛nd If
?牐燛nd Sub
?牐?3.双击“取消”按钮，输入以下代码：
?牐燩rivate Sub CommandButton2_Click（）
?牐牐А叭∠卑磁サ牡セ魇录?
?牐燗pplication.Quit ＇退出Word
?牐燛nd Sub
?牐?4.双击窗体，单击代码编辑窗口右连的下拉框选择QueryClose输入如下代码：
?牐燩rivate Sub UserForm_QueryClose（Cancel As Integer，CloseMode As Integer）
?牐牐Т疤宓男对厥录?
?牐燙ancel=True
?牐營f TextBox1.Text=“abc” Then
?牐燙ancel = False
?牐牐?如果密码不是abc就不能卸载窗体（防止他人直接单击“关闭”按钮关闭窗体）
?牐燛nd If
?牐燛nd Sub
?牐犝庋看未蚩猈ord时，密码窗口便会自动弹出，不输入正确密码，你休想进入Word。万一把密码给忘了，用“Ctrl+Pause”可以起到强行中止的作用（放心，一般人不会知道这个秘密）。如果你还有什么不明白的地方请写信到tlxlif@163.net与我联系。