Replace a line in your code that would be similar to this


To Protect an active sheet

ActiveSheet.Protect PASSWORD:="Password Phrase Here",
DrawingObjects:=True, Contents:=True, Scenarios:=True

To Unprotect an active sheet

ActiveSheet.Unprotect PASSWORD:="Password Phrase Here"


---
Message posted from http://www.ExcelForum.com/