What am I doing wrong? (Unprotecting worksheet from other doc)

[bazzlad]

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!!!

[Tarball]

Are you attempting to open a workbook from code in a seperate workbook? Then, once open, make sure that the Protection in the workbook that was just opened has been turned off?

This was not tested. You should make sure you are referencing the sheets in the Workbook that you want to manipulate.

    Dim wb As Workbook
    Dim ws as Worksheet

    wb = Excel.Workbooks.Open(fullPath)
    Set ws = wb.Sheets(SheeetName)
    
    If ws.ProtectContents = True Then
        MsgBox "still locked"
    Else
        MsgBox "open"
    End If