Mettre une date de fin d'utilisation
Fermé
lapin
-
3 avril 2015 à 19:33
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 - 4 avril 2015 à 12:34
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 - 4 avril 2015 à 12:34
A voir également:
- Mettre une date de fin d'utilisation
- Notice d'utilisation - Guide
- Utilisation chromecast - Guide
- Formule excel si date supérieur à une autre date ✓ - Forum Excel
- Publipostage date en anglais ✓ - Forum Excel
- Publipostage date inversée ✓ - Forum Word
3 réponses
Mike-31
Messages postés
18318
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
26 avril 2024
5 078
Modifié par Mike-31 le 3/04/2015 à 21:56
Modifié par Mike-31 le 3/04/2015 à 21:56
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.
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
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
Mike-31
Messages postés
18318
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
26 avril 2024
5 078
4 avril 2015 à 12:34
4 avril 2015 à 12:34
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
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
