首页 文章

VBA创建受密码保护的文件

提问于
浏览 次
0

通过以下编码，我可以创建受密码保护的文件的副本 . 但我也想把密码放在新创建的文件中 . 如何在创建新的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")
excel-vba vba excel

1 回答

  • 0

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

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

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

    密码：区分大小写的字符串（不超过15个字符），表示要为文件指定的保护密码 . WriteResPassword：表示此文件的写保留密码的字符串 . 如果使用密码保存文件，并且在打开文件时未提供密码，则文件将以只读方式打开 .

    回复于

相关问题