在一批Excel文件中禁用另存为

我一直在研究如何在Excel中禁用“另存为”，这似乎是可能的。 我有一个macros，循环通过一堆Excel文件进​​行更改。 在这个macros中，我想禁用所有文件的“另存为”。 这可能吗？

Answer 1

使用应用程序对象 您只需将此行添加到在每个文件或工作簿中循环的代码中，以便为每个文件或工作簿禁用“另存为”

Application.CommandBars("Worksheet Menu Bar").Controls("File").Controls("Save As...").Enabled = False Application.CommandBars("Worksheet Menu Bar").Controls("File").Controls("Save").Enabled = False 

告诉我是怎么回事

Answer 2

 Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) MsgBox "You can't save this workbook!" Cancel = True End Sub