Blattschutz - variable Autofilterung
25.02.2019 13:20:26
Alex
Ich schicke eine Datei an mehrere hundert Projektleiter. Die Datei filtert immer nach dem Namen(GetUserLogonName). Allerdings will ich einen Blattschutz einfügen, dass nur bestimmte Bereiche bearbeitet werden können, da ich alles automatisiert habe. Das Passwort soll nicht mitgesendet werden. Die Datei wird von einer Quell-Datei erstellt, nur ein bestimmter Macrocode für die Login Abfrage wird eingefügt.
Bisher wird der Blattschutz über die Quell-Datei wie folgt erstellt:
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, userInterfaceOnly:= _
True, _
AllowFormattingCells:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True, _
AllowInsertingColumns:=False, AllowInsertingRows:=False, AllowInsertingHyperlinks:=True, _
AllowDeletingColumns:=False, _
AllowDeletingRows:=False, AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True, _
Password:="ABCD"
ActiveSheet.EnableSelection = xlNoRestrictions
der folgende Code in der neuen Datei funktioniert nicht:
If MsgBox("Sollen die Projekte auf den Projektleiter: " & Chr(10) & Chr(10) & sName & Chr( _
10) & Chr(10) & " gefiltert werden?", vbYesNo, "Projektleiter filtern") = vbYes _
Then
If ActiveSheet.AutoFilterMode Then