请版主指点

nowarmy

如何设置自动宏，将新建的文件保存后自动加密。

多谢！

守柔

此事只能针对自己的模板进行（受宏及修改WORD命令的影响），是否需要自动保存文件名加密，是指统一的密码还是有针对性的比如用户指定的一系列密码（如为提取文件名的某些方面？）

nowarmy

没说清楚 怎样对自已的模板进行加密？统一密码又怎么编辑？请赐教！

守柔

请楼主将以下代码粘贴于NORMAL(全局模板)的ThisDocument的代码窗口中或者以模块形式插入于Normal(全局模板)中:

Sub FileSave() On Error Resume Next With ActiveDocument If .HasPassword = False Then .Save .Password = "Word" .Save Else .Save End If End With End Sub Sub FileSaveAs() On Error Resume Next Dialogs(wdDialogFileSaveAs).Show ActiveDocument.Password = "Word" ActiveDocument.Save End Sub '请楼主测试一下,如有问题请及时联系.

nowarmy

多谢版主，在Word2003中可以，在2000中不能运行，请问为什么？

守柔

有什么反应吗？出现什么现象？

宏安全性设为低了吗？

其它的属性对象方法，我检查了一下，XP中与2000中此处一致，并未属于新增。

如意

我有一个简单易用的方法可以给文档轻松加密。(以下是在OFFICE 2003中的操作，其它版本也可以用同样的方法实现，只是可能会有一些小的不同。)

工具→宏→录制新宏，将打开下图，给宏起个名字“jiami”

在将宏指定到下点“键盘”，打开下图，在“请按新快捷键”里按下如“Alt+F1”，“将更改保存在”中选“Normal.dot”，点击“指定”，然后“关闭”，即开始录制宏。

工具→选项→安全性，打开下图，在“打开文件时的密码”里输入你想要的密码(如123)，在“修改文件时的密码”里也可以输入密码(如123)，确定后会出现“确定密码”对话框，再输入一次打开密码(如123)，若你输入了修改密码，会提示你再输入一次修改密码，点“确定”后即可点击“停止录制宏”了。

现在全部都搞定了，你创建一个文档后，当你需要给文档加密时，只需要按下“Alt+F1”就行了。