Need help with error handling syntax

[GrahamUNC]

I know what I want to say in English but can't come up with the right code that will do what I want. Here's kind of what I want the code to do using my English/VBA sub-dialect. Sorry for the non-technicalness of the code:


On error goto handler

Handler:
if the worksheet is protected then
unprotect the worksheet
resume the sub
then protect the worksheet that was just unprotected

I apologize if this makes little to no sense.

 

[JohnYingling]

Dim lngErr as long
On error resume next
'..... whatever
    lngErr = Err.Number
On Error Goto 0
if lngErr <> 0 then
..... handle errror
End if

http://WWW.VBCompare.Com

 

[mymou]

Are you looking for ActiveWorkbook.Unprotect, ActiveWorkbook.Protect?

Stew

"Even a stopped clock tells the right time twice a day."

 

[Woodstock]

Here is my solution for the worksheet protection problem:

Sub Protect()
On Error GoTo Handler
Range("A2&quot = 20
ActiveSheet.Protect
Exit Sub
Handler:
ActiveSheet.Unprotect
Resume
End Sub