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.
Ik zou mij eerst eens druk maken over de rest van de code of beter nog over de hele opzet van het bestand
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)...
Misschien is er ook wat misverstand ontstaan na al deze posts.
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)
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.
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
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.