Can't get save as to work

[LabrGuy Bob R]

Hello, I have several sheets in my workbook that has a moderate amount of
code.
All the code is working error free and there are no problems with the
workbook.
I can save the workbook with no problem.
I attempt to save as and I get the hourglass and it saves the workbook with
the same name and location. I can't get the save as window and can't change
the name or location.

Any ideas as to how to fix this??
Thanks
BOB

 

[LabrGuy Bob R]

I've discovered that it will "Save As" if I don't enable macros?
Whhile Macros are enabled it still won't "Save As"

Thanks in advance.
BOB

 

[Guest]

You might have code in the Thisworkbook Module Example below
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI = True Then Cancel = True
'Prevent workbook being saved as
End Sub

 

[LabrGuy Bob R]

Thank you Mike,

I have the Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel
As Boolean)
in the code. Do you know of a way to still do what this needs to do and
recover the SaveAs???

I didn't program the code because I'm less than a novice, but this feature
"Save As" would be welcomed back.

Bob

 

[Guest]

Post your Workbook_BeforeSave code

Thank you Mike,

I have the Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel
As Boolean)
in the code. Do you know of a way to still do what this needs to do and
recover the SaveAs???

I didn't program the code because I'm less than a novice, but this feature
"Save As" would be welcomed back.

Bob

 

[Otto Moehrbach]

Mike
I'm helping Bob with this project. Yes, I had a Cancel=True at the
beginning of the BeforeSave macro. It hadn't occurred to me that the Cancel
statement would cancel the SaveAs also, which, in hindsight, is rather
obvious.
I changed the code to allow a SaveAs without executing the rest of the
code in that macro, and to execute that code if the save command was a Save
only. So all is well now. Thanks for your time with this. Otto