This is what i currently use to auto protect sheet, but i want to add a
password to this, (2468) so that the protection is password protected, but i
do not know how
the current syntax can be adjusted to perform this request?
I tried to put a password on the regular way of protect and then entering a
pword, however when the workbook opens up it goes into a debug error and I
have to have this sheet protected automatically because without it set up
that way one of my macros doesnt work.

Option Explicit

Private Sub Workbook_Open()
ThisWorkbook.Sheets("Patrol Log") _
.Protect DrawingObjects:=True, _
contents:=True, Scenarios:=True, _
UserInterfaceOnly:=True
End Sub

Brian, try this,

Option Explicit

Private Sub Workbook_Open()
ThisWorkbook.Sheets("Patrol Log") _
.Protect Password:="2468", DrawingObjects:=True, _
contents:=True, Scenarios:=True, _
UserInterfaceOnly:=True
End Sub


--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

"Brian" wrote in message
...
This is what i currently use to auto protect sheet, but i want to add a
password to this, (2468) so that the protection is password protected, but
i
do not know how
the current syntax can be adjusted to perform this request?
I tried to put a password on the regular way of protect and then entering
a
pword, however when the workbook opens up it goes into a debug error and I
have to have this sheet protected automatically because without it set up
that way one of my macros doesnt work.

Option Explicit

Private Sub Workbook_Open()
ThisWorkbook.Sheets("Patrol Log") _
.Protect DrawingObjects:=True, _
contents:=True, Scenarios:=True, _
UserInterfaceOnly:=True
End Sub

Perfect!!
Thank You


"Paul B" wrote:

Brian, try this,

Option Explicit

Private Sub Workbook_Open()
ThisWorkbook.Sheets("Patrol Log") _
.Protect Password:="2468", DrawingObjects:=True, _
contents:=True, Scenarios:=True, _
UserInterfaceOnly:=True
End Sub


--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

"Brian" wrote in message
...
This is what i currently use to auto protect sheet, but i want to add a
password to this, (2468) so that the protection is password protected, but
i
do not know how
the current syntax can be adjusted to perform this request?
I tried to put a password on the regular way of protect and then entering
a
pword, however when the workbook opens up it goes into a debug error and I
have to have this sheet protected automatically because without it set up
that way one of my macros doesnt work.

Option Explicit

Private Sub Workbook_Open()
ThisWorkbook.Sheets("Patrol Log") _
.Protect DrawingObjects:=True, _
contents:=True, Scenarios:=True, _
UserInterfaceOnly:=True
End Sub

Private Sub Workbook_Open()
ThisWorkbook.Sheets("Patrol Log") _
.Protect Password:="2468", _
DrawingObjects:=True, _
contents:=True, _
Scenarios:=True, _
UserInterfaceOnly:=True
End Sub

I didn't test it to see it 2468 should be entered with or without quotes.
You can play with that.


--
Regards,
Tom Ogilvy

"Brian" wrote in message
...
This is what i currently use to auto protect sheet, but i want to add a
password to this, (2468) so that the protection is password protected, but
i
do not know how
the current syntax can be adjusted to perform this request?
I tried to put a password on the regular way of protect and then entering
a
pword, however when the workbook opens up it goes into a debug error and I
have to have this sheet protected automatically because without it set up
that way one of my macros doesnt work.

Option Explicit

Private Sub Workbook_Open()
ThisWorkbook.Sheets("Patrol Log") _
.Protect DrawingObjects:=True, _
contents:=True, Scenarios:=True, _
UserInterfaceOnly:=True
End Sub

Works,
How can I add three more sheets to this syntax "report" "log" and "list"?



"Tom Ogilvy" wrote:

Private Sub Workbook_Open()
ThisWorkbook.Sheets("Patrol Log") _
.Protect Password:="2468", _
DrawingObjects:=True, _
contents:=True, _
Scenarios:=True, _
UserInterfaceOnly:=True
End Sub

I didn't test it to see it 2468 should be entered with or without quotes.
You can play with that.


--
Regards,
Tom Ogilvy

"Brian" wrote in message
...
This is what i currently use to auto protect sheet, but i want to add a
password to this, (2468) so that the protection is password protected, but
i
do not know how
the current syntax can be adjusted to perform this request?
I tried to put a password on the regular way of protect and then entering
a
pword, however when the workbook opens up it goes into a debug error and I
have to have this sheet protected automatically because without it set up
that way one of my macros doesnt work.

Option Explicit

Private Sub Workbook_Open()
ThisWorkbook.Sheets("Patrol Log") _
.Protect DrawingObjects:=True, _
contents:=True, Scenarios:=True, _
UserInterfaceOnly:=True
End Sub

Private Sub Workbook_Open()
Dim sh as Worksheet, varr as Variant
set sh = ThisWorkbook.Activesheet
varr = Array("Patrol Log", "report", "log", "list")
for i = lbound(varr) to ubound(varr)
With ThisWorkbook.Sheets(varr(i)) _
.Activate
.Protect Password:="2468", _
DrawingObjects:=True, _
contents:=True, _
Scenarios:=True, _
UserInterfaceOnly:=True
End With
Next
sh.Activate
End Sub

--
Regards,
Tom Ogilvy


"Brian" wrote in message
...

Works,
How can I add three more sheets to this syntax "report" "log" and "list"?



"Tom Ogilvy" wrote:

Private Sub Workbook_Open()
ThisWorkbook.Sheets("Patrol Log") _
.Protect Password:="2468", _
DrawingObjects:=True, _
contents:=True, _
Scenarios:=True, _
UserInterfaceOnly:=True
End Sub

I didn't test it to see it 2468 should be entered with or without
quotes.
You can play with that.


--
Regards,
Tom Ogilvy

"Brian" wrote in message
...
This is what i currently use to auto protect sheet, but i want to add
a
password to this, (2468) so that the protection is password protected,
but
i
do not know how
the current syntax can be adjusted to perform this request?
I tried to put a password on the regular way of protect and then
entering
a
pword, however when the workbook opens up it goes into a debug error
and I
have to have this sheet protected automatically because without it set
up
that way one of my macros doesnt work.

Option Explicit

Private Sub Workbook_Open()
ThisWorkbook.Sheets("Patrol Log") _
.Protect DrawingObjects:=True, _
contents:=True, Scenarios:=True, _
UserInterfaceOnly:=True
End Sub