How to diasble save and save as menu but allow a save button

  • Thread starter Thread starter hon123456
  • Start date Start date
H

hon123456

Dear all,

I have put a command button which do the save function as follows:

Private Sub CommandButton1_Click()

ThisWorkbook.SaveAs Filename:="abc.xls"
End Sub

And I have disabled the save and save as menu with following code:

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

Now, the problem is although I can disable the save and save as
menu, the save button is disabled too. How can I disable save and save
as menu but still allow my save button(CommandButton1) to save?

Thanks
 
Create a global variable, say SaveOK as a boolean, and in the code add

Private Sub CommandButton1_Click()
SaveOK = True
ThisWorkbook.SaveAs Filename:="abc.xls"
End Sub


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean,
Cancel As Boolean)
If Not SaveOK Then
Cancel = True
Else
SaveOK = False
End If
End Sub


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)
 
Back
Top