En op welke regel staat de voorwaardelijke opmaak? Vast niet op regel 1. Als je niet kan toepassen wat hier geschreven wordt dan gaat het een lang verhaal worden. In #15 staat en werkend voorbeeld voor meerdere tabjes dus dat kan je zo overnemen.
Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Public kleur
Private Sub Workbook_Open()
kleur = IIf(Environ("username") = "mijn.naam", "orgineel", "wit")
ActiveSheet.Range("E1") = kleur
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Range("E1") = kleur
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address = "$AC$1" Then Range("E16:AB75").FormatConditions(1).Modify 1, 3, IIf([Target] = "Wit", "=""""", "=""@#|""")
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim prc As Boolean
prc = ActiveSheet.ProtectContents
If prc Then Sh.Unprotect "paswoord"
If UCase(Left(Sh.Name, 4)) = "WEEK" Then Range("B3") = Replace(Sh.Name, "WEEK ", "")
Beeld_aanpassen
Range("AC1") = kleur
If prc Then Sh.Protect "paswoord"
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address = "$AC$1" Then Range("E16:AB75").FormatConditions(1).Modify 1, 3, IIf([Target] = "Wit", "=""""", "=""@#|""")
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim prc As Boolean
prc = ActiveSheet.ProtectContents
If prc Then Sh.Unprotect "paswoord"
If UCase(Left(Sh.Name, 4)) = "WEEK" Then Range("B3") = Replace(Sh.Name, "WEEK ", "")
Beeld_aanpassen
Range("AC1") = kleur
If prc Then Sh.Protect "paswoord"
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.