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:
In "Blad1":
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:
Code:
Option Explicit
Private Sub Workbook_Open()
With Sheets("Blad1")
.Protect Userinterfaceonly:=True
.EnableAutoFilter = True
End With
'Application.ScreenUpdating = True
End Sub
In "Blad1":
Code:
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