Protect ALL sheets in one coded macro
 

How can i word a code to protect ALL sheets in a workbook in a single step,
rather than individually?

Sub protect()
' Macro recorded 24-11-2006 by Corey
'
ThisWorkbook.Worksheets("Sheet 10").protect Password:="1234" ' <=== Some
thing like this workbook.worksheets(all).protect password:="1234"
ActiveSheet.protect
End Sub


How can i write this?

Corey....

Protect ALL sheets in one coded macro
 

Corey,

Sub Protect_All_Sheets()

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets

ws.Protect password:="1234"

Next ws

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


"Corey" wrote in message
...
How can i word a code to protect ALL sheets in a workbook in a single
step, rather than individually?

Sub protect()
' Macro recorded 24-11-2006 by Corey
'
ThisWorkbook.Worksheets("Sheet 10").protect Password:="1234" ' <=== Some
thing like this workbook.worksheets(all).protect password:="1234"
ActiveSheet.protect
End Sub


How can i write this?

Corey....

Protect ALL sheets in one coded macro
 

Give these a try...

Sub ProtectAll
dim wks as worksheet

for each wks in worksheets
wks.protect Password:="1234"
next wks
end sub

Sub UnProtectAll
dim wks as worksheet

for each wks in worksheets
wks.unprotect Password:="1234"
next wks
end sub
--
HTH...

Jim Thomlinson


"Corey" wrote:

How can i word a code to protect ALL sheets in a workbook in a single step,
rather than individually?

Sub protect()
' Macro recorded 24-11-2006 by Corey
'
ThisWorkbook.Worksheets("Sheet 10").protect Password:="1234" ' <=== Some
thing like this workbook.worksheets(all).protect password:="1234"
ActiveSheet.protect
End Sub


How can i write this?

Corey....

Protect ALL sheets in one coded macro
 

I have not tried this but it might work:

Sheets(Array("Sheet1","Sheet2", name each sheet in this manner)).protect
Password:="1234"

Else

x=1
for each sheet in workbooks
if x sheets.count then exit for
end if
Sheets(x).protect Password:="1234"
next x

--
Best wishes,

Jim


"Corey" wrote:

How can i word a code to protect ALL sheets in a workbook in a single step,
rather than individually?

Sub protect()
' Macro recorded 24-11-2006 by Corey
'
ThisWorkbook.Worksheets("Sheet 10").protect Password:="1234" ' <=== Some
thing like this workbook.worksheets(all).protect password:="1234"
ActiveSheet.protect
End Sub


How can i write this?

Corey....

Protect ALL sheets in one coded macro
 

thanks Paul.

I have placed a command button on sheet1 to call the code you posted, but it
seem to ONLY apply to the sheet1.
Although the code refers to all sheets?
Why would this be?
Corey....
"Paul B" wrote in message
...
Corey,

Sub Protect_All_Sheets()

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets

ws.Protect password:="1234"

Next ws

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


"Corey" wrote in message
...
How can i word a code to protect ALL sheets in a workbook in a single
step, rather than individually?

Sub protect()
' Macro recorded 24-11-2006 by Corey
'
ThisWorkbook.Worksheets("Sheet 10").protect Password:="1234" ' <=== Some
thing like this workbook.worksheets(all).protect password:="1234"
ActiveSheet.protect
End Sub


How can i write this?

Corey....

Protect ALL sheets in one coded macro
 

never mind.
worked it out.
Had cells selected as locked cells can be selected in some sheets.

Corey....
"Corey" wrote in message
...
thanks Paul.

I have placed a command button on sheet1 to call the code you posted, but
it seem to ONLY apply to the sheet1.
Although the code refers to all sheets?
Why would this be?
Corey....
"Paul B" wrote in message
...
Corey,

Sub Protect_All_Sheets()

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets

ws.Protect password:="1234"

Next ws

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


"Corey" wrote in message
...
How can i word a code to protect ALL sheets in a workbook in a single
step, rather than individually?

Sub protect()
' Macro recorded 24-11-2006 by Corey
'
ThisWorkbook.Worksheets("Sheet 10").protect Password:="1234" ' <=== Some
thing like this workbook.worksheets(all).protect password:="1234"
ActiveSheet.protect
End Sub


How can i write this?

Corey....