禁用Excel保存选项，但允许宏保存

Question

我正在创建一个excel文件，并且想禁用“保存”和“另存为...”选项。

我在互联网上找到了很多解决方案，例如VBA中的解决方案：

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

它阻止用户保存更改，但是我无法保存更改，这就是问题所在，因为我需要在VBA代码中进行更多更改。

有没有办法保存我的宏更改？ 像管理员模式等...？

感谢您日后的回答。

Answer 1

使用全局变量覆盖“保存”禁用：

    Dim override as Boolean

    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
         if Not(override) then
           MsgBox "You can't save this workbook!"
           Cancel = True
         end if
    End Sub
    Sub SaveMyChanges()
       override = true
       ActiveWorkbook.Save
       override = false
    End Sub

Answer 2

您还可以在VBA中处于“设计模式”时进行保存。

对不起，坏死，但这也可行，这是我的工作。