如何使用VBA禁用保存和另存为

Question

我正在编写一个宏,我需要在VBA复制并粘贴所有信息的工作簿上禁用保存功能.这可能吗？

Answer 1

您可以使用Workbook_BeforeSave事件来实现此目的,禁用CommandBars不会使用CTRL + S等快捷方式阻止用户.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

    MsgBox "You can't save this workbook!"
    Cancel = True

End Sub

Answer 2

您可以使用该Application对象直接访问工具栏按钮:

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