Format - Zelle - Schutz

Forumthread: Format - Zelle - Schutz
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Format - Zelle - Schutz

erwin.geer

Guten Abend Foum,
ich habe mit dem Makrorecorder folgendes aufgezeichnet:
Sheets("Hinweise").Select
Cells.Select
Selection.FormulaHidden = False
Range("B4").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
...nächstes Sheet...
Wenn ich das 1. Mal das Makro laufen lasse geht es, beim 2. Mal erscheint bei der 3. Zeile der
Laufzeitfehler 1004: "Die Locked-Eigenschaft des Range-Objektes kann nicht festgelegt werden."
Also ich glaube, dass ich was brauche, um die "Selection.FormulaHidden = False" zu umgehen,
wenn ich das Makro schon mal habe laufen lassen.
Wer kann mir hier bitte helfen?
Grüße Erwin

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Format - Zelle - Schutz

Reinhard
AW: Format - Zelle - Schutz

erwin.geer

AW: Format - Zelle - Schutz

07.04.2010 00:03:23

Reinhard

Hallo Erwin,

Sub Makro1()
With Sheets("Hinweise")
.Unprotect
.Cells.FormulaHidden = False
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
End Sub

Gruß
Reinhard

AW: Format - Zelle - Schutz

07.04.2010 00:22:36

erwin.geer

Hallo Reinhard,
herzlichen Dank, funktioniert einwandfrei.
Grüße Erwin