Mettre une date de fin d'utilisation
lapin
-
Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention -
Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
je souhaite mettre une date de fin dans une cellule excel, ce qui fera que le document ne s'ouvrira plus et ne sera plus utilisable?
merci de votre réponse
je souhaite mettre une date de fin dans une cellule excel, ce qui fera que le document ne s'ouvrira plus et ne sera plus utilisable?
merci de votre réponse
3 réponses
-
Bonsoir,
A quoi bon mettre une date pour interdire utilisation et surtout l'ouverture d'un fichier autant le supprimer s'il ne peut plus être ouvert,
enfin si tu le demande
Private Sub Workbook_Open()
If Date >= Sheets("Feuil1").Range("A1") Then
MsgBox "Date depassée" 'facultatif si tu ne souhaites pas être averti
ThisWorkbook.Close SaveChanges:=False
End If
End Sub
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir. -
bonjour Mike 31
merci de la réponse
le but de la date de fin, c'est que ce document est envoyé à une personne avec une date d'utilisation fixée -
Re,
alors je pense qu'il serait préférable d'ajouter une Inputbox pour saisir un mot de passe de sorte que le destinataire puisse l'ouvrir, sinon le fichier sera inexploitable.
colle ce code dans la Thiswokbook, saisi en A1 la date de fin valide ou dépassée enregistre et ferme le fichier puis essaye de l'ouvrir
le mot de passe provisoire est open
Private Sub Workbook_Open()
If Date >= Sheets("Feuil1").Range("A1") Then
nom = InputBox("Veuillez saisir votre mot de passe")
If nom <> "open" Then
ThisWorkbook.Close SaveChanges:=False
End If
End If
End Sub
