Niet meer opslaan na bepaalde datum

[beertje]

Een vraagje.
Is het mogelijk dat je een waarschuwing krijgt als je na een bepaalde datum nog gegevens probeert in te vullen.
Stel ik heb een "blad" genaamd Januari, en ik ga daar iets invullen op 3 februari, dan wil ik eigenlijk dat dat niet meer mogelijk is, en dat je dan een melding krijg.

 

[edmoor]

Dus in januari van het volgende jaar mag dat dan weer wel?

 

[beertje]

ja dat wel.
ik wil een soort van bezoekers registratie bestand maken.
en dan verdeeld over 12 maanden, dus als ik op 3 februari, nog iets wil invullen in het blad van januari, dat ik dan een melding krijg.

Ik hoop dat ik het een beetje goed uitleg

 

[edmoor]

Zoiets in de ThisWorkbook sectie:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If LCase(Sh.Name) <> Format(Date, "mmmm") Then
        Sh.Protect "JeWachtwoord"
    Else
        Sh.Unprotect "JeWachtwoord"
    End If
End Sub

En dan uiteraard een wachtwoord op je VBA project.

 

[AHulpje]

Of

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Month(Now()) > MaandNummer(Sh.Name) Then
        Sh.Protect "JeWachtwoord"
        MsgBox "Deze maand mag niet meer gewijzigd worden.", vbCritical
    Else
        Sh.Unprotect "JeWachtwoord"
    End If
End Sub


Function MaandNummer(MaandNaam As String)
    MaandNummer = Month(DateValue("1 " & MaandNaam & " 2022"))
End Function

 

[edmoor]

En zo mag het in de maanden voor de huidige maand niet en in de huidige maand en t/m December wel:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Month(DateValue("1 " & Sh.Name & " " & Year(Date))) < Month(Date) Then
        Sh.Protect "JeWachtwoord"
    Else
        Sh.Unprotect "JeWachtwoord"
    End If
End Sub

 

[snb]

Je uitleg is goed, maar je opzet niet:
Zet soortgelijke gegevens altijd in 1 werkblad; verdeel ze niet over werkbladen/bestanden/directories.
Gebruik 1 kolom voor de datum.
Hoe beter je opzet (struktuur) hoe minder/eenvoudiger je codes/formules (if any)