Makes sence. Where is this sheet.
Code:
    With Worksheets("LENTICULAR-MEMBRANES")
        .Unprotect Password:="1357"
        .Protect UserInterfaceOnly:=True, Password:="1357"
    End With
Also you use the Tag-property to check for empty objects but in not one object you've filled in the Tag-property. In this case this will never work properly.