Fermeture d'un classeur à une date voulue

[Mimi]

Bonjour le forum,
Voila je recherche une macro permettant de limiter l'ouverture d'un classeur.
C'est à dire par exemple que le 1/10/10 on ne puisse plus ouvrir ce classeur.
J'espère être assez clair et d'avance je vous remercie.
@ plus
Michel

 

[CBernardT]

Re : Fermeture d'un classeur à une date voulue

Bonjour Mimi et le forum,

Macro à placer dans le module Thisworkbook :

Private Sub Workbook_Open()
Dim DateMax As Date
DateMax = DateSerial(2010, 9, 30)
If Date > DateMax Then
On Error Resume Next
ThisWorkbook.Close
On Error GoTo 0
End If
End Sub

 

[Mimi]

Re : Fermeture d'un classeur à une date voulue

Bonjour CBernardT,
Merci pour ta réponse, je test et je te dis si sa ma va
@ plus
Mimi

 

[Dull]

Re : Fermeture d'un classeur à une date voulue

Salut Mimi, CBernardT, le Forum

Une autre Macro dans la même veine

Private Sub Workbook_Open()
If Date >= DateSerial(2010, 10, 1) Then
MsgBox "Vous ne pouvez plus ouvrir ce classeur" & Chr(10) & Chr(10) _
& "                           Désolé"
ThisWorkbook.Close savechanges:=False
Else
Feuil2.Activate
End If
End Sub

A noter quand même que si la personne n'active pas les macros, le classeur s'ouvrira quand même

Bonne Journée

 

[Mimi]

Re : Fermeture d'un classeur à une date voulue

Bonsoir le forum,
Merci à tous les deux sa marche nikel
A bientot
Michel

 

[ascal44]

Re : Fermeture d'un classeur à une date voulue

Bonjour le forum ,

Ce serait un début pour faire du ménage sur mon ordi:

Serait il possible d'envoyer ce classeur directement dans la poubelle pour éviter d'accumuler les classeurs obsolètes ?