Sub serviceUnprotect()
On Error GoTo FOUT:

    Application.ScreenUpdating = False
   
Dim antwoord As String
   
    antwoord = InputBox("Geef het juiste paswoord.", "Paswoord om te deblokkeren")
    'Paswoord om te DEBLOKKEREN in pagina "service" die onzichtbaar is
    If antwoord = " " Then
    ElseIf antwoord = Sheets("Service").Range("E4") Then
   
Dim sh As Worksheet
For Each sh In Worksheets
    sh.Activate
    ActiveSheet.Unprotect Password:=Sheets("Service").Range("E4")
 
    ElseIf antwoord > "0" Then
        MsgBox "Geef juist paswoord!", vbOKOnly + vbCritical, ""
    End If
Exit Sub
FOUT:
    MsgBox "FOUT BIJ OPDRACHT! Foutnummer 101", vbOKOnly + vbCritical, ""
End Sub