VBA to Prevent Saving Based on Date

[Alm5423]

Hey Folks!

I have a spreadsheet where there is date entered in cell F1. I'd like to prevent users from being able to save the spreadsheet if the date entered in cell F1 is prior to today's date.

I imagine there is a simple way to do this with VBA, I'm just not sure what the correct syntax is for date functions. Anyone have a code that would allow me to do this?

 

[Jon Peltier]

This will not work if the user opens the workbook with macros disabled, but...

Press Alt+F11 to go to the VB editor. Find the workbook in the Project Explorer pane and expand it by clicking on the "+". Open the ThisWorkbook item in the list. The ThisWorkbook code module opens. In the left dropdown at the top of the Window, select Workbook, and in the right workbook, select BeforeSave. You will see this procedure stub:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

End Sub

Add a line of code like this to cancel the save:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If ActiveSheet.Range("F1") < Int(Now) then
        Cancel = True
    End If
End Sub