Knipperende celkleur

[HSV]

Hallo @snb,

Sinds ik een nieuwe laptop heb met Excel 365 wel.
Dat ding kan toveren blijkbaar.

Zelfs dit werkt nog.

IIf(xCell.Font.Color = leeg, vbRed, leeg)[/COLOR]

Maar goed, de 'Black' is blijven staan uit het bestand van HMDH die er vast een variabele in had net als 'Geel'.

 

[snb]

Eng hoor, zo'n toverende laptop.....
Laat hem tijdig boosteren.

 

[HMDH]

@HSV

ik dacht dat het klaar was maar nu blijkt dat als ik het werkblad beveiligt dat de boel vast loopt (werkt niet meer)
Kan jij voor mij de code hierop aanpassen?

Nu gebruik ik:

Private t

Private Sub Workbook_Open()
 ThisWorkbook.StartBlink
End Sub

Sub StartBlink()
Set xCell = Sheets("clubuitslag").Range("D4:I4")
  xCell.Font.Color = IIf(xCell.Font.Color = vbBlack, vbRed, vbBlack)
  t = DateAdd("s", 1.5, Time)
 Application.OnTime t, "ThisWorkbook.StartBlink"
 
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)  'in principe overbodig.
If Sh.Name = "Clubuitslag" Then ThisWorkbook.StartBlink
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
 Application.OnTime t, "Thisworkbook.startblink", , False
End Sub

dit gekopieerd en geplakt.

 

[Haije]

volgens mij moet de code niet aangepast worden, maar de voorwaarden bij het beveiligen van het werkblad, OF wellicht moet alleen de cel die moet knipperen niet beveiligd zijn

 

[HMDH]

@Haije

Nee, helaas.
Op zich was dit een goed idee maar dit werkt niet.

 

[edmoor]

En zo?

Sub StartBlink()
    Set xCell = Sheets("clubuitslag").Range("D4:I4")
    Sheets("clubuitslag").Unprotect [COLOR="#FF0000"]"Het Wachtwoord"[/COLOR]
    xCell.Font.Color = IIf(xCell.Font.Color = vbBlack, vbRed, vbBlack)
    Sheets("clubuitslag").Protect [COLOR="#FF0000"]"Het Wachtwoord"[/COLOR]
    t = DateAdd("s", 1.5, Time)
    Application.OnTime t, "ThisWorkbook.StartBlink"
End Sub

Het rode gedeelte mag je weg laten als de beveiliging niet met een wachtwoord is.
Anders uiteraard daar het wachtwoord invullen.

 

[HMDH]

& edmoor

sorry maar dit werkt bij mij ook niet.
Ik heb geen wachtwoord aanstaan voor de beveiliging.
En toch werkt het niet.

 

[edmoor]

"Werkt niet" is altijd kort door de bocht.
Vertel wat er dan wel gebeurt.

 

[Haije]

HMDH,

plaats dan (een voorbeeld van) je geannonimiseerde bestand

 

[snb]

Wat gaat er mis zonder 'beveiliging' (blijkbaar mét in ieder geval veel)

 

[HMDH]

Met de laatste wijziging van edmoor kan ik het werkblad niet meer uit de beveiliging halen.
Er wordt om een ww gevraagd maar dat is er niet.

de nu gebruikte code staat in ThisWorkbook.

Private t

Private Sub Workbook_Open()
 ThisWorkbook.StartBlink
End Sub
Sub StartBlink()
    Set xCell = Sheets("clubuitslag").Range("D4:I4")
    Sheets("clubuitslag").Unprotect "Het Wachtwoord"
    xCell.Font.Color = IIf(xCell.Font.Color = vbBlack, vbRed, vbBlack)
    Sheets("clubuitslag").Protect "Het Wachtwoord"
    t = DateAdd("s", 1.5, Time)
    Application.OnTime t, "ThisWorkbook.StartBlink"
End Sub

'Sub StartBlink()
'Set xCell = Sheets("clubuitslag").Range("D4:I4")
  'xCell.Font.Color = IIf(xCell.Font.Color = vbBlack, vbRed, vbBlack)
  't = DateAdd("s", 1.5, Time)
 'Application.OnTime t, "ThisWorkbook.StartBlink"
 
'End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)  'in principe overbodig.
If Sh.Name = "Clubuitslag" Then ThisWorkbook.StartBlink
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
 Application.OnTime t, "Thisworkbook.startblink", , False
End Sub

Misschien kan iemand de code aanpassen voor mij zodat het wel werkt.

 

[edmoor]

Met de laatste wijziging van edmoor kan ik het werkblad niet meer uit de beveiliging halen.
Er wordt om een ww gevraagd maar dat is er niet.

Dan is er dus wel degelijk een wachtwoord.

 

[AD1957]

probeer eens: Het Wachtwoord
#26 niet goed gelezen.

 

[snb]

Ik heb het werkblad bekeken, en inderdaad zonder geknipper ziet het er wel erg onoverzichtelijk uit.
Dat geknipper lijkt me echt noodzakelijk om de juiste gegevens te kunnen presenteren.
Het zou daarom voor mij ook altijd de eerste stap zijn om dit voor zo'n werkblad te realiseren.
Iedere Excelcusrus voor beginners zou dan ook eigenlijk moeten beginnen met het gebruik van Appplication.Ontime.

 

[HMDH]

&AD1957

Nee ook dit werkt niet. (jammer)

&snb

ik voel enige cynisme. Klopt dat?

Als dit te moeilijk is voor een oplossing dan moet ik het er maar bij laten.

 

[AD1957]

dit staat in de code:

Sheets("clubuitslag").Protect "Het Wachtwoord"

Wat is dan het wachtwoord ?

 

[edmoor]

Het wachtwoord in dat document is gewoon "Het Wachtwoord".

 

[snb]

ik voel enige cynisme. Klopt dat?

Dan heb ik het blijkbaar te terughoudend geformuleerd.

 

[edmoor]

Deze doet het bij mij prima:

 

[HMDH]

&snb

Jammer dat jij er zo in staat.
Dit forum is toch bedoeld om mensen met een Excel probleem te helpen.
Dit doe je toch uit liefhebberij?
Dat je het niet altijd met de bestanden eens bent, of dat je je er aan ergert, is denk wel jou probleem.
Tip: probeer daar overheen te stappen.
We zijn allemaal op ons eigen manier anders dan jij blijkbaar wilt.
Iemand in de zeik zetten is o zo makkelijk.