代码损坏，程序仍然在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

你将文件保存为xlNormal对应于.xls文件类型，所以你必须使用.xls作为扩展名，不.xlsx。

如果你想保存为.xlsx使用FileFormat:=xlOpenXMLWorkbook