保护已导出的新 excel sheet

Question

我有以下宏，可以将当前 excel sheet 和一些数据导出到新工作簿的特定路径中。我遇到的麻烦是，我想在创建后保护新的 sheet 工作簿。怎么做到的？我尝试使用 ActiveWorkbook.Protect "Password" 但没有成功。

Sub NuevoDia()
Dim FilePath As String
Dim NewName As String

FilePath = "C:\Users\Pol\Desktop\": NewName = FilePath & "Registros " & Format(Date, "DD-MM-YYYY") & ".xls"

Sheets("Registros").Select
Hoja3.Unprotect "LOG2020"
Sheets("Registros").Copy

ActiveWorkbook.SaveAs Filename:=NewName, FileFormat _
:=xlWorkbookNormal, CreateBackup:=False

End Sub

感谢您的帮助！

Answer 1

为了保护 sheet 我建议这样做：

Sheets("Registros").Protect "password"

如果你想 protect workbook 因为你尝试过：

ActiveWorkbook.Protect Password:="password", Structure:=True, Windows:=True

另请注意，最好不要使用 select 所以

Sheets("Registros").Select
Hoja3.Unprotect "LOG2020"
Sheets("Registros").Copy

和

一样

Hoja3.Unprotect "LOG2020"
Sheets("Registros").Copy

保护已导出的新 excel sheet

Protecting a new excel sheet that has been exported

excel

vba

userform