vba实现批量文件加密码

操作第一步：

操作第二步：

操作结果：

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