Sub BeveiligAlleSheets()
Dim strPassword As String, sOpmerking As String
Dim ws As Worksheet

    Application.ScreenUpdating = False
     
    For Each ws In ThisWorkbook.Sheets
        'bepaal of de sheet beveiligd is...
        x = False
   
        If ws.ProtectContents Then x = True
        If ws.ProtectDrawingObjects Then x = True
        If ws.ProtectScenarios Then x = True
       
        sOpmerking = IIf(x = False, "beveiliging", "vrijgave")
           
        strPassword = InputBox("Vul paswoord in voor " & sOpmerking & " van het bestand", UCase(sOpmerking) & "...")
       
        If x = False Then 'sheet is onbeveiligd!
            If ws.Name = "HOME" Then   'ff niet beveiligen... anders lukt de knopaanpassing niet!
                ws.Shapes("Knoppie").Select
                Selection.Text = "Unprotect All"
            End If
            ws.Protect Password:=strPassword, userinterfaceonly:=True
            ws.EnableSelection = xlNoSelection
        Else:
            On Error GoTo Foutmelding
            ws.Unprotect Password:=strPassword
            If ws.Name = "HOME" Then
                ws.Shapes("Knoppie").Select
                Selection.Text = "Protect All"
                Range("A1").Select
            End If
        End If
    Next

    Application.ScreenUpdating = True

Foutmelding:
    If Err.Number = 1004 Then
        MsgBox "Sorry, Verkeerd paswoord !!! Probeer opnieuw.", 16, "Markata"
    End If
   
End Sub