Sub Кнопка212_Щелчок()
Dim IsProtected As Boolean
IsProtected = ActiveSheet.ProtectContents
If IsProtected Then ActiveSheet.Unprotect
            For k = 27 To 150
                    If Cells(10 + k, 8).Value = 0 And Cells(10 + k, 11).Value = 0 Then
                    Rows(10 + k).Select
                    Selection.EntireRow.Hidden = True
                End If
            Next k
If IsProtected Then ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub