unprotect and protect within a macro

Hi XL freaks,
I am looking for a way to protect and unprotect a worksheet within a macro.
If I make the macro with the recording machine that is not possible.
The macro than runs but askes me to type in the password.
It is probably very easy, but too difficult for me, can anybody please
help ?
Thanks in advance,
Hans

Hello Hans, fellow freak,


Option Explicit

Sub ProtectSheet()
Dim ws As worksheet
Set ws = Activesheet
ws.Protect "password"
End Sub

Sub UnprotectSheet()
Dim ws As worksheet
Set ws = Activesheet
ws.Unprotect "password"
End Sub


HTH

--
Regards,
Zack Barresse, aka firefytr, (GT = TFS FF Zack)
To email, remove the NO SPAM. Please keep correspondence to the board, as
to benefit others.



"Staalkop" <hans@REMOVEpressanykey.nl> wrote in message
news:4361226e$0$64029$dbd43001@news.wanadoo.nl...
> Hi XL freaks,
> I am looking for a way to protect and unprotect a worksheet within a
> macro.
> If I make the macro with the recording machine that is not possible.
> The macro than runs but askes me to type in the password.
> It is probably very easy, but too difficult for me, can anybody please
> help ?
> Thanks in advance,
> Hans

Try typing in the correct password, you are almost there.


"Staalkop" <hans@REMOVEpressanykey.nl> wrote in message news:4361226e$0$64029$dbd43001@news.wanadoo.nl...
> Hi XL freaks,
> I am looking for a way to protect and unprotect a worksheet within a macro.
> If I make the macro with the recording machine that is not possible.
> The macro than runs but asks me to type in the password.
> It is probably very easy, but too difficult for me, can anybody please
> help ?
> Thanks in advance,
> Hans

Sheet1.Unprotect ("Password")
'Your Code
Sheet1.Protect ("Password")
Regards,
Alan.
"Staalkop" <hans@REMOVEpressanykey.nl> wrote in message
news:4361226e$0$64029$dbd43001@news.wanadoo.nl...
> Hi XL freaks,
> I am looking for a way to protect and unprotect a worksheet within a
> macro.
> If I make the macro with the recording machine that is not possible.
> The macro than runs but askes me to type in the password.
> It is probably very easy, but too difficult for me, can anybody please
> help ?
> Thanks in advance,
> Hans

Staalkop schreef:
> Hi XL freaks,
> I am looking for a way to protect and unprotect a worksheet within a macro.
> If I make the macro with the recording machine that is not possible.
> The macro than runs but askes me to type in the password.
> It is probably very easy, but too difficult for me, can anybody please
> help ?
> Thanks in advance,
> Hans
Hi Zack, David and Alan,
thanks a lot : makes life a lot more easy !!!!
I finally used Alan's solution; quickest and easiest.
But thanks all of you for the effort,
Hans