Dim sheet2 As String
sheet2 = "C:\Documents and Settings\MIS_RBH.MOBILERS\Desktop\Excel Project\Markup.xls"
    
Workbooks.Open (sheet2)

Dim password As String
password = "mobilers"

'start

ActiveWorkbook.Sheet1.Unprotect password

' I also tried - 

'    For Each wSheet In Worksheets
'        If wSheet.ProtectContents = True Then
'            wSheet.Unprotect password:=password
'        Else
'
'         ' Do nothing
'
'        End If
'    Next wSheet


If wSheet.ProtectContents = True Then

MsgBox "still locked"

Exit Sub

Else

MsgBox "open"

Exit Sub
End If
Anybody help me? Please!!!