VBA - Passwort wird nicht angenommen

Hallo, ich habe ein Makro um das Einblenden von Gruppen und Autofiltern bei Blattschutz zu ermö _ glichen.


Sub Workbook_Open()
ActiveSheet.Unprotect Password:="#Treu"
ActiveSheet.Protect userinterfaceonly:=True
ActiveSheet.EnableOutlining = True 'für Gliederung
ActiveSheet.EnableAutoFilter = True
ActiveSheet.Protect Password:="#Treu", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Allerdings ist nach Ausführen des Makros das Blatt ohne Password geschützt. Versteh ich nicht. Liegt das an dem "unserinterfaceonly:=True?"
Damit werden doch nur die Makros nicht geschützt?
Danke für jede Hilfe!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Workbook_Open() ActiveSheet.Unprotect Password:="#Treu" ActiveSheet.Protect userinterfaceonly:=True, Password:="#Treu" ActiveSheet.EnableOutlining = True 'für Gliederung ActiveSheet.EnableAutoFilter = True ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub

Sub Blatt_schützen_mit_Standardpasswort() ' Blatt_schützen_mit_Standardpasswort Makro ' Tastenkombination: Strg+b ActiveSheet.Protect userinterfaceonly:=True ActiveSheet.EnableOutlining = True ActiveSheet.EnableAutoFilter = True ActiveSheet.Protect Password:="#Treu", DrawingObjects:=True, Contents:=True, Scenarios:= _ True End Sub

Private Sub Workbook_Open() Dim objBlatt As Object For Each objBlatt In ThisWorkbook.Worksheets With objBlatt .Protect Password:="Kennwort", UserInterfaceOnly:=True, _ DrawingObjects:=True, Contents:=True, _ Scenarios:=True .EnableOutlining = True .EnableAutoFilter = True End With Next objBlatt End Sub VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Private Sub Workbook_Open() Dim objBlatt As Worksheet For Each Worksheet In ThisWorkbook.Worksheets With Worksheet .Protect Password:="#Treu", UserInterfaceOnly:=True, _ DrawingObjects:=True, Contents:=True, _ Scenarios:=True .EnableOutlining = True .EnableAutoFilter = True End With Next Worksheet End Sub

Beliebteste Forumthreads (12 Monate)

VBA - Passwort wird nicht angenommen

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

18 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA - Passwort wird nicht angenommen

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

18 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread