opslaan tussen bepaalde tijden

[tinustrotyl]

Hallo,

is het mogelijk om bijvoorbeeld d.m.v een macro in een bepaalde tijds periode opslaan mogelijk te maken?
voorbeeld:
het is 08:00 uur
tussen 07:00 en 15:00 mag een bestand opgeslagen worden d.m.v. van macrootje .
tussen 15:00 en 07:00 mag dit niet maar zou er door een msgbox de melding komen dat men in het verkeerde tijd vak zit.
zo ja hoe zou zo'n macro er uit moeten zien?

dank alsvast voor alle hulp

 

[Wigi]

Hier is wat code. Het reageert op het event BeforeSave (de code wordt uitgevoerd als er geprobeerd wordt te saven)

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If Format(Now, "hh:mm") > TimeValue("15:00") And Format(Now, "hh:mm") < TimeValue("7:00") Then
        MsgBox "Tot 7 uur kan je dit bestand niet opslaan."
        Cancel = True
    End If
End Sub

Zet de code in ThisWorkbook. Je komt daar door Alt-F11 te doen.

slechts gedeeltelijk geteste code

Lukt het?

Wigi