代码损坏，程序仍然在VBA中工作

Question

我正在尝试通过excel保护带有密码的Excel。

它工作正常，运行时没有显示错误但是在完成宏之后，我尝试打开的excel正在被破坏。

我错过了什么

Sub pwdprotect()

Workbooks.Open ("C:\Users\Junior.xlsx")
ActiveWorkbook.SaveAs Filename:="C:\Users\Junior.xlsx", 
FileFormat:=xlNormal, Password:="abc", 
ReadOnlyRecommended:=False, CreateBackup:=False

End Sub

Answer 1

您将文件保存为与.xls文件类型对应的xlNormal，因此您必须使用.xls作为扩展名，而不是.xlsx。

如果您要保存为.xlsx，请使用FileFormat:=xlOpenXMLWorkbook