Try:
Password = "maw3327"
ActiveSheet.Protect Password, True, True, True
Password = "maw3327"
ActiveSheet.Unprotect Password
--
Losse
------------------------------------------------------------------------
Losse's Profile:
http://www.excelforum.com/member.php...o&userid=24813
View this thread:
http://www.excelforum.com/showthread...hreadid=388272