Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rCell As Range
    With Sheets("итоги")
        For Each rCell In .Cells(.UsedRange.Row, 1).Resize(.UsedRange.Rows.Count)
            If Not IsEmpty(rCell) Then rCell.EntireRow.Hidden = IIf(rCell.Value = 0, True, False)
        Next rCell
    End With
End Sub

Sub Click_2014()
Worksheets("итоги").Unprotect Password:="123456"
Columns("J:V").Hidden = IIf(Columns("J:V").Hidden, False, True)
Worksheets("итоги").Protect Password:="123456"
End Sub

For Each rCell In .Range("A10:A40, A45:A60, A70:A90")

For Each Sh In Array("итоги", "итоги_2", ... , "итоги_n")

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rCell As Range, Sh As Variant
    For Each Sh In Array("итоги", "итоги_2")
        For Each rCell In Sheets(Sh).Range("A6:A19, A24:A37")
            If Not IsEmpty(rCell) Then rCell.EntireRow.Hidden = IIf(rCell.Value = 0, True, False)
        Next rCell
    Next Sh
End Sub

Public vid As Boolean 'значение true или false (дополнительно передаем переменную на кнопку)
Sub скрытие_отображение()
    Dim irows As Range
    Dim inabor As Range
    
    name_ch = "итоги" 'здесь мы будем присваивать имя листа
    On Error Resume Next 'защита от ошибки, если условие не выполнится ни разу
    
    Worksheets(name_ch).Unprotect Password:="123456"
    
    For i = 5 To 100 'пребор строк с 5 по 100
     If Worksheets(name_ch).Cells(i, 1) > 5 Then 'любое условие для скрытия/отображения из 1 столбца
      Set irows = Worksheets(name_ch).Rows(i & ":" & i) 'запоминаем строку, если сработало условие
       If inabor Is Nothing Then 'условие для задания первой строки и последующего добавления новых строк
       Set inabor = irows 'задаем первую строку в пустой набор
       Else
       Set inabor = Union(inabor, irows) 'добавляем строки по условию к существующему набору
       End If
     End If
    Next i
       
    inabor.EntireRow.Hidden = vid 'скрываем/отображаем наш набор строк
    
    Worksheets(name_ch).Protect Password:="123456"
End Sub

Private Sub CommandButton1_Click()
Worksheets("итоги").Unprotect Password:="123456"
If vid = False Then
vid = True
Else
vid = False
End If
скрытие_отображение
End Sub

Select Case Sh
    Case "итоги"
        strRange = "A6:A19"
    Case "итоги_2"
        strRange = "A24:A37"
End Select

Worksheets(Sh).Protect Password:="123456", UserInterfaceOnly:=True

Private Sub Workbook_Open()
    Dim Sh As Variant
    For Each Sh In Array("итоги", "итоги_2")
        Worksheets(Sh).Protect Password:="123456", UserInterfaceOnly:=True
    Next Sh
End Sub

ActiveSheet.Protect Password:="1111", UserInterfaceOnly:=True

Worksheets(Sh).Protect Password:="123456", UserInterfaceOnly:=True

Worksheets(Sh).Unprotect Password:="123456"

Sub TestShNames()
    On Error Resume Next
    Dim Sh As Variant
    For Each Sh In Array("итоги", "итоги_2")
        Worksheets(Sh).Unprotect Password:="123456"
        Worksheets(Sh).Protect Password:="123456", UserInterfaceOnly:=True
        If Err Then MsgBox Sh, vbCritical: Err.Clear
    Next Sh
    On Error GoTo 0
End Sub