Kleur Tabblad

Status
Niet open voor verdere reacties.
R

Ron001

Gebruiker
Lid geworden
4 dec 2017
Berichten
384
Allen

Ik ben dus voor mijn werk een preventief onderhoud planlijst aan het maken, week per week.
Bv: Week 48 Week 49 Week 50 ...

Met onderstaande code opent de lijst zich op de "juiste/huidige week" en geeft de tab nog een rode kleur (om in het oog te springen).

Alles werkt, alleen als ik de kleur actief zet krijg ik bij openen file deze foutmelding:Bekijk bijlage foutmelding.docx

Na wat uitproberen denk ik ook te weten vanwaar deze komt: ik heb mijn tabbladen en werkmap beveiligd.
Dus ik denk dat hij de kleur niet automatisch kan aanpassen omdat tabblad is beveiligd, kan ik dit omzeilen?
Is er een andere optie?

Alvast bedankt!

Code: 
'Openen op huidige week

Dim tDay As String
tDay = "WEEK " & Format(Date, "ww")
ThisWorkbook.Sheets(tDay).Activate
'ActiveSheet.Tab.Color = 255
 
Er is wel een sheet met de naam WEEK 51? En die mag aangepast worden?
Al eens geprobeert zonder de beveiliging?
Probeer het eens zo:
Code: 
With Sheets("WEEK " & Format(Date, "ww"))
    .UnProtect [COLOR="#008000"]'Evt. Wachtwoord[/COLOR]
    .Tab.Color = 255
    .Activate
    .Protect [COLOR="#008000"]'Evt. Wachtwoord[/COLOR]
End With
 
Laatst bewerkt:
De sheets zijn er inderdaad (lopen al tot WEEK 26 - 2018)
Zonder de beveiliging van de sheets werkt mijn code inderdaad, maar kan deze ook nog werken met de beveiliging? Ik werk samen met drie andere in deze file, daarom wil ik de beveiliging niet opgeven.. mensen in één file....:d

Met bovenstaande code krijg ik dezelfde foutmelding...:(
 
Plaats dan het document.
 
Kan je dan ook nog eens kijken naar mijn OLE probleem topic, hier ergens onder.
Krijg dit ook nog niet opgelost...

Mvg

Ron
 
Laatst bewerkt:
Je hebt naast de sheets ook jouw workbook beveiligd:

Code: 
ActiveWorkbook.Unprotect "paswoord"
ActiveSheet.Tab.Color = 255
 
Waar plaats ik deze tussen "mijn" code?
Of moet dit ergens apart?
En is deze na het uitvoeren van de code, ook helemaal terug beveiligd als voorheen?
 
Laatst bewerkt:
jouw workbook_open event in de thisworkbook module

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
wegschrijven_backup_teller

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

Beeld_aanpassen
 
End Sub
 
Beste Eric,

Ik heb deze code ingeplakt en krijg geen foutmelding meer :)
Voor het echt te testen moet het een andere week zijn, in mijn geval week 1 2018 (volgende week verlof :))
Dan laat ik nog iets weten, maar het lijkt op een oplossing :)

Bedankt!
 
Allen

Bovenstaande werkt, maar...
De weken die voorbij zijn blijven ook rood gekleurd...
Waarschijnlijk niet in de file in voorbeeld, want in deze testfile heb ik de blad en werkboek beveiligingen afgehaald/afgezet...

Wat moet ik nog aan code toevoegen om de week die voor bij is terug zonder kleur aan te duiden?

Alvast bedankt!

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
 
Laatst bewerkt:
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"
                For Each Sh In .Sheets
                    If Sh.Tab.Color = 255 Then Sh.Tab.Color = xlNone
                Next Sh
         ActiveSheet.Tab.Color = 255
        .Protect "paswoord"
    End With
    
End Sub
 
@ E v R

Code getest, rode kleur is van tabblad in het verleden weg, maar dit heeft nu een blauwe schijn....

mvg

ron
 
probeer het zo eens:

Code: 
 If Sh.Tab.Color = 255 Then Sh.Tab.Color = False: Sh.Tab.TintAndShade = 0
 
werkte bij mij wel....

doe het eens zo:

Code: 
If Sh.Tab.Color = 255 Then Sh.Tab.ColorIndex = xlColorIndexNone
 
Blijft een blauwe schijn hebben...
In bijlage screenshot...
 
Laatst bewerkt:
laatste poging:

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"
                For Each Sh In .Sheets
                    If Sh.Tab.Color = 255 Then
                    Sh.Tab.Color = False
                    Sh.Tab.ColorIndex = xlColorIndexNone
                    Sh.TintAndShade = False
                    Sh.ThemeColor = 0
                    End If
                Next Sh
        ActiveSheet.Tab.Color = 255
        .Protect "paswoord"
    End With
    
End Sub

Kopieer anders alle instellingen van een andere grijze tab
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan