Blattschutz bringt Laufzeitfehler 1004 VBA Modul

Hallo Excel Fachleute,
ihr habt mir zweimal sehr geholfen in den letzen Wochen.
Einmal bei dem Problem Bedingte Formatierung von Zellen bei mehr als nur 3 Optionen durch VBA, und zum Zweiten durch eine VBA Programmierung zum setzen und entfernen eines Passwortes über mehrere Tabellenblätter.
Nun habe ich beide zusammengeführt in erst einem Modul und dann getrennt in zwei Modulen.
Nun zum Problem. Um das Handling zu vereinfachen. Habe ich zwei Wordart in der ersten Tabelle eingebaut. Einmal Blattschutz setzen und einmal Blattschutz löschen und habe ihnen entsprechend die Makros zugewiesen.
Das automatische Einfärben der Zellen erfolgt lediglich in einer Spalte einiger Datenblätter, wenn man gewisse Daten eingibt. Also Zeichen UR und die Zelle färbt sich entsprechend der Einfärbung die in Tabellenblatt Legende steht. Funktioniert super, bis..ich den Blattschutz setze.
Wenn ich über alle Tabellen einen Blattschutz gesetzt habe, kommt nun die Meldung
Laufzeitfehler 1004 - Die ColorIndex-Eigenschaft des Interior-Objektes kann nicht festgelegt werden.
Dann habe ich nur die Optionen - BEENDEN Debuggen und Hilfe.
Wenn ich auf debuggen gehe, geht der Hinweis ins Modul 2
Zum Eintrag.
rngBereich.Interior.ColorIndex = xlNone
Und hier komme ich nicht weiter. Was kann man tun, damit die VBA Formatierung ach funktioniert wenn die VBA Schutz gesetzt ist?
Ich würde mich sehr über eure Hilfe freuen.
Zum besseren Verständnis lade ich euch eine Testdatei hoch. Musste sie aber wegen der 300 KB sehr verkleinern, bitte nicht wundern.
Hier findet sie hier:
https://www.herber.de/bbs/user/84460.xls
Viele Grüße Rolf

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Also ich möchte eigentlich nichts programmieren Luc. Ich möchte nur eben die beiden guten Hilfen die ichhier in Form von MAkros (ich hoffe das ist der richtige Begriff) bekommen habe, zusammen nutzen können.
Also den VBA Editor kenne ich. Aber VBA eben nicht. Und da ich nur Excel Anwender bin, werde ich mich wohl in die Programmierung nicht tiefer einarbeiten. Das überlasse ich wirklich lieber solchen Leuten wie dir, die Excel gut kennen wollen. Schuster bleib bei deinem Leisten, sag ich da nur. Das traue ich mir in 10 Jahren nicht zu.
Ich arbeite zu Hause mit Excel XP und im Büro mit Excel 10.
Was ich wissen möchte ist....ob ich einen manuellen Befehl in Excle XP, wie also Extras, Schutz, Blatt schützen - dann Alle Nutzer dieses Blattes dürfen z.B. Zellen formatieren, auch in dem Makro mit einbauen kann.
Ich kopiere es mal hier mit rein....

Sub Aufheben()
Dim StrEing As String
StrEing = InputBox("Passwort ?")
On Error GoTo Errorhandler
For I = 1 To Sheets.Count
Sheets(I).Unprotect StrEing
Next I
Exit Sub
Errorhandler:
MsgBox "Falsches Passwort !"
End Sub

Sub Schutz()
For I = 1 To Sheets.Count
Sheets(I).Protect ("test")
Next I
End Sub

Weil wenn ich den Blattschutz manuell setze, und eben diese o.g. Option setze, funktioniert auch meine automatische Bedingte Formatierung eins A.
Lasse ich aber das o.g. Makro durchlaufen, bekomme ich den Laufzeitfehler.
Vielleicht ist da snur eine Zeile wie...."ZellFormatierung zulassen" oder dergleichen.
Aber das bekomme ich eben nicht hin.
Generell sind die Zellen die in denen die bedingte Formatierung durchgeführt werden soll, aber auch nicht gesperrt. Auch nicht nach setzen des Blattschutzes. Und deswegen weiß ich auch nicht ob ich den Fehler überhaupt richtig begriffen habe. Vielleicht stimmt mein Lösungsansatz schon nicht.
Gruß Rolf

Sub Schutz() Protect Password:="test", DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFormattingCells:=True, UserInterfaceOnly:=True For I = 1 To Sheets.Count Sheets(I).Protect ("test") Next I End Sub

Sub Schutz() For I = 1 To Sheets.Count Sheets(I).Protect Password:="test", DrawingObjects:=True, Contents:=True, Scenarios:=True, _ _ AllowFormattingCells:=True, UserInterfaceOnly:=True Next I End Sub

Beliebteste Forumthreads (12 Monate)

Blattschutz bringt Laufzeitfehler 1004 VBA Modul

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

27 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Blattschutz bringt Laufzeitfehler 1004 VBA Modul

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

27 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread