Autofilter nicht aktiv nach "BeforeClose"
01.04.2009 08:09:13
Uli
1. Gruppe - Dürfen Neueinträge machen, dazu wird über einen Button der Blattschutz aufgehoben. Dieser Teil ist erledigt und funktioniert.
2. Gruppe darf ohne Blattschutz aufheben nur in freigegebenen Zellen Eingaben machen. Auch das funtioniert.
Da aber bei der Gruppe 1 es passieren kann, dass der Blattschutz nicht mehr aktiviert wird, habe ich (dank diesem Forum) im VBA Befehl eingefügt, dass beim Schliessen automatisch der Blattschutz mit Passwort aktiviert wird.
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim WsTabelle As Worksheet
For Each WsTabelle In Sheets
WsTabelle.Protect ("401")
Next WsTabelle
End Sub
Mein Problem ist jetzt aber, dass der Autofilter NICHT aktiv ist, aber die Gruppe 2 den braucht.
ist das verständlich was ich meine? Wer hat hier eine Idee?
danke, Uli