unprotecting sheets
 

I am searching for code that will protect and unprotect
ALL worksheets in the workbook. Any help?

unprotecting sheets
 

Hi, One. Try at Dave Hawley's site:
http://www.ozgrid.com/VBA/excel-work...rotect-all.htm
<-*-<-*-<-*-<-*-<-*-<-*-<-*-<-*-
Hope this helps!
Anne Troy (better known as Dreamboat)
Author: Dreamboat on Word
Email: Dreamboat*at*Piersontech.com
Web: www.TheOfficeExperts.com
<-*-<-*-<-*-<-*-<-*-<-*-<-*-<-*-
"one" wrote in message
...
I am searching for code that will protect and unprotect
ALL worksheets in the workbook. Any help?

unprotecting sheets
 

Hi
try something like the following:

sub protect_all()
dim wks as worksheet
for each wks in worksheets
wks.protect password:="yourpassword"
next
end sub

sub unprotect_all()
dim wks as worksheet
for each wks in worksheets
wks.unprotect password:="yourpassword"
next
end sub


--
Regards
Frank Kabel
Frankfurt, Germany


one wrote:
I am searching for code that will protect and unprotect
ALL worksheets in the workbook. Any help?