| VBA-Beispiel 063 | |
|
|
alle Zellen ohne Schreibschutz farblich hervorheben |
|
| Alle Zellen in denen eine Eingabe möglich ist, werden grün angemalt. | |
|
Sub Zellen_ohne_Schreibschutz() Dim Zelle As Range Sheets("Tabelle1").Unprotect Password:="blau" Cells.Interior.ColorIndex = xlNone For Each Zelle In ActiveSheet.UsedRange If Zelle.Locked = False Then Zelle.Interior.ColorIndex = 35 End If Next Zelle Sheets("Tabelle1").Protect Password:="blau" End Sub |
|
|
Download: vba063.zip |
|
relevante Links:
|
|
| |