autofilter en sorteren na beveiligen excel document.

[ozzyozzy]

Hoi allemaal, ik wou dat het autofilter en sorteren actief is. maar de autofilter gaat niet aan, na beveiligen van het document.
Iemand een idee waar het aan ligt?

  If target.Address(0, 0) = "FH10" Then
        Unprotect "test"
        Range("DO3:DX28").Locked = IIf(LCase(target.Value) = "ja", True, False)
        Protect "test", DrawingObjects:=False, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True
    End If

 

[JEC.]

Heb je de specifieke rij cellen van de autofilter wel unlocked?

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address(0, 0) = "A1" Then
    ActiveSheet.Unprotect "test"
    Range("D2:D3").Locked = IIf(LCase(Target.Value) = "ja", True, False)
    ActiveSheet.Protect "test", DrawingObjects:=False, Contents:=True, Scenarios:=True, AllowSorting:=True, AllowFiltering:=True, UserInterfaceOnly:=True
  End If
End Sub

 

[ozzyozzy]

bedankt is gelukt.