用word宏实现批量给文件加密码

wbxfq · 发表于 2009-4-1 14:28

因工作需要给几百个word文件加密码.一个个去加太麻烦.
结合word宏.自定义菜单.
做了一个简单的加密工具.
实现效果,打开word文件,再关闭
文件自动加了密码.
将制作过程分享一下,
对初学者掌握宏,自定义菜单有所帮助.

1.制作宏,宏放于菜单或工具栏

宏菜单.gif

wbxfq · 发表于 2009-4-1 14:29

宏菜单制作完后的效果
菜单加密效果.gif

到此,实现了,点击此菜单,文件即可以加密了.
比以前每次去加密码方便多了.

[ 本帖最后由 wbxfq 于 2009-4-1 14:36 编辑 ]

wbxfq · 发表于 2009-4-1 14:30

修改菜单的名称和图标
另外(&Q)即可实现Alt+T Q
也相当于点击菜单
制作图标.gif

[ 本帖最后由 wbxfq 于 2009-4-1 14:37 编辑 ]

wbxfq · 发表于 2009-4-1 14:31

但是此时不能用其他的组合快捷键
直接在菜单后面加上 Ctrl+J 是不行的.
所以,再做一个宏
此时宏做法类似
正好初学者可以了解一下快捷键做宏的方法

此时的快捷键权限比系统的高
比如不能设置成Ctrl+C
不然复制的快捷键就没了.
另外区分大小写
再另外不是在这里输入
而是直接按键.
然后点击指定.
具体操作方法如下:

宏快捷键.gif

[ 本帖最后由 wbxfq 于 2009-4-1 14:43 编辑 ]

wbxfq · 发表于 2009-4-1 14:31

同上述方法
在菜单里加入快捷键的指示.告诉使用者快捷键
因为做过一个有快捷键的宏
此时按Ctrl+J
真的可以给文件加密
加快捷.gif

[ 本帖最后由 wbxfq 于 2009-4-1 14:45 编辑 ]

wbxfq · 发表于 2009-4-1 14:32

做到现在这步
要给文件加密
只要点击菜单
或是Alt+T Q
或是Ctrl+J
均可以实现.
但一百多个文件的话
还是有点慢.
再改进一下.
关闭文件时自运行.gif

[ 本帖最后由 wbxfq 于 2009-4-1 14:47 编辑 ]

wbxfq · 发表于 2009-4-1 14:33

将宏名称改为autoclose
那么当文件关闭时就自动运行这个宏
而不需要点击菜单或是快捷键
效果如下
关闭文件时自运行.gif

[ 本帖最后由 wbxfq 于 2009-4-1 14:51 编辑 ]

wbxfq · 发表于 2009-4-1 14:38

最后做出的效果如下

这个全闭关闭是需要按shift才会出现的.

现在给文件加密,就是打开很多文件
再全部关闭,就自动加好密码了.

但是注意,最后每个文件需要点击一下确定.
而懒人是非常懒的.
不愿动手.
现在就是最后一步:
如何实现保存时不需要点击确定
而是自动保存好了.

我正在想这个问题,
希望守柔版主或其他高手出一言相救.

我准备学vba了.

[ 本帖最后由 wbxfq 于 2009-4-1 14:54 编辑 ]

wbxfq · 发表于 2009-4-1 17:29

Private Sub Document_Close()
ThisDocument.Save
End Sub
按此方法也不行.

tangqingfu · 发表于 2009-4-1 19:43

请参考守版的回复:
http://club.excelhome.net/viewth ... %C2%EB%2Btangqingfu

		自动登录	找回密码
密码			免费注册

[分享] 用word宏实现批量给文件加密码

宏菜单制作完后的效果

修改菜单名称图标等