禁用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中處於“設計模式”時進行保存。

對不起，壞死，但這也可行，這是我的工作。