Beveiligen werkblad na afloop huidige maand

[Lampie173]

Allereerst, Voor iedereen nog een fijne 2e Paasdag,

Beste allemaal,

In Excel houden wij meterstanden bij.
Nu komt het (per ongeluk) weleens voor dat meterstanden van bijv. de vorige maand gewijzigd worden.
Mijn vraag is:
Is het mogelijk om het werkblad zo te maken dat als de (lopende maand + 1 dag) voorbij is, de meterstanden van de voorliggende maanden beveiligd worden.
Bij voorbeeld: januari (plus 1 dag) is voorbij dan kan in die betreffende regel (januari) niets meer gewijzigd worden.
Dus op 1 februari kan men nog de eindstanden van januari invoeren. Op 2 februari zit maand januari op slot, zeg maar.
Enzo verder,
Zie bijgevoegd bestand

 

[HSV]

Bv.

Private Sub Workbook_Open()
Dim cl As Range
With Sheets("blad1")
 .Unprotect
 .Cells.Locked = False
    For Each cl In .Range("b4:b15")
     cl.Resize(, 5).Locked = Application.EoMonth(Date, 0) > Application.EoMonth(cl, 0)
    Next cl
 .Protect
End With
End Sub

 

[HSV]

Dit zal waarschijnlijk beter werken.

cl.Resize(, 5).Locked = date - 1 > Application.EoMonth(cl,0)

 

[snb]

Met een eenvoudige macro voorkom je dat een niet-lege cel van een andere maand wordt overschreven.