makropoblem in excel

hallo,

ich brauche nochmal hilfe bei einem makro in excel 2002.

ich versuche ein makro zu erstellen, daß alle zellen in der arbeitsmappe überprüft, ob ein schreibschutz vorhanden ist.
falls kein schreibschutz vorhanden ist, soll die zelle gelb gefärbt werden.

dummerweise klappt es bei mir bisher nicht.


vielen dank schon mal für eure hilfe

Ola,

dauert, der Profi ist in Urlaub

das ist ja ärgerlich :

aber wer gibt dem profi auch urlaub, wenn er hier gebraucht wird?


na ja, er wird sich den urlaub ja verdient haben ;D

so,

nach langem ausprobieren, habe ich die lösung dann doch noch gefunden! ;D

als nachtrag noch das makro:

Sub offenezellen_markieren()

Dim blatt As Worksheet
Dim zelle As Range

For Each blatt In ActiveWorkbook.Worksheets
blatt.Activate
blatt.Unprotect
For Each zelle In blatt.UsedRange
If zelle.Locked = False Then
zelle.Interior.ColorIndex = 36
End If
Next
Next
Set blatt = Nothing: Set zelle = Nothing
MsgBox ich habe fertig!, , info

End Sub

Ola,

siehst Du, geht doch auch ohne Hilfe ;D