Question

我有一个Excel程序，需要创建另一个密码保护的Excel。我可以创建另一个excel，但我不知道如何用密码保护它。以下是创建另一个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 Method (Excel)

Excel VBA - 创建另一个受密码保护的Excel文件

1 个答案: