Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to diasble save and save as menu but allow a save button
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to diasble save and save as menu but allow a save button
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" wrote in message oups.com... 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
SAVE and SAVE AS options disappeared from the drop down FILE menu | Excel Discussion (Misc queries) | |||
Command Button Save As Application.ExecuteExcel4Macro ("SAVE.AS?() | Excel Discussion (Misc queries) | |||
how to get disk icon on save button of save as dialog like 2000 | Excel Discussion (Misc queries) | |||
Save & Save As features in file menu of Excel | Excel Discussion (Misc queries) | |||
save button in excel to save one of the worksheets with a cell value as its name | Excel Programming |