Protecting Workbook!..

[Neo1]

Hello, I want to make sure that my workbook doesnt close until every single sheet is protected if any worksheet is left unprotected then the user must protect it before being able to close the workbook, How can i do this...possibly showing an error message too...

Thanks a lot
From John

[[email protected]]

If you name a macro beforeClose() this run before the workbook closes.
You can then put the code in here to make the sheets protected.

Thanks
Paul

"Neo1" wrote:

>
> Hello, I want to make sure that my workbook doesnt close until every
> single sheet is protected if any worksheet is left unprotected then the
> user must protect it before being able to close the workbook, How can i
> do this...possibly showing an error message too...
>
> Thanks a lot
> From John
>
>
> --
> Neo1
> ------------------------------------------------------------------------
> Neo1's Profile: http://www.excelforum.com/member.php...o&userid=30329
> View this thread: http://www.excelforum.com/showthread...hreadid=531466
>
>

[Neo1]

I dont understand, can you explain it to me step to step please

Thanks a lot
From John

[[email protected]]

John
Put the code below in the Thisworkbook not in a normal module in the VBA
editor.
If you want I can email you the file
Thanks
Paul

Private Sub Workbook_BeforeClose(Cancel As Boolean)
sh = Worksheets.Count

For n = 1 To sh
Sheets(n).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Next n

End Sub

"Neo1" wrote:

>
> I dont understand, can you explain it to me step to step please
>
> Thanks a lot
> From John
>
>
> --
> Neo1
> ------------------------------------------------------------------------
> Neo1's Profile: http://www.excelforum.com/member.php...o&userid=30329
> View this thread: http://www.excelforum.com/showthread...hreadid=531466
>
>