I want to write a macro that unprotects a document when the Workbook opens
up. I know the password of the Workbook, but the code I have does not work.
Here's what I have:

Sub ThisWorkbook_Open()
ActiveWorkbook.Unprotect Password:="1234"
End Sub