macro pour tout bloquer

[evelyne]

bonjours a toutes et a tous
voici ma question:
quelle macro me permetrait de bloquer l'accès à un classeur à une date donnée
merci pour votre precieuse aide
a bientot
evelyne

 

[@+Thierry]

Bonjour Evelyne

Vu que tu ne précises pas à quelles fins tu veux faire ceci, voici une soluce simple consiste à faire ceci :

Dans une cellule (feuille cachée si nécessaire) tu mets ta date limite.

Et dans le Private Module de This Workbook tu mets ce code :

Private Sub Workbook_Open()
Dim LaDate As Date
Dim Maintenant As Date
LaDate = Format(Sheets(1).Range("A1"), "DD/MM/YYYY")
Maintenant = Format(Now, "DD/MM/YYYY")

If LaDate >= Maintenant Then
MsgBox "Welcome, il vous reste : " & LaDate - Maintenant & " Jours"
Else: MsgBox "Access Denied, Temps dépassé"
ThisWorkbook.Close 0
End If
End Sub

Attention, c'est juste à des fins d'usage standard, ce n'est pas assez puissant pour faire une shareware, mais juste afin d'empécher l'usage d'un classeur périmé par mégarde... (Moi suis favorable à l'open source de toute manière)

Bon Appétity car là je pars déjeuner
@+Thierry

 

[evelyne]

merci @+thierry pour la rapidité de la reponse
je vais faire ça cette apres midi !!!
je verrais si cela me convient.
mon but dans cette question est d'empecher l'utilisation d'une de mes application excel 97 (que je distributs a certaines personnes)apres une date que je determine .
bonne journée a bientot peut etre

evelyne

 

[evelyne]

A enfin !!! lol vlalforumm

Bonsoir @+thierry
Un grand MERCI!! c'est exactement ce que je voulais obtenir comme resultat
bonne continuation
salutations a +
evelyne