lnxxnchzyl 发表于 2009-10-19 09:53:41

禁止别人运行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()即可
页: [1]
查看完整版本: 禁止别人运行Word程序的VBA代码