workbook open event

[nobody11]

beste vrienden,

ik heb een klein vraagje; ik zou graag een code hebben die toelaat dat een excel file opengaat op bepaalde dagen (10/02/2009 tot 13/02/2009), en dat alle andere dagen hij niet open gaat (dit is enkel een test, geen enkele relevantie voor toepassing), ik heb momenteel onderstaande code, maar hij werkt niet helemaal.. wss ligt het aan de manier waarop ik de if formuleer

Private Sub Workbook_Open()
Dim dag
dag = Now
If dag = 10 - 2 - 2009 to 13-2-2009 Then
[B]nu wil ik graag dat hij gewoon opengaat zonder enige melding [/B]

Else
ThisWorkbook.Close SaveChanges:=False

End If

End Sub

waar ga ik de mist in ?

 

[Finch]

Om je op weg te helpen, kijk eens naar de DateSerial functie in VBA, en gebruik die om je datums te checken. Dus groter dan en kleiner dan bepaalde datums.

edit: gebruik ook best Date ipv Now()

 

[Warme bakkertje]

Waarom niet met Select Case

Private Sub Workbook_Open()
Datum = Date
Select Case Datum
Case DateSerial(2009, 2, 10) To DateSerial(2009, 2, 13)
     Sheets("Blad2").Select 'voer een handeling uit
Case Else
     ThisWorkbook.Close Savechanges:=False
End Select
End Sub

Mvg

Rudi

 

[nobody11]

Waarom niet met Select Case

Private Sub Workbook_Open()
Datum = Date
Select Case Datum
Case DateSerial(2009, 2, 10) To DateSerial(2009, 2, 13)
     Sheets("Blad2").Select 'voer een handeling uit
Case Else
     ThisWorkbook.Close Savechanges:=False
End Select
End Sub

Mvg

Rudi

hartelijk dank aan beide replies! zo heb ik weer wat bijgeleerd!

 

[danny147]

Beste, nobody11

En wat als datum vervalt ???

Dan zie je niks meer, geen enkel tabblad, laat staan de titel van het bestand :shocked:
ALT+F11 lukt ook niet.

Dit kom ik tegen althans.
Heb de code wel in ThisWorkbook geplaatst.

Groetjes Danny. :thumb:

 

[nobody11]

Beste, nobody11

En wat als datum vervalt ???

Dan zie je niks meer, geen enkel tabblad, laat staan de titel van het bestand :shocked:
ALT+F11 lukt ook niet.

Dit kom ik tegen althans.
Heb de code wel in ThisWorkbook geplaatst.

Groetjes Danny. :thumb:

zou ik mss dan beter als de dag vervallen is een soort paswoord protection erop zetten, waarmee het bestand enkel opengaat als het paswoord correct is?