VBA til fjerne/aktivere arkbeskyttelse

Hejsa

Jeg vil gerne lave en knap som skal enten beskytte arket hvis det ikke er beskyttet eller fjerne arkbeskyttelse hvis arket er beskyttet.

Jeg har prøvet lidt forskellige VBA jeg får det bare ikke til at virke. Jeg har f.eks. prøvet denne her:

Sub testeren()
    If ActiveSheet.Unprotect = True Then
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
    False, AllowDeletingColumns:=True, AllowDeletingRows:=True, AllowFiltering _
    :=True
  End If
    ActiveSheet.Unprotect
End Sub