freigegebene Datei + Blattschschutz
16.03.2017 12:58:20
Martin
Mit diesem Code in DieseArbeitsmappe kann ich den Autofilter zurücksetzen:
Public Sub Reset_Autofilter()
On Error GoTo Fehler
ActiveSheet.Unprotect (1234)
ActiveSheet.ShowAllData
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True, Password:="1234"
Exit Sub
Fehler:
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True, Password:="1234"
End Sub
Das geht aber nicht mehr, wenn die Datei freigegeben wird, da dann die Funktion zum Aufheben des Blattschutzes ausgegraut ist. Es kommt dann Fehler 400, was in diesem Fall "Die Unprotect Methode des Worksheet Objekts konnte nicht ausgeführt werden" bedeutet.
Die Freigabe jedesmal per Makro kurz auszuschalten ist keine Option.
Jemand noch eine Idee, ob und wie man das lösen kann?