rompt = False

.SaveInterval = 15

.SaveNormalPrompt = False

End With

With ActiveDocument

.ReadOnlyRecommended = False

.EmbedTrueTypeFonts = False

.SaveFormsData = False

.SaveSubsetFonts = False

.Password = "123456" ’打开权限密码

.WritePassword = "123456" ’修改权限密码

End With

Application.DefaultSaveFormat = " "

第三步：代码输入后，选择"文件"菜单中的"保存Normal"，点击"关闭并返回到Microsoft Word"，再在"工具"菜单中选择"自定义"，选择"命令"标签，在"类别"中选择"宏"，在"命令"中找到"Normal.NewMacros.AllAutoPassword"，然后将它移至常用工具栏内即可。

以后，用户新建或关闭一个文档时，该宏将提醒用户是否保存对该文档的修改，如果选择"是"，那么文档将自动被加上密码"123456"，反之则不加密码。