admin管理员组

文章数量:1661414

操作第一步：

操作第二步：

操作结果：

vba代码：
Sub 加密()

Application.DisplayAlerts = False
Dim lj As String
Dim mima As String

lj = InputBox(“请输入您文件夹的路径”)
mima = InputBox(“请输入您要设置的密码”)

Dim wjm As String
Dim wb As Workbook

wjm = Dir(lj & “*.xl*”)

Do While wjm <> “”
Set wb = Workbooks.Open(lj & “” & wjm)
wb.Password = mima
wb.Close Savechanges:=True
wjm = Dir
Loop

MsgBox (“已经全部设置上密码”)
Application.DisplayAlerts = True

End Sub

本文标签： 批量密码文件VBA

版权声明：本文标题：vba实现批量文件加密码 内容由热心网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：https://www.elefans.com/dongtai/1729931183a1216753.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。