✔ Brauch mal Hilfe bei VBA

[usebb]

Hallo
Ich hab da ein Prob-. mit dem VAB Code!

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Select Case Target.Value
Case "WB"
Target.Interior.ColorIndex = 5

Case "Q"
Target.Interior.ColorIndex = 3

Case "DB"
Target.Interior.ColorIndex = 13

End Select
End Sub


Der geht genau so wie ich es möchte , nur nicht wenn der Blattschutz aktiv ist .

Was mach ich da Falsch und wer hat da eine Lösung dafür ?


Danke mal schon

 

[duckdonald]

Hi,

der Sinn des Blattschutzes ist ganz klar das Blatt vor Veränderungen zu schützen!

einfach folgenden Code hinzufügen:

    ActiveSheet.Unprotect "deinPasswort"
.
.
.
'dein code
.
.
.

    ActiveSheet.Protect "deinPasswort"

ABER: dann auch deinen Code schützen indem du im VBA editor rechtsklick auf die Datei ind er Dateiliste machst und "Eigenschaften von ..." aufrufen. Unter Schutz die Anzeige sperren und Kennwort vergeben.


DD

 

[usebb]

ok Danke das Passt !