Try
Dim wsSheet As Worksheet For Each wsSheet In Worksheets wsSheet.Unprotect wsSheet.Protect DrawingObjects:=False, UserInterfaceOnly:=True Next