for worksheets without a password:

Sub UnlockSheet()
Worksheets('sheetname').Unprotect
End Sub

or if it has password

Sub UnlockSheet()
Worksheet('sheetname').Unprotect password:="password"
End Sub

"FARAZ QURESHI" wrote:

HELP! HELP! HELP!
I have a workbook with its structure locked. How to unprotect a workbook by
macro?