Geeft nu zelfs foutmelding...
Ik zal voorlopig terug deze code zetten en handmatig blauwe schijn verwijderen.
Toch 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
Ik zal voorlopig terug deze code zetten en handmatig blauwe schijn verwijderen.
Toch bedankt!