有没有给很多个EXCEL文档统一加密的方法?

发布网友发布时间：2022-03-28 19:20

共3个回答

热心网友时间：2022-03-28 20:49

没有直接的方法，但是可以用vba完成。
新建文件，按住ALT，依次按F11,I,M
粘贴代码后按F5(代码需要根据实际情况修改）

Sub 批量加密()
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.DisplayAlerts = False
p = "c:\dir\" '修改路径为实际文件存放的实际路径
f = Dir(p & "*.xls")
Do While f <> ""
Workbooks.Open p & f
With ActiveWorkbook
.Password = "xyz" '修改密码为需要的密码
.Save
.Close
End With
f = Dir
Loop
Application.EnableEvents = True
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

热心网友时间：2022-03-28 22:07

EXCEL的加密较弱，容易被解开，建议楼主用winrar压缩软件加密，打个包就能加密了，比较方便

热心网友时间：2022-03-28 23:42

用winrar压缩软件加密是唯一的简便方法，如果楼主不想用，就只能一个一个加密了。