怎么给excel 多个工作薄加密

Question

我用的是Word2003,我有很多个工作薄要加密，怎么才能同时加密啊！
我有30多个要加密，要一个一个得加，很痛苦啊!
加一个工作表，我会 “工具”---“保护”----“保护工作表”就可以了。

Answer 1

加密方法如下：

打开Excel文档，点击上面菜单中的“文件”菜单，在弹出的菜单中，点击“信息”选项，在其选项卡中单击“保护工作薄”按钮，如下图所示；



弹出保护工作薄的相关菜单，单击“用密码进行加密”命令；



在弹出的“加密文档”对话框中，在“密码”文本框中输入密码“123”，然后单击“确定”按钮；



在弹出的“确认密码”对话框中，再次输入刚才输入的密码“123”，然后点击“确定”按钮；



加密后的效果图，保存工作薄并重新打开之后，会提示需要输入密码才能打开的对话框，当输入正确的密码“123”后，即可打开文档。

Answer 2

工具-宏-Visual Bsaic编辑器
将下段代码复制运行即可。
注意：
1.把要加密的文件放在同一个文件夹下，如g:\123
2.代码中.LookIn = "g:\123"双引号内蓉工作簿路径，按照你放置的位置填写
3.代码中ActWb.Password = "YourPassowrd" '双引号中为密码，按你想要设定 的填写

'--------------------------
Sub BulkEncryption()
Dim ActWb, ThisWb, Wb As Workbook
Dim MyWb
Set ThisWb = ThisWorkbook
Set ActWb = ActiveWorkbook
Application.ScreenUpdating = False
With Application.FileSearch
.FileType = msoFileTypeExcelWorkbooks
.LookIn = "g:\123" '此处为工作簿路径
.Execute msoSortByFileName
For Each MyWb In .FoundFiles
If MyWb <> ThisWb.FullName Then
Set ActWb = Workbooks.Open(MyWb)
ActWb.Password = "Passowrd" '此处为密码
ActWb.Save
ActWb.Close
End If
Next
End With
Application.ScreenUpdating = True
End Sub
'------------------------------------

祝你成功！本回答被提问者采纳

Answer 3

你是说很多个文件吗？可以考虑压缩打包，压缩时弹出的对话框--高级选项中有设置密码