Blätter schützen über CommandButton?
11.03.2004 12:02:45
Tackerharry
Ich möchte bei einer Arbeitsmappe per CommandButton auf dem ersten Blatt alle anderen Blätter auf einmal (mit immer dem gleichen Passwort - nehmen wir mal "Schutz") mit folgenden Parametern schützen, wobei das erste Blatt schon geschützt ist (ich weis nicht ob das wichtig ist). Mit einem weiteren CommandButton auf dem ersten Blatt möchte ich dieses ausblenden, danach die Arbeitsmappe schützen (gleiches Passwort wie restliche Blätter) und der Dialog "Speichern unter" soll sich öffnen. Leider habe ich nicht viel Ahnung von VBA und mit dem üblichen Macro aufzeichnen bin ich auch nicht weiter gekommen. Kann mir Jemand helfen?
DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingColumns:=True
ActiveSheet.EnableSelection = xlUnlockedCells
Vielen Dank schon mal.
mfg
Tackerharry