Option Explicit

Sub poslednaproba()
Dim RowsToHide As String
Dim SheetsToUse As Variant
Dim ThePassWord As String
Dim TestSheet As String
Dim i As Long

RowsToHide = "4:5, 10:11, 13:14, 17:18, 34:35, 38:38, 45:46, 49:50, 72:73, 76:79"
SheetsToUse = Array("London", "Italy", "Paris", "UK", "Greece")
TestSheet = "London"
    Application.ScreenUpdating = False
    ThePassWord = InputBox("Please write your password!")
    
    'Test Password
    On Error GoTo ErrHandler
    Sheets(TestSheet).Unprotect Password:=ThePassWord
    
    'Check if Rows are hidden
    If Sheets(TestSheet).Range("4:4").EntireRow.Hidden = False Then
      GoTo HideSheets
    Else
      GotoUnHideSheets
    End If

HideSheets:
  For i = LBound(SheetsToUse) To UBound(SheetsToUse)
      With Sheets(SheetsToUse(i))
        .Unprotect Password:=ThePassWord
        .Rows("2:2").Locked = False
        .FormulaHidden = False
        .Range(RowsToHide).EntireRow.Hidden = True
        .Range("A1").Select
        .Protect (ThePassWord), DrawingObjects:=True, Contents:=True, _
                              Scenarios:=True, AllowFiltering:=True
      End With
  Next i
  GoTo GracefulExit 'Done hiding sheets

UnHideSheets:
  For i = LBound(SheetsToUse) To UBound(SheetsToUse)
      With Sheets(SheetsToUse(i))
        .Unprotect Password:=ThePassWord
        .Range(RowsToHide).EntireRow.Hidden = False
        .FormulaHidden = True
        .Rows("2:2").Locked = True
        .Protect (ThePassWrod), DrawingObjects:=True, Contents:=True, _
                              Scenarios:=True, AllowFiltering:=True
        .Range("A1").Select
      End With
  Next i
  
GracefulExit: '
    Application.ScreenUpdating = True
    Exit Sub
    
ErrHandler:
    MsgBox "Wrong password", vbExclamation
    On Error GoTo 0 'Clear the error
    Application.ScreenUpdating = True
End Sub