Remove password protection

**dgaller** · 03-16-2012, 11:04 AM

I have a workbook with the following code. Is there a way to add to it to skip if the protection is not set on the worksheet? Currently if it isn't locked it will lock it when opened.

Private Sub Workbook_Open()
        With Sheets("Award_Work_Sheet")
        .Unprotect Password:="homer"
       .Protect Password:="homer", UserInterfaceOnly:=True, AllowFormattingCells:=True,_
        AllowFormattingColumns:=True, AllowFormattingRows:=True, AllowFiltering:=True, AllowSorting:=True
       .EnableOutlining = True
    End With
End Sub

**JBeaucaire** · 03-16-2012, 11:18 AM

Private Sub Workbook_Open()
    With Sheets("Award_Work_Sheet")
        If .ProtectContents = True Then
            .Unprotect Password:="homer"
            .Protect Password:="homer", UserInterfaceOnly:=True, _
                                        AllowFormattingCells:=True, _
                                        AllowFormattingColumns:=True, _
                                        AllowFormattingRows:=True, _
                                        AllowFiltering:=True, _
                                        AllowSorting:=True
            .EnableOutlining = True
        End If
    End With
End Sub