VBA Code Blattschutz beim Schließen & Filter aktiv
22.06.2017 14:23:22
Bernd1501
ich würde gerne folgende Aktionen beim Öffnen bzw. beim Schließen einer Datei mittel Makro umsetzen:
Beim öffnen:
der Autofilter soll trotz Blattschutz (mit Kennwort) aktiv sein
Beim Schließen:
der Blattschutz soll beim Schließen wieder aktiviert werden, falls jemand dies mal vergisst. Auch wieder mit Kennwort
Ich habe folgende Codes die einzeln klappen aber nicht gemeinsam bzw. nicht wo (diese _ Arbeitsmappe oder Modul) ich was einfügen muss.
Sub Workbook_Open()
ActiveSheet.Protect userinterfaceonly:=True, Password:="password"
ActiveSheet.EnableOutlining = True 'für Gliederung
ActiveSheet.EnableAutoFilter = True 'für Autofilter
End Sub
Dim WsTabelle As Worksheet
For Each WsTabelle In Sheets
WsTabelle.Protect ("Password")
Next WsTabelle
Danke schon mal für euern Support.
Grüße,
Bernd