Kleur Tabblad

Status
Niet open voor verdere reacties.
Geeft nu zelfs foutmelding...

Code: 
Private Sub Workbook_Open()

'Openen op huidige week

Dim tDay As String
tDay = "WEEK " & Format(Date, "ww")
    With ThisWorkbook
        .Sheets(tDay).Activate
        .Unprotect "paswoord"
    ActiveSheet.Tab.Color = 255
        .Protect "paswoord"
    End With

Ik zal voorlopig terug deze code zetten en handmatig blauwe schijn verwijderen.

Toch bedankt!
 
Als je van die valse schijn bij xlnone af wilt kun je hem toch gewoon wit maken.
Code: 
    For Each Sh In ThisWorkbook.Sheets
        If Sh.Tab.Color = vbRed Then Sh.Tab.Color = vbWhite
    Next Sh
    ActiveSheet.Tab.Color = vbRed
 
Code voor ThisWorkbook
Code: 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
For Each Sh In ThisWorkbook.Sheets
        If Sh.Tab.Color = vbRed Then Sh.Tab.Color = vbWhite
    Next Sh
    ActiveSheet.Tab.Color = vbRed
End Sub
of
Code: 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
For Each Sh In ThisWorkbook.Sheets
        Sh.Tab.Color = vbWhite
    Next Sh
    ActiveSheet.Tab.Color = vbRed
End Sub
 
@ Jack,

bedankt voor de moeite, maar ik krijg op beide codes foutmeldingen...:(
 
Geeft in mijn testfile nog steeds foutcode op;

Code: 
Sh.Tab.Color = vbWhite
 
Jouw testfile <> file van @Jack Nouws?

Overigens heeft het niets met de foutmelding te maken.
Sh is al vergeven als Sh as Object, die moet je niet gebruiken als variabele om alle sheets te doorlopen.

Zo is het activesheet de 'Sh' bij Private Sub Workbook_SheetActivate(ByVal Sh As Object) en de rest niet.

Code: 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim sSh As Worksheet
   For Each sSh In Sheets
     If sSh.Tab.Color = vbRed Then sSh.Tab.Color = xlNone
    Next sSh
 Sh.Tab.Color = vbRed
End Sub
 
@HSV thnx voor de terug koppeling :thumb:
Als je de tabkleur weer terug naar standaard kleurpositie (xlnone) zet dan krijgen je tabjes van elk blad een lichtblauwe kleur.
Dus ik dacht, ik maak ze gewoon wit dan heb je die lichtblauwe kleur niet.
Dacht dat dat de insteek van de TS was.
gr Jack
 
Ha, oké, de kleur doet er eigenlijk ook niet toe, waarom het niet werkt in de file van Ts is het raadsel.

Even wachten op de testfile van Ts,

Kan ook nog zo.

Code: 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim sSh As Worksheet
   For Each sSh In Sheets
      sSh.Tab.Color = vbWhite
    Next sSh
Sh.Tab.Color = vbRed
End Sub
 
Ik veronderstel dat ik de TS ben? :)

In bijlage file die niet wil werken, kopie va mijn "echte" file...

Alvast bedankt!

Btw: hoe verwijder ik alle files, die ik al eens toegevoegd heb in het "geavanceerd" scherm?
 
Laatst bewerkt:
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", [COLOR=#0000ff]vbMonday, vbFirstFourDays[/COLOR])
 
@ HSV

Nu ziet elk tabblad er blauw uit bij het deactiveren ervan...:)
 
Is de standaard kleur, wat kleur moet het worden?
 
Geen kleur...
Zoals bij het aanmaken van een nieuw tabbald...
 
Dat gebeurt toch?
Er staat xlnone (geen kleur), oftewel de standaard kleur van je Excelversie.
 
In bijlage...
De tabs die gebruikt zijn zien "blauw", maar ik zou ze zonder kleur willen zoals de andere...
 
Laatst bewerkt:
Met RGB kun je van 0 - 255 elke kleur maken die je maar wilt
Code: 
Sh.Tab.Color = RGB(255,255,255)
 
Laatst bewerkt:
Wat is de standaardkleur van je Excel?

Je oude code heeft ze wit gemaakt bij sheet-Activate.
Code: 
Dim sSh As Worksheet
   For Each sSh In Sheets
      sSh.Tab.Color = vbWhite
    Next sSh
Sh.Tab.Color = vbRed
 
Nu ben ik ff niet meer mee...

Hier men "echte" file...
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan