Kleur Tabblad

Status
Niet open voor verdere reacties.
Waar staan de aangereikte codes?
 
staan in mijn testfile, maar daar wordt alles blauw...
Heb ze nog niet in mijn echt durven zetten...
 
Ook geen wonder dat je niet mee bent, in je testfile staat dat elke tab wit wordt bij het openen, en de code die ik heb geschreven zet elke tab bij een deaktivatie weer op de standaard kleur.

Zet alles eerst op een rijtje.
 
@ Hsv

En welke code is dan voor "geen kleur", is "geen kleur" de standaard kleur?
Niet bij deactivatie van de sheet, gewoon altijd...
Alleen de huidige week zou een rode kleur moeten hebben om een beetje op te vallen...
 
Volgens mij let je helemaal niet op, ook gelijk mijn laatste schrijven voor dit onderwerp dan maar.

Zie je echte file of testfile of testfile zoveel in de bijlage.
 

Bijlagen

  • Testfile Ron.xlsb
    816,5 KB · Weergaven: 37
Volgens mij is het de bedoeling dat de tabjes grijs worden
och... nu kan TS kiezen
 

Bijlagen

  • Testfile Ron.xlsb
    640,4 KB · Weergaven: 38
Ja, schop de boel maar in de war.

TS weet niets, waar moet hij uit kiezen dan?

XlNone → vbgrey → vbwhite is onbekend.

NB. er staat nadrukkelijk "geen kleur" altijd.
 
Laatst bewerkt:
@ HSV,

Ik let wel op :)
Heb uit jouw code een paar dingen uitgehaald (bv: dat de tabbladen een kleur krijgen, alleen de huidige week moet rood zien en de rest gewoon "geen kleur")
Heb ook wat met jouw code aan het spelen geweest en zo kan ik inderdaad zelf de kleur van alle tabbladen bepalen (vb: vbGreen,255,100 (zwart),...

Ben dus ondertussen wel mee, toch bedankt voor de moeite...

@ Jack

Dat heb ik inderdaad in gedachte, alleen ipv grijs "geen kleur", ik zal zelf nog wel eens wat uitproberen...

Bedankt!

Prettig weekend!
 
Dan moet je alles overnemen en niet lukraak wat weghalen uit het bestand.

Je kan gewoon het laatst geplaatste bestand door mij opslaan als je echte bestand...en klaar.
Wat een gezeur over een tabkleurtje.

Plaats jouw echte bestand als je er nog niet uit bent, dan krijg je het gepresenteerd op een tabje (blaadje).
 
Een beetje los van de vraag.

Ik zou mij eerst eens druk maken over de rest van de code of beter nog over de hele opzet van het bestand. 1 mail procedure lijkt mij voldoende 1 printprocedure ook. Als je de gebruikers dmv van de kleur van een tabje moet laten zien dat ze in de actuele week zitten wat maakt het dan uit of de rest blauw, groen, geel of wat dan ook is? Als je veel informatie vast wil leggen dan kan je dit ook veel beter in 1 tabel doen. Denk gestructureerd ipv vanuit de opmaak. Het maakt en je bestand sneller en je kan veel eenvoudiger informatie maken van de gegevens. Vertel mij maar even hoeveel regnr 3144 "NACHT", "FEEST", "V",etc de afgelopen 4 weken heeft gehad?
 
@ HSV

Ik neem je codes over maar als ik me nog goed herinner van vorige week kregen de tabs dan een kleur (waar ik met de kleur wat zitten spleen had).

@ VenA

Ik zou mij eerst eens druk maken over de rest van de code of beter nog over de hele opzet van het bestand

Ik ben een drietal maanden geleden uit het niets en zonder voorkennis begonnen, daarom dat dit een beetje een puinhoop is, stilletjes aan probeer ik alles wat te "schikken"

Vertel mij maar even hoeveel regnr 3144 "NACHT", "FEEST", "V",etc de afgelopen 4 weken heeft gehad?

Dat moet ik niet weten, ik moet gewoon de vrije uren kunnen inplannen...

Misschien is er ook wat misverstand ontstaan na al deze posts.
De originiele vraag was/is;

De actuele week kleurt rood (wat ook gebeurt) en al de andere tabs hebben geen kleur.
Zoals file in bijlage blijft de rode kleur op de voorbije week staan.
Nu ben ikzelf nog eens aan het googlen geweest en zou dit te maken kunnen hebben met iets van protect workbook?
Of als je tab van kleur naar niet kleur gaat, dat er steeds een blauwe schijn op blijft? Daarom dat ik code Xlautomatic gebruikte om de tab terug "geen kleur" te geven. Doesn't work...

Sorry voor al het gezaag over een tabje...Bedankt voor het geduld

Mvg

Bekijk bijlage Helpmij.xlsm
 
Laatst bewerkt:
@ HSV

Ik neem je codes over maar als ik me nog goed herinner van vorige week kregen de tabs dan een kleur (waar ik met de kleur wat zitten spleen had)...

Misschien is er ook wat misverstand ontstaan na al deze posts.

Er is helemaal geen misverstand, jij voert niet uit wat hier geschreven wordt.
Ik had al geschreven dat zowel je werkboek als je bladen zijn beveiligd.
Ik heb daar al een code voor geschreven die daar ergens tussen staat.

Als het originele (geen kleur xlNone) je niet bevalt hebben we al tig keer vbWhite voorgesteld.
Ik vind het heus niet erg om een keertje extra uitleg te geven, maar als er na 50 berichten nog geen schot in zit doordat je steeds de verkeerde codes ergens plaatst wordt het wel een vervelend gezeur.
 
Code:
Je hebt je werkboek beveiligd in de Workbooks.open event, vandaar dat het niet werkt.

Code:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.ScreenUpdating = False
 ThisWorkbook.Unprotect "paswoord"
   Sh.Unprotect "paswoord"
   Sh.Tab.Color = vbRed
   If UCase(Left(Sh.Name, 4)) = "WEEK" Then Range("B3") = Replace(Sh.Name, "WEEK ", "")
   Sh.Protect "paswoord"
 ThisWorkbook.Protect "paswoord"
End Sub



Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Application.ScreenUpdating = False
ThisWorkbook.Unprotect "paswoord"
  Sh.Unprotect "paswoord"
  Sh.Tab.Color = xlNone
  Sh.Protect "paswoord"
 ThisWorkbook.Protect "paswoord"
End Sub
In Workbooks_open onderstaande regel aanpassen.
Code:
tDay = "WEEK " & Format(Date, "ww", vbMonday, vbFirstFourDays)

Jouw code nog is aan het testen geweest, elke geactiveerde sheet wordt rood, maar ik bedoel dat de actuele week steeds rood moet blijven.
En wanneer ik wissel tussen sheets krijgen de gedeactiveerde sheets steeds die blauwe kleur/schijn terug, dir komt door die xlnone?

mvg

Ron
 
De code in Thisworkbook nog aanpassen natuurlijk.

De tabjes worden nu wit en de huidige week wordt rood.
Code:
Private Sub Workbook_Open()


'Openen op huidige week
Dim tDay As String, sSh As Worksheet
tDay = "WEEK " & Format(Date, "ww", vbMonday, vbFirstFourDays)
    With ThisWorkbook
        .Sheets(tDay).Activate
          .Unprotect "paswoord"
                For Each sSh In .Sheets
                If sSh.Visible Then
                  sSh.Unprotect "paswoord"
                   sSh.Tab.Color = vbWhite
                  sSh.Protect "paswoord"
                End If
                Next sSh
         ActiveSheet.Tab.Color = vbRed
        .Protect "paswoord"
    End With
    






wegschrijven_backup_teller


' Automatisch afsluiten file
 close_time = Now + TimeValue("00:30:00")
 run_time


Beeld_aanpassen
 
End Sub
 
De tabjes worden nu wit en de huidige week wordt rood.

Klopt! Maar de huidige week zou steeds rood moeten blijven, ongeacht welk tabblad geselecteerd is....
Dat dit opvalt tussen de andere (in dit geval "witte"tabs)...

Als je een "witte tab" deactiveert wordt deze blauw...(ipv terug wit)

Ik snap hier echt niets meer van :)
 
Dan sloop je alles wat in #53 staat eruit.
 
Private Sub Workbook_Open()


'Openen op huidige week
Dim tDay As String, sSh As Worksheet
tDay = "WEEK " & Format(Date, "ww", vbMonday, vbFirstFourDays)
With ThisWorkbook
.Sheets(tDay).Activate
.Unprotect "paswoord"
For Each sSh In .Sheets
If sSh.Visible Then
sSh.Unprotect "paswoord"
sSh.Tab.Color = vbWhite
sSh.Protect "paswoord"
End If
Next sSh
ActiveSheet.Tab.Color = vbRed
.Protect "paswoord"
End With

Enkel dit gebruiken dan? :)
 
Top!

Dit is inderdaad wat ik zocht!!!
Als nu de tabjes nog de originele kleur (geen kleur) krijgen zoals bij het aanmaken van de file:)

Als dat niet te moeilijk is, anders is wit ook perfect! ;-)
 
Dan maak je van...
Code:
sSh.Tab.Color = vbWhite
...dit.
Code:
sSh.Tab.Color = xlnone
Dat is je programmakleur.

Grijs, groen of blauw doorschijnend.
 
Dat had ik ondertussen al geleerd van jullie...Waarvoor dank! :)
Maar als ik daar xlnone van maak komt daar steeds die blauwe schijn op...

Dit is niet onoverkomelijk voor mij ze (dat de tabs wit of blauw of.... zien), ik ben alleen steeds benieuwd naar hoe je het dan wel naar "geen kleur" kan veranderen...
Bij xlnone steeds blauwe schijn...
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan