Office: Fehler VBA bei geschützten Zellen

Hallo zusammen,

die Angehängte Datei funktioniert einwandfrei, bis ich der Datei einen Blattschutz gebe. Kann mir hier jemand helfen?

Besten Dank schon mal im Voraus

 

Moinsens!

Ich hab jetzt noch nicht in den VBA-Source reingesehen. Aber erster Schuß ins Blaue:

Wenn Du per VBA etwas in Zellen ändern willst, die im geschützten Blatt auf "gesperrt" stehen, dann mußt du per VBA vorher auch den Blattschutz entfernen und direkt danach ggf. also auch wieder setzen.

Code:

activesheet.unprotect
cells(13,45).value = "abc"
activesheet.protect

Die Parameter für (un)protect, wie z.B. das Passwort, sind in der Online-Hilfe beschrieben.

Gruß, Michael

 

Hi,

und WAS funktionert nicht? Deine Arbeitsmappe hat weder einen Blatt- noch einen Arbeitsmappenschutz - wie soll man da einen Fehler nachvollziehen können?

---

 

Moinsens!

Es braucht ungefähr 5 Sekunden, das zu erkennen...

Mappe öffnen
VBA-Editor öffnen
Ereignis (einziges!) "Worksheet Change" sehen
Anweisung "On Error" sehen
Sprungziel am Ende anschauen
Farbzuweisung auf Zelle sehen
VBA-Editor verlassen

Blattschutz aktivieren (er schrieb "funktioniert solange, bis Blattschutz...")
Jahreszahl in A5 ändern
Fehlermeldung in o.a. VBA-Zeile bekommen

Entspannt zurücklehnen und nochmal das lesen, was ich in meinem vorigen Posting schrieb...

BTW, McCallion: Durch das "On Error" siehst Du nicht, wo der eigentliche Fehler auftritt. Nur durch den Zufall, eine Anweisung, die ebenfalls einen Fehler aus gleichem Grund verursacht, direkt außerhalb des "On Error" zu haben, kriegst Du überhaupt den Hinweis darauf.

Die ganzen .Value und .Color Zuweisungen zwischen "On Error Goto" und "Err_Zelle:" sind alles Kandidaten für einen Laufzeit-Fehler. Durch das "On Error" wird dann aber direkt ans Ende der Routine verzweigt und das Blatt macht etwas (oder eben auch nicht), ohne daß Du einen Hinweis darauf bekommst.

Ich würde Dir empfehlen, das "On Error" komplett zu vermeiden und auf möglicherweise auftretende Fehler bereits im Vorweg zu reagieren, also z.B. Werte auf Gültigkeit prüfen, bevor Du sie verwendest, statt sie zu verwenden und den ggf. auftretenden Fehler dann von Excel abfangen zu lassen.

Gruß, Michael

 

Hi,

wozu muss man erst eine Mappe herunterladen und nach dem Fehler suchen, wenn man gleich zu Beginn im Beitrag genaue Auskünfte geben kann?

Bis später,
Karin