Moin Leute,
ich habe schon alle Foren durchgesucht und habe bisher noch keine Lösung für mein Problem gefunden.
Zum Thema: Ich habe eine Userform erstellt, die Daten in eine Tabelle schreibt. Da viele Kollegen auf diese Datei Zugriff haben und diese nicht verändern sollen, wird das Tabellenblatt nach der Eingabe der Daten mit einem Passwort geschützt (Blatt schützen). Nun möchten einige Kollegen die Daten nach Datum filtern. Um dies zu ermöglichen habe ich den unten abgebildeten Code (Autofilter erlauben) eingefügt.
Der Autofilter lässt sich jetzt zwar öffnen und ein Datum oder Monat auch auswählen, jedoch wird die Auswahl nicht angezeigt. Es werden weiterhin alle Daten angezeigt.
Hat einer von Euch eine Lösung?
Autofilter erlauben
Sheets("Wiegeprotokolle").Protect userinterfaceonly:=True, Password:="test"
Sheets("Wiegeprotokolle").EnableOutlining = True
Sheets("Wiegeprotokolle").EnableAutoFilter = True
Blatt schützen
Dim arrProtect, wks2 As Worksheet
arrProtect = Array("Tabellenblatt")
For Each wks2 In Worksheets
If Not IsError(Application.Match(wks2.Name, arrProtect, 0)) Then
wks2.Protect "test"
End If
Next wks2
End With
End Sub
Danke für die Hilfe!