AutoFilter gebruiken in beveiligd werkblad (Excel2000)

[McMacro]

Beste Excellers,

Ik werk met Excel 2000, en wil graag AutoFilter Aan- en Uit zetten door middel van een 'Toggle-Button' in een beveiligd werkblad.

De Code werkt goed met betrekking tot het Aan- en Uitzetten van de AutoFilter in een door mij bepaalde Range, maar ik kan de AutoFilter dan niet meer gebruiken wanneer ik erop klik. Er zijn géén foutmeldingen. Als ik de 'ActiveSheet.Protect' weg haal functioneert wel alles, maar dan is het blad niet meer beveiligd.

Dit is de code die ik gebruik:

In ThisWorkbook:

Option Explicit
Private Sub Workbook_Open()
    With Sheets("Blad1")
        .Protect Userinterfaceonly:=True
        .EnableAutoFilter = True
    End With
'Application.ScreenUpdating = True
End Sub

In "Blad1":

Private Sub FilterAanUit_Click()
  Application.EnableEvents = False
   ActiveSheet.Unprotect
      If Not ActiveSheet.AutoFilterMode = True Then
         Range("A4:AG4").AutoFilter
'        Run "CountVisRows"
      ElseIf Not ActiveSheet.AutoFilterMode = False Then
         AutoFilterMode = False
      End If
   ActiveSheet.Protect
  Application.EnableEvents = True
End Sub

 

[HierEnNu]

Als je werkblad beveiligd is dan kun je er niets meer aan wijzigen. Da's het doel van beveiligen. Om het filter te kunnen gebruiken zul je dus de beveiliging moeten verwijderen.