Excel VBA – 创build另一个密码保护的Excel文件

我有一个Excel程序，需要创build另一个密码保护的Excel。 我可以创build另一个Excel，但我不知道如何用密码保护它。 以下是创build另一个Excel文件的代码。

Option Explicit Sub Macro1() Dim Wk As Workbook Set Wk = Workbooks.Add Application.DisplayAlerts = False Wk.SaveAs Filename:=”B:\Test1.xlsx” Application.DisplayAlerts = True End Sub 

希望你们能帮助这个部分。

Answer 1

 Application.DisplayAlerts = False Application.ScreenUpdating = False ActiveWorkbook.SaveAs FileFormat:=xlNormal, Password:="pass", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False ActiveWorkbook.Close 

这里是文档： Workbook.SaveAs方法（Excel）