Unprotecting Saved Workbook Copies

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

Mike,
No need for all that class approach.
Open the ThisWorkbook module and paste this:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Dim WS As Worksheet

If SaveAsUI = True Then
For Each WS In ThisWorkbook.Worksheets
WS.Unprotect "Password"
Next
End If

End Sub

NickHK


"Mike" <mjnowak@dow.com.(donotspam)> ¼¶¼g©ó¶l¥ó·s»D:8D9C451C-708F-4263-A7E1-40B2EE9E65F4@microsoft.com...
> 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

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

Thanks for the information, Tom. Unfortunately, it is still not working. I
tried using some information boxes to see if it was attempting to activate
the macro but nothing came up. Here is the code I have:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI Then
ActiveWorkbook.Unprotect
ActiveSheet.Unprotect
End If
End Sub
If you can see the issue or have other comments I would really apreciate any
help you can offer.

Thanks,
Michael Nowak
--
Michael J. Nowak
Energy Systems/Dow Chemical
Texas City, TX


"Tom Ogilvy" wrote:

> 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

Looks like I got it today so you can disregard my previous message. Thank
you very much!
-Mike
--
Michael J. Nowak
Energy Systems/Dow Chemical
Texas City, TX


"Tom Ogilvy" wrote:

> 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