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 |
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 |
All times are GMT +1. The time now is 05:09 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com