Отключить кнопку СОХРАНИТЬ и СОХРАНИТЬ КАК

[vit-b]

Подскажите можно ли отключить кнопку сохранить и сохранить как в екселе, для того чтобы пользователь не смог сохранять файл, кроме как с кнопки в форме по указанному пути. Спасибо.

[doober]

Код модуля

Public mogno As Boolean

Код модуля Книги

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = Not mogno
End Sub

Private Sub Workbook_Open()
 mogno = False
End Sub

Код кнопки на форме

Private Sub CommandButton1_Click()
 mogno = True
 ThisWorkbook.Save
  mogno = False
End Sub

[vit-b]

Спасибо doober буду пробовать.