第二步:系统会弹出宏编辑窗口,在Sub AllAutoPassword()和End Sub之间输入以下代码:
//密码为123456
With Options
.AllowFastSave = True
.BackgroundSave = True
(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/diannaorumen/).CreateBackup = False
.SavePropertiesPrompt = False
.SaveInterval = 15
(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/diannaorumen/).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,反之则不加密码。