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

[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

[Bob Phillips]

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)

"hon123456" <[email protected]> wrote in message
news:[email protected]...
> 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
>