word文档加密,怎么让word自动加密
发布时间：2022-04-14 16:44:46
Word提供了加密的功能，但不能自动给文档加密。下面介绍一种能自动给Word文档统一加上密码的办法（以Word 2003为例）。
第一步：在“工具”菜单中选择“宏”选项卡，单击“宏”命令，键入宏的名称“AllAutoPassword”，在“宏的位置”框中选择“所有的活动模板和文档”，在“说明”中可以键入对该宏的说明，例如“利用‘宏’给文档进行统一加密”，最后单击“创建”按钮即可。
第二步：系统会弹出“宏”编辑窗口，在Sub AllAutoPassword()和End Sub之间输入以下代码：
//密码为123456
With Options
.AllowFastSave = True
.BackgroundSave = True
.CreateBackup = False
.SavePropertiesPrompt = 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”，反之则不加密码。
0
投稿猜你喜欢
win7系统是一款非常优秀的高性能系统，最近一段时间里有很多win7系统的小伙伴们都在找win7怎么初始化网络设置的方法，今天小编为大家带来- Win2003系统以安全性和稳定性成为系统届的元老级人物，对Win2003系统的安装需求要求增大，如何安装Win2003系统时提取启动组，可
- 有了网络打印机，局域网中的任意一台电脑都可以实现在线打印操作，这给我们的工作带来许多方便之处。最近有Win7系统用户反映，不知道如何给自己的
- 我们在使用新买的电脑的时候，有的小伙伴不想使用预装的操作系统，那么对于新电脑装win10系统教程这个问题，小编觉得我们需要先做好装机的准备。
- 魔秀桌面app怎么设置锁屏？魔秀桌面是一款小巧易用的桌面美化软件，用户们可以自制主题桌面和查看天气预报等，那么魔秀桌面app要怎么设置锁屏呢
- 我们在日常进行打印之前，通常都会进行打印预览，这样可以避免打印出错等。在WPS中，我们可以点击“打印预览”功能，查看打印的效果。如果我们经常
- word怎么设计简洁素雅的封面？word中想要设计一款简单的封面，该怎么设计呢呢？下面我们就来看看word封面的设计方法，需要的朋友可以参考
- 当制作好工作表后，由于某种原因，想要修改工作表中的公式，例如想将公式中的求和改为求平均，此时，如果只有少量的几个公式，直接一个个修改就可以了
- Win10 KB4540673补丁致音频失效、文件移位怎么办？下文小编就为大家带来详细解决教程，感兴趣的朋友可以一起看看 近期微
- 很多情况下word制表会比excel更加方便，那是因为你没有掌握以下这些制表技巧。【1】用word做表有哪些实用小技巧？1、快速制表当你从别
- 在制作一个Excel表格时，通常会有一个或者多个表头，如果上下滑动表格的话，表头也会随之移动，但是这样的话，有时候会忘记表头的内容，而且也十
- Excel中需要用到sum函数求和，sum函数具体该如何使用呢?下面是由小编分享的excel表格sum函数的使用教程，以供大家阅读和学习。e
- WPS表格中的一列怎么拆分成两列内容？wps表格中录入的数据想要放到两个单元格中，该怎么办呢？下面我们就来看看wps表格拆分的教程，需要的朋
- 在大家平时使用word做表格时，偶尔会遇到表格跨页断开的情况，重做太麻烦，不重做又无法排版，那么word表格跨页断开怎么办?下面小编就为大家
- Excel如何不用加减乘除可以算平均数？微软办公始终走在办公软件的前列，尤其Excel数据表格公式的灵活性令人感叹，他的灵活性往往有多种途径
- 不少用户会遇到Win10飞行模式锁死的现象，出现这种现象的话也不用担心，其实取消锁定的方法还是很简单的，只需要几个步骤就可以轻松解决这个问题
- 在今年5月份，微软在纽约正式发布了新一代笔记本Surface Laptop。这款笔电配备了13.5英寸PixelSense显示屏，厚度14.
- 最近有Win10用户反映，共享打印机的时候出现提示“无法保存打印机设置，操作无法完成（错误0x000006d9）”，导致打印机无法共享，这让
- 在看他人演讲或一些PPT产品发布会演讲时，你会发现演讲者在演讲时将每一页幻灯片要讲述的时间卡的非常好，根本不会发生像学生时期老师讲课拖堂的情
- 自从升级到win10很多朋友想要使用视频聊天功能跟家里人视频聊天的时候，发现根本不知道win10系统中摄像头在哪里，遇见这样的情况很是令人烦
