Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA Code Blattschutz beim Schließen & Filter aktiv

VBA Code Blattschutz beim Schließen & Filter aktiv
22.06.2017 14:23:22
Bernd1501
Hallo Zusammen,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
VBA Code Blattschutz beim Schließen & Filter aktiv
22.06.2017 14:38:44
Hajo_Zi
Halo Bernd,
ich hätte das End Sub nach der Zeile Next geschrieben.
und der Code
Private Sub Workbook_BeforeClose(Cancel As Boolean)
fehlt

AW: VBA Code Blattschutz beim Schließen & Filter
22.06.2017 14:52:17
Bernd1501
Jetzt geht's.
Danke :-)
Anzeige

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige