IF protection then skip sub.

i have an excel document, that works fine and produces another file based on the template.

On open of the original document, i have a macro to go and clear any data in particular cells.

When creating the new file, in my macro I have set the new workbook to be protected; however when this file is open, it goes and runs the clear function. This gives an error as it can not clear the cells due to the protection.

I dont want to turn the protection off, so is there anyway I can check for protection, if protection is found, then dont run the clear code,

Thanks.

Hi mdma,

You could try something like:
If ActiveSheet.ProtectContents = True Then Exit Sub
or
If ActiveSheet.ProtectContents = False Then
' the rest of your clearing code goes here
End If

Cheers


"mdma" <[email protected]> wrote in message
news:[email protected]...
>
> i have an excel document, that works fine and produces another file
> based on the template.
>
> On open of the original document, i have a macro to go and clear any
> data in particular cells.
>
> When creating the new file, in my macro I have set the new workbook to
> be protected; however when this file is open, it goes and runs the
> clear function. This gives an error as it can not clear the cells
> due to the protection.
>
> I dont want to turn the protection off, so is there anyway I can check
> for protection, if protection is found, then dont run the clear code,
>
> Thanks.
>
>
> --
> mdma
> ------------------------------------------------------------------------
> mdma's Profile:
http://www.excelforum.com/member.php...o&userid=24284
> View this thread: http://www.excelforum.com/showthread...hreadid=536786
>