Question

通过以下编码，我可以创建受密码保护的文件的副本。但我也想把密码放在新创建的文件中。如何在创建新的Excel工作簿时添加密码。

Workbooks.Open Filename:=myFileNameDir, Password:="yourpassword", UpdateLinks:=0
Set ws1 = Worksheets("OJT Plan")
ws1.Activate
filen = TextBox3.Text & "_" & TextBox59 & "_" & VBA.Format(Now, "MMddyyyyhmmss AM/PM ")
ws1.SaveAs Sheet1.Range("V3").Value & filen & ".xlsx"
Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = "Details"
Set ws13 = Worksheets("Details")

Answer 1

如果查看documentation，您会看到SaveAs命令有两个密码参数

ws1.SaveAs FileName:=Sheet1.Range("V3").Value & filen & ".xlsx", _
           Password:="yourpassword", _                                
           WriteResPassword:="yourreadonlypassword"

这两个密码参数的不同之处在文档中解释：

Password ：区分大小写的字符串（不超过15个字符），表示要为文件指定的保护密码。

WriteResPassword ：表示此文件的写保留密码的字符串。如果使用密码保存文件，并且在打开文件时未提供密码，则文件将以只读方式打开。

VBA创建受密码保护的文件

1 个答案: