[求助]如何让所有新建文档都自入默认密码

luo159

我想让随时新建文件（不管以何种方式建立）都用我的默认密码为文档加密，不要每一个文件都手工加密，请问有办法实现吗？

守柔

最简单地应该是在NORMAL.dot中设置一个打开密码即可了。

退出WORD，找到Normal.dot，右击，打开，然后设置密码后保存即可。

通常在：“C:\Documents and Settings\用户名\Application Data\Microsoft\Templates\Normal.dot”

luo159

谢谢版主。

这种方式是让本机开启时全都加密，但别人COPY走后就不用密码了。

[此贴子已经被作者于2006-12-11 16:54:05编辑过]

andysky

我来提供一解：
思路：利用WORD的自动宏，在新建文件时对文件进行加密。
相关知识：
1、Autoexec宏，它是在启动Word时自动运行。如果以“/m”参数启动Word，则必须另加上“/mautoexec”参数，Autoexec宏才被执行。
2、Autoexit宏,它是在退出Word时自动运行。
3、Autonew宏,它是在新建文档时自动运行。
4、Autoopen宏，它是在打开文档时自动运行。
5、Autoclose宏,它是在关闭文档时自动运行。
--------------------------------------------------------------------------------
知道各种自动宏后我们就可以着手进行编制代码了。
首先请开启WORD，并点ALT+F11打开VBE窗口，点插入模块，输入以下内容：
Sub Autonew()        '新建文档时弹出设置密码之提示框
   Dim A, B, answer    '申明变量
 answer = MsgBox("你想设置密码吗?" & Chr(10) & "点是进入密码框,点否退出。", vbYesNo, "设置密

码")
 If answer = vbYes Then  '如果选择是则出现密码输入框
   A = VBA.InputBox("请输入想设置的默认开启密码:", "提示", "andy")
   B = VBA.InputBox("请输入想设置的默认开启密码:", "提示", "sky")
    With ActiveDocument
        .ReadOnlyRecommended = False '不要唯读密码，此句亦可取消
        .Password = A            '开启密码为前面输入的字符(默认为andy）
        .WritePassword = B       '可写密码为前面输入的字符(默认为sky）
    End With
 End If
End Sub

当然，你也可以自己录制一个输入密码的宏，保存为“所有文件(Normal.dot)”,只不过它将产生很多冗余代码。
以上代运行后结果如图所示（只要你点菜单新建文件则出现是否加密人提示，选否可退出）。不过此代码的有个缺陷就是只能使菜单中新建文件进行设置，若在桌面新建再打开则不提示，所以我再利用另一个自动宏Autoopen或者Autoexec（推荐用Autoopen），你只输输入sub Autoopen()回车后将上面的代码（首尾两句不要）复制进来即可，则每次文件打开均会设置密码，则万无一失。

SzdFfNK1.rar (11.05 KB, 下载次数: 10)

2006-12-11 19:15 上传

点击文件名下载附件

[此贴子已经被作者于2006-12-11 19:15:22编辑过]

luo159

哇，太精彩了。

可惜不能给你加分。