Aussiebear with much effort did this macro and I could not finish it, I just do not understand it as you understand it. I do not know where and what must complete must complete to tell the macro - something like a selected sheet names to izplalni macro to hide and then pressing the second show hidden rows.
If there is anything that is not clear will try to explain more.
Perhaps what I write is nonsense, but something like:
Sub HideUnhidee()    
Application.ScreenUpdating = False
' for each sheet with name ("Moscow", "London" , "Italy", "New Zealand", etc.)
    If Range("4:4").EntireRow.Hidden = False Then 'Sub hide
        Rows("2:2").Select
        Selection.Locked = False
        Selection.FormulaHidden = False
        Range( _
        "4:4,5:5,10:10,11:11,13:13,14:14,17:17,18:18,34:34,35:35,38:38,45:45,46:46,49:49,50:50,72:72,73:73,76:76,77:77,78:78,79:79" _
        ).Select
        Range("A79").Activate
         
        Selection.EntireRow.Hidden = True
        Range("A3").Select
        ActiveSheet.Protect ("kosta"), DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFiltering:=True
        Application.ScreenUpdating = True
         
         
    Else 'Sub Unhide
' for each sheet with name ("Moscow", "London" , "Italy", "New Zealand", etc.)
        On Error GoTo ErrHandler
        ActiveSheet.Unprotect Password:=InputBox("Please write your password!")
        Cells.Select
        Selection.EntireRow.Hidden = False
        Range("A1").Select
        Exit Sub
ErrHandler:
        MsgBox "Wrong password", vbExclamation
         
         'ActiveSheet.Unprotect ("kosta")
        Application.ScreenUpdating = True
         
         
    End If
     
       
     
End Sub
You need this macro to function on several sheets when you push the button? - YES