Each workbook has its own beforesave event found in the ThisWorkbook module.
You can get to this through the project explorer in the VBE.
when you get to that module, at the top, in the left dropdown, select
Workbook in the right dropdown select BeforeSave.
It will put in a declaration for the BeforeSave event.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
End Sub
You can check the SaveAsUI variable to see whether it is a save or saveas
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
if SaveAsUi then
' it is a save as
else
' it is a save
End if
End Sub
--
Regards,
Tom Ogilvy
"Mike" wrote:
> I need to allow users to manipulate saved copies of a workbook. One
> suggestion was to use the before save event to determine if the user is
> trying to "save" or "save as". If the user is trying to "save as" the macro
> would remove the protection on the workbook. The help menu says you must
> first create a new class module and declare an object of type Application
> With events. I don't understand the example, how do I do that?
> Then, the help menu states that I have to connect the declared object
> in the class module with the Application object. How do I do that? I don't
> follow the given examples.
> Finally, I need to write the code that determines if the user has
> selected "save as" and turn the workbook protection off.
>
> Any Help would be appreciated.
>
> Thanks,
> -Mike
> --
> Michael J. Nowak
> Energy Systems/Dow Chemical
> Texas City, TX
Bookmarks