Passwortsperre per Makro
18.04.2016 17:24:51
Christian
ich habe in einem Makro im Aktiven Arbeitsblatt folgenden Code:
Sub Passwort()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Protect userinterfaceonly:=True, Password:="PASSWORT", DrawingObjects:=True, Contents:= _
_
True, Scenarios:=True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True
ws.EnableAutoFilter = True 'ermöglicht Autofilter
ws.EnableOutlining = True 'ermöglicht Gruppierung/Gliederung
Next ws
End Sub
Ich möchte damit sämtlichen Arbeitsblätter sperren und nur die nicht gesperrten Zellen bearbeiten lassen. Damit der Schutz auch automatisch greift, sollte ich selber mal den Blattschutz aufheben und vergessen ihn wieder einzuschalten, greift das Makro ebenfalls.Problem ist nur, dass nach dem öffnen der Datei zwar Zellen ausgewählt werden können und auch darun gearbeitet werden kann, aber die Zelle ist nicht als aktiv gekennzeichnet (also der Rahmen um die Zelle fehlt).
Erst wenn ich auf ein anderes Blatt wechsel und wieder zurück, werden die angeklicken Zellen auch optisch aktiviert. Woran kann das liegen?
Danke für eure Antworten :)