ist es möglich das CHANGE ereignis zu sperren wenn AUTOFILTER im Blatt aktiv ?
habe ein Makro für Autofilter aber bei CHANGE Ereignis gibt es Problem während Filter benötige ich aber CHANGE nicht.
DANKE für Antwort
gruss helena
If ActiveSheet.AutoFilterMode Then Exit Sub
Sub Filter2()
Dim passwort As Variant
Dim passwort2 As Variant
passwort = InputBox("Bitte Passwort eingeben")
passwort2 = "xxx"
If passwort <> passwort2 Then
MsgBox ("Falsches Passwort!")
Exit Sub
End If
ActiveSheet.Protect userInterfaceOnly:=True
ActiveSheet.EnableAutoFilter = True
Range("A3:AD3").Select
Selection.AutoFilter
ActiveSheet.Protect Password:="xxx"
End Sub
Sub Filter2()
Dim passwort, passwort2 As Variant
passwort2 = "xxx"
passwort = InputBox("Bitte Passwort eingeben")
If passwort <> passwort2 Then
MsgBox ("Falsches Passwort!")
Exit Sub
End If
Range("A3:AD3").AutoFilter
ActiveSheet.EnableAutoFilter = True
ActiveSheet.Protect userInterfaceOnly:=True, password:=passwort2
End Sub
Sub Filter2()
ActiveSheet.Unprotect ("xxx")
Range("A3:AD3").Select
ActiveSheet.Protect userInterfaceOnly:=True
ActiveSheet.EnableAutoFilter = True
Selection.AutoFilter
Range("A1").Select
End Sub