Automatisch leegmaken niet geblokkeerde cellen

[OctaFish]

Er zitten minstens 2 fouten in: je hebt de code niet opgemaakt met de CODE knop, en er bestaat geen gebeurtenis Worksheet_BeforeClose. Doe zou sowieso op een werkblad moeten staan. Waar had jij hem neergezet?

 

[snb]

En je hebt de simpelste suggestie in #13 genegeerd.

PS. Je kunt uit aliassen geen gender afleiden. Vermijd daarom svp de genderbias 'heren'.

 

[Leotaxi]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim blad As String

If Weekday(Date, 2) < 6 Then
blad = Choose(Weekday(Date, 2), "Ma", "Di", "Wo", "Do", "Vr")

Application.ScreenUpdating = False
With Sheets(blad)
    For Each cl In Sheets(blad).UsedRange
        If Not cl.Locked Then cl.ClearContents
        If Not cl.Locked And cl.Column = 3 Then cl.Value = "Kies Celnummer"
        If Not cl.Locked And cl.Column = 9 Then cl.Value = "Kies Celnummer"
    Next cl
End With
End If
Application.ScreenUpdating = True
ThisWorkbook.Close True

met deze code op juiste plaats (zie eerste lijn)
en bladnamen, Ma, Di, Wo, enz....
zou het moeten werken


mvg
Leo

 

[snb]

@Leo

blad = format(date,"ddd")

 

[p0entah]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim blad As String

If Weekday(Date, 2) < 6 Then
blad = Choose(Weekday(Date, 2), "Ma", "Di", "Wo", "Do", "Vr")

Application.ScreenUpdating = False
With Sheets(blad)
    For Each cl In Sheets(blad).UsedRange
        If Not cl.Locked Then cl.ClearContents
        If Not cl.Locked And cl.Column = 3 Then cl.Value = "Kies Celnummer"
        If Not cl.Locked And cl.Column = 9 Then cl.Value = "Kies Celnummer"
    Next cl
End With
End If
Application.ScreenUpdating = True
ThisWorkbook.Close True

met deze code op juiste plaats (zie eerste lijn)
en bladnamen, Ma, Di, Wo, enz....
zou het moeten werken


mvg
Leo

Hallo Leo

Ik zal wel iets verkeerds doen want ik krijg het niet voor elkaar :'(

Heb geprobeerd op de bladen zelf en op het werkboek Maar hij maakt de bladen niet leeg.

Groeten

Thomas

 

[Leotaxi]

Thomas,

via deze link het werkende bestand

mvg
Leo

http://www.filedropper.com/vpk1-04-donderdagl5