Tekst laten knipperen in BEVEILIGDE cel

[rvdw1968]

Hallo,

ik probeer een VBA-code, om de tekst in een specifieke cel te laten knippen, werkend te krijgen.

De code zelf werkt prima maar indien ik het werkblad beveilig met een wachtwoord, loopt de macro vast.

De code is:

Sub KnipperTekst()
  If ThisWorkbook.Sheets("Blad2").[D5] = "tekst" Then
    If ThisWorkbook.Sheets("Blad2").[B5].Font.ColorIndex = 5 Then
      ThisWorkbook.Sheets("Blad2").[B5].Font.ColorIndex = 33
    Else
      ThisWorkbook.Sheets("Blad2").[B5].Font.ColorIndex = 5
    End If
    TijdTekst = Now + TimeValue("00:00:01")
    Application.OnTime TijdTekst, "KnipperTekst"
  Else
    ThisWorkbook.Sheets("Blad2").[B5].Font.ColorIndex = 2
  End If
End Sub

de macro loopt vast bij

 ThisWorkbook.Sheets("Blad2").[B5].Font.ColorIndex = 5

indien ik de beveiliging activeer.

Voor de volledigheid, het werkblad moet beveiligd zijn omdat het werkblad door mijn medewerkers gebruikt wordt en ik bepaalde formules niet verloren wil laten gaan.

Alvast dank voor jullie input en excuses voor het feit dat deze vraag wellicht al eens gesteld is....ik heb gezocht maar niet gevonden.

Ruud

 

[Joske2000]

Zet dit even bij het begin van de macro :

    Sheets("Blad2").Unprotect "wachtwoord"

Dit op het einde van de macro :

    Sheets("Blad2").Protect "wachtwoord"

Groet,

Joske

 

[lam201]

Of bij het beveiligen van je cel zet je een vinkje bij "Format Cells" (cel opmaak in NL?).
Dan blijven je formules veilig, maar kan je wel de celopmaak aanpassen.

 

[rvdw1968]

Probleem is opgelost, dank voor de input.