Hallo zusammen,
habe folgendes Problem.
Ich tu über einen VBA Code den Blattschutz aufheben, verschiedene Zellen bearbeiten und danach wieder Schreibschützen wobei der Autofilter den ich verwende noch gehen soll.
hier ein Teil des Codes den ich verwende:
Sub schützen()
'aktuelle Zeile einlesen
i = ActiveCell.Row
'aktive Zelle abfragen ob leer
ActiveSheet.Cells(i, 3).Select
If ActiveCell = „“ Then
MsgBox „Angabe ‚ja‘ zum speichern fehlt!“
Exit Sub
End If
'Wenn aktive Zeile speichern = Ja dann
If ActiveCell = „ja“ Then
'Schreibschutz aufheben
ActiveSheet.Unprotect „PW“
'Aktive Zelle Hintergrundfarbe ändern
ActiveCell.Interior.ColorIndex = 4
'Wert in aktiver Zelle ändern
ActiveSheet.Cells(i, 2).Select
ActiveCell = „x“
'Meldungen deaktivieren
Application.DisplayAlerts = False
'Sicherungskopie erstellen
ActiveWorkbook.SaveCopyAs Filename:=„Pfad + Dateiname“
'Meldungen wieder aktivieren
Application.DisplayAlerts = True
'aktive Tabelle sperren
Rows(ActiveCell.Row).Locked = True
'Bereiche auswählen die nicht schreibgeschützt sein sollen.
Worksheets(1).Range(„c7:c10005“).Locked = False
ActiveSheet.Cells(i, 3).Select
ActiveSheet.EnableAutoFilter = True
'Schreibschutz setzen
ActiveSheet.Protect „PW“
End If
ActiveWorkbook.Save
End Sub
Hier steht jetzt am Ende vor Schreibschutz setzen:
ActiveSheet.EnableAutoFilter = True
Problem ist aber das der Autofilter danach trotzdem nicht funktioniert.
Wo liegt mein Problem?
Wäre super wenn mir hierzu jemand helfen kann.
mfg Euer Sumpfbiber