WorkbookBeforeSave Problem
 

Excel 2007

I copied two macro examples from the Excel Help File and tried to run them,
but I get an error message that says:


Cannot run the macro €˜MacroName.xlsm. The macro may not be available in
this workbook or all macros may be disabled.

I have enabled all macros. But still get that message.
The macro is in my Personal.xls file in the XLSTART folder. And even when I
open THAT file and try to run the macro, it doesn't work. Same message.

The macros I have copied from Help (there are two) a

Option Explicit
Private Sub App_WorkbookBeforeSave(ByVal Wb As Workbook, _
ByVal SaveAsUI As Boolean, Cancel As Boolean)
a = MsgBox("Do you really want to save the workbook?", vbYesNo)
If a = vbNo Then Cancel = True
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel As Boolean)
a = MsgBox("Do you really want to save the workbook?", vbYesNo)
If a = vbNo Then Cancel = True
End Sub


Please help.
Thanks

WorkbookBeforeSave Problem
 

Those are events that run automatically when the workbook closes or is
saved.

They are not macros that you "run".

They have no names and cannot be run manually.

Must be placed into the Thisworkbook module of whatever workbook you want
them to run from.

They will not run from Personal.xls on any other workbook.


Gord Dibben MS Excel MVP



On Sat, 31 Oct 2009 06:07:01 -0700, Steve
wrote:

Excel 2007

I copied two macro examples from the Excel Help File and tried to run them,
but I get an error message that says:


Cannot run the macro ‘MacroName.xlsm’. The macro may not be available in
this workbook or all macros may be disabled.

I have enabled all macros. But still get that message.
The macro is in my Personal.xls file in the XLSTART folder. And even when I
open THAT file and try to run the macro, it doesn't work. Same message.

The macros I have copied from Help (there are two) a

Option Explicit
Private Sub App_WorkbookBeforeSave(ByVal Wb As Workbook, _
ByVal SaveAsUI As Boolean, Cancel As Boolean)
a = MsgBox("Do you really want to save the workbook?", vbYesNo)
If a = vbNo Then Cancel = True
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel As Boolean)
a = MsgBox("Do you really want to save the workbook?", vbYesNo)
If a = vbNo Then Cancel = True
End Sub


Please help.
Thanks

WorkbookBeforeSave Problem
 

Thank you, Gord. You've given me a better uderstanding of how this stuff
works.



"Gord Dibben" wrote:

Those are events that run automatically when the workbook closes or is
saved.

They are not macros that you "run".

They have no names and cannot be run manually.

Must be placed into the Thisworkbook module of whatever workbook you want
them to run from.

They will not run from Personal.xls on any other workbook.


Gord Dibben MS Excel MVP



On Sat, 31 Oct 2009 06:07:01 -0700, Steve
wrote:

Excel 2007

I copied two macro examples from the Excel Help File and tried to run them,
but I get an error message that says:


Cannot run the macro €˜MacroName.xlsm. The macro may not be available in
this workbook or all macros may be disabled.

I have enabled all macros. But still get that message.
The macro is in my Personal.xls file in the XLSTART folder. And even when I
open THAT file and try to run the macro, it doesn't work. Same message.

The macros I have copied from Help (there are two) a

Option Explicit
Private Sub App_WorkbookBeforeSave(ByVal Wb As Workbook, _
ByVal SaveAsUI As Boolean, Cancel As Boolean)
a = MsgBox("Do you really want to save the workbook?", vbYesNo)
If a = vbNo Then Cancel = True
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel As Boolean)
a = MsgBox("Do you really want to save the workbook?", vbYesNo)
If a = vbNo Then Cancel = True
End Sub


Please help.
Thanks


.