Supportnet / Forum / Tabellenkalkulation
Blattschutz
Frage
Hallo, gibt es eine möglichkeit , bei eingeschaltetem Blattschutz eine Zelle farbig zu markieren ( rot =gesperrt, Grün=nicht gesperrt0 ).
MfG dieter
Antwort 1 von Ahnan
Hallo,
z.B. so:
Option Explicit
Sub Sperre_anzeigen()
Dim z%
Dim s%
ActiveSheet.Unprotect
Application.ScreenUpdating = False
For z = 1 To 100 ´ Letzte Zeile angeben
For s = 1 To 20 ´ Letzte Spalte angeben
If Cells(z, s).Locked = True Then
Cells(z, s).Interior.ColorIndex = 3
Else
Cells(z, s).Interior.ColorIndex = 10
End If
Next s
Next z
Application.ScreenUpdating = True
ActiveSheet.Protect
End Sub
Das Makro am besten einer Schaltfläche zuordnen. Den Bereich letzte Zeile u. letzte Spalte musst du deinen Bedürfnissen anpassen. Bei ActiveSheet.Unprotect musst du u.U. noch dein Blattschutzpasswort mitangeben, genau wie am Ende bei Protect.
(ActiveSheet.Unprotect Password:"Dein Passwort")
(ActiveSheet.protect Password:"Dein Passwort")
MfG
z.B. so:
Option Explicit
Sub Sperre_anzeigen()
Dim z%
Dim s%
ActiveSheet.Unprotect
Application.ScreenUpdating = False
For z = 1 To 100 ´ Letzte Zeile angeben
For s = 1 To 20 ´ Letzte Spalte angeben
If Cells(z, s).Locked = True Then
Cells(z, s).Interior.ColorIndex = 3
Else
Cells(z, s).Interior.ColorIndex = 10
End If
Next s
Next z
Application.ScreenUpdating = True
ActiveSheet.Protect
End Sub
Das Makro am besten einer Schaltfläche zuordnen. Den Bereich letzte Zeile u. letzte Spalte musst du deinen Bedürfnissen anpassen. Bei ActiveSheet.Unprotect musst du u.U. noch dein Blattschutzpasswort mitangeben, genau wie am Ende bei Protect.
(ActiveSheet.Unprotect Password:"Dein Passwort")
(ActiveSheet.protect Password:"Dein Passwort")
MfG
Antwort 2 von don-amigo
danke Ahnan
ich werde im laufe der Woche deinen Vorschlag mal testen
danke für deine info
MfG don-amigo
ich werde im laufe der Woche deinen Vorschlag mal testen
danke für deine info
MfG don-amigo