Type Mismatch in Auto-Open Macro

[Carl Bowman]

I am getting Runtime Error "13" (Type Mismatch) on the following code:
Sub WorkBook_Open()
Sheets("Install").Select
ActiveSheet.Protect password = True
Sheets("Summary").Select
End Sub
When I remove the line "ActiveSheet.Protect password = True" it clears the
message but I really need this to be done. This is happening in Office 2002
but not in Office 2000. I can run the command at any time other than opening
and it does not give the error message. Why does it just do this in the
Auto-Open macro and what can be done to fix it?
Thanks.

[Tom Ogilvy]

Your missing a colon:

Sub WorkBook_Open()
Sheets("Install").Select
ActiveSheet.Protect password:=True
Sheets("Summary").Select
End Sub

--
Regards,
Tom Ogilvy

"Carl Bowman" <[email protected]> wrote in message
news:[email protected]...
> I am getting Runtime Error "13" (Type Mismatch) on the following code:
> Sub WorkBook_Open()
> Sheets("Install").Select
> ActiveSheet.Protect password = True
> Sheets("Summary").Select
> End Sub
> When I remove the line "ActiveSheet.Protect password = True" it clears the
> message but I really need this to be done. This is happening in Office
2002
> but not in Office 2000. I can run the command at any time other than
opening
> and it does not give the error message. Why does it just do this in the
> Auto-Open macro and what can be done to fix it?
> Thanks.
>

[Robin Hammond]

Carl,

The password part is meant to be a string, not a boolean value and you need
a colon in there. e.g.

ActiveSheet.Protect Password:="My Password"

I'd guess this is working on 2000 because you don't have the Option Explicit
setting on. Since the first parameter expected is the password, what you are
doing is setting a password string of "False" which is the evaluation of the
"password = True" statement.

Robin Hammond
www.enhanceddatasystems.com

"Carl Bowman" <[email protected]> wrote in message
news:[email protected]...
>I am getting Runtime Error "13" (Type Mismatch) on the following code:
> Sub WorkBook_Open()
> Sheets("Install").Select
> ActiveSheet.Protect password = True
> Sheets("Summary").Select
> End Sub
> When I remove the line "ActiveSheet.Protect password = True" it clears the
> message but I really need this to be done. This is happening in Office
> 2002
> but not in Office 2000. I can run the command at any time other than
> opening
> and it does not give the error message. Why does it just do this in the
> Auto-Open macro and what can be done to fix it?
> Thanks.
>

[Carl Bowman]

Thanks, Tom. You have been a tremendous help!

"Tom Ogilvy" wrote:

> Your missing a colon:
>
> Sub WorkBook_Open()
> Sheets("Install").Select
> ActiveSheet.Protect password:=True
> Sheets("Summary").Select
> End Sub
>
> --
> Regards,
> Tom Ogilvy
>
> "Carl Bowman" <[email protected]> wrote in message
> news:[email protected]...
> > I am getting Runtime Error "13" (Type Mismatch) on the following code:
> > Sub WorkBook_Open()
> > Sheets("Install").Select
> > ActiveSheet.Protect password = True
> > Sheets("Summary").Select
> > End Sub
> > When I remove the line "ActiveSheet.Protect password = True" it clears the
> > message but I really need this to be done. This is happening in Office
> 2002
> > but not in Office 2000. I can run the command at any time other than
> opening
> > and it does not give the error message. Why does it just do this in the
> > Auto-Open macro and what can be done to fix it?
> > Thanks.
> >
>
>
>