Hi
Door hier vragen te stellen kwam voor mij een totaal nieuwe functie naar boven evaluate
Door onderstaande code moet ik mijn andere werkbladen manueel gaan beveiligen.
En dit is nu net het probleem. Beveilig ik het werklad VerlofKalender Sjabloon manueel dan loopt het mis bij de functie weeklijntrekken.
Weet niet wat ik moet zetten om het zo te beveiligen zodat ik de rasterlijnen van de kalender en de speciale rode lijn kan laten teken.
En de code bij project werkt 100%
Dit is een stukje code die staat in thisworkbook.
Door hier vragen te stellen kwam voor mij een totaal nieuwe functie naar boven evaluate
Door onderstaande code moet ik mijn andere werkbladen manueel gaan beveiligen.
En dit is nu net het probleem. Beveilig ik het werklad VerlofKalender Sjabloon manueel dan loopt het mis bij de functie weeklijntrekken.
Weet niet wat ik moet zetten om het zo te beveiligen zodat ik de rasterlijnen van de kalender en de speciale rode lijn kan laten teken.
En de code bij project werkt 100%
Dit is een stukje code die staat in thisworkbook.
Code:
If IsError(Evaluate(Year(Date) & "!A1")) Then
Sheets("VerlofKalender Sjabloon").Copy , Sheets(Sheets.Count)
With ActiveSheet
.Name = Year(Date)
.Protect "glennd29", UserInterfaceOnly:=True, DrawingObjects:=True, Contents:=True, Scenarios:=True
.Select
End With
WeekLijnTrekken
End If