Worksheet Protection
 

Good day to all

I have so many worksheet to protect. How do I protect them all together
with a single operation (no need to go to each worksheet and do the
protection).

Thank You for help

Worksheet Protection
 

This can be done with only a VBA procedu

Sub ProtectAll()
Dim WS As Worksheet
For Each WS In ActiveWorkbook.Worksheets
WS.Protect Password:="OptionalPassword"
Next WS
End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
(email address is on the web site)


"faeiz2" wrote in message
ups.com...
Good day to all

I have so many worksheet to protect. How do I protect them all together
with a single operation (no need to go to each worksheet and do the
protection).

Thank You for help

Worksheet Protection
 

Press Alt and F11 together to open the VB Editor
Click 'Insert' 'Module'
In the empty window on the right, copy and paste this code,

Sub Protect()
Dim WK As Worksheet
For Each WK In ThisWorkbook.Worksheets
WK.Protect Password:="password"
Next WK
End Sub

Sub Unprotect()
Dim WK As Worksheet
For Each WK In ThisWorkbook.Worksheets
WK.Unprotect Password:="password"
Next WK
End Sub


Hit Alt and F11 to close the VB Editor

Go 'Tools' 'Macro's

'Protect' will protect all sheets, 'Unprotect' will unprotect all sheets.
Alter the password as required.

You can assign the macro's to buttons via the 'View' 'Toolbars' 'Forms'
menu,
Regards,
Alan.


"faeiz2" wrote in message
ups.com...
Good day to all

I have so many worksheet to protect. How do I protect them all together
with a single operation (no need to go to each worksheet and do the
protection).

Thank You for help

Worksheet Protection
 

Thanks a million.

Alan wrote:
Press Alt and F11 together to open the VB Editor
Click 'Insert' 'Module'
In the empty window on the right, copy and paste this code,

Sub Protect()
Dim WK As Worksheet
For Each WK In ThisWorkbook.Worksheets
WK.Protect Password:="password"
Next WK
End Sub

Sub Unprotect()
Dim WK As Worksheet
For Each WK In ThisWorkbook.Worksheets
WK.Unprotect Password:="password"
Next WK
End Sub


Hit Alt and F11 to close the VB Editor

Go 'Tools' 'Macro's

'Protect' will protect all sheets, 'Unprotect' will unprotect all sheets.
Alter the password as required.

You can assign the macro's to buttons via the 'View' 'Toolbars' 'Forms'
menu,
Regards,
Alan.


"faeiz2" wrote in message
ups.com...
Good day to all

I have so many worksheet to protect. How do I protect them all together
with a single operation (no need to go to each worksheet and do the
protection).

Thank You for help