禁止别人运行Word程序的VBA代码

禁止别人运行Word程序的VBA代码

单击“工具→宏→宏…”命令，在弹出的对话模型中输入宏名“autoexec”，然后单击“创建”，在代码窗中输入如下内容，即可控制别人运行WORD：

Sub autoexec()
Dim psw As String
psw = inputbox("请输入密码：", "登录？")
If psw = "elong" Then
   Application.ShowMe
  Else
   msgbox "对不起，请您与本机主人联系!"
   Application.Quit
  End If
End Sub


破解办法：
1、禁止自运行宏、
2、或者直接删除normal.dot模板文件即可。

补充：
这个代码也可以用在Excel中，只是函数名换成Auto_Open()即可