That doesn't work in XP & up, sorry.
--
HTH. Best wishes Harald
Followup to newsgroup only please.

"Paul P" wrote in message
...
Sub SheetPassword()
ActiveSheet.Protect "", , , , True
ActiveSheet.Range("a1").Copy ActiveSheet.Range("a1")
End Sub


It has worked on all types of Worksheet password.