Remove Sheet Passwords

This takes the password off of sheets in excel to allow for sheet editing. It does not always work but does sometimes.

Sub SheetPassword ActiveSheet.Protect "",, , , True ActiveSheet.Range("a1").Copy ActiveSheet.Range("a1") End Sub

Code Snippits