Bloquer excel avec une date de fin utilisatio
Résolu/Fermé
fiona-nanterre
Messages postés
6
Date d'inscription
vendredi 27 mars 2009
Statut
Membre
Dernière intervention
27 mars 2009
-
27 mars 2009 à 11:04
fiona-nanterre Messages postés 6 Date d'inscription vendredi 27 mars 2009 Statut Membre Dernière intervention 27 mars 2009 - 27 mars 2009 à 15:58
fiona-nanterre Messages postés 6 Date d'inscription vendredi 27 mars 2009 Statut Membre Dernière intervention 27 mars 2009 - 27 mars 2009 à 15:58
A voir également:
- Bloquer excel avec une date de fin utilisatio
- Liste déroulante excel - Guide
- Déplacer une colonne excel - Guide
- Bloquer une cellule excel - Guide
- Calculer une moyenne sur excel - Guide
- Si et excel - Guide
4 réponses
lami20j
Messages postés
21331
Date d'inscription
jeudi 4 novembre 2004
Statut
Modérateur, Contributeur sécurité
Dernière intervention
30 octobre 2019
3 569
27 mars 2009 à 11:09
27 mars 2009 à 11:09
Salut,
Une possibilté.
Tu peux mettre dans l'evennement workbook_open un code pour tester la date
Voici un exemple.
Une possibilté.
Tu peux mettre dans l'evennement workbook_open un code pour tester la date
Voici un exemple.
Private Sub Workbook_Open() Dim dd As Date dd = Date If dd = #3/27/2009# Then MsgBox "fin d'utilisation" End SubA la place de MsgBox tu pourras mettre un mot de passe avec un Inputbox.
lami20j
Messages postés
21331
Date d'inscription
jeudi 4 novembre 2004
Statut
Modérateur, Contributeur sécurité
Dernière intervention
30 octobre 2019
3 569
27 mars 2009 à 13:19
27 mars 2009 à 13:19
Re,
Tu vas dans le menu Outils / Macros / Visual Basic editorDans la fênetre qui s'ouvre tu verras une arborescence. Ton classeur (workbook correspondra à un projet) tu le verras comme ça VBAProject(tonclasseur.xls).
Dans le dossier MicrosoftExcelObjects tu verras ThisWorkbook.
Tu ferras double clic sur lui et ensuite tu mettras ce code
Tu peux mettre un mot de passe pour le projet vba, pour que le code ne soit pas vu par les autres utilisateurs.
Malheuresement je ne peux pas t'envoyer le classeru exemple, au boulot je n'ai pas accès aux serveurs de genre cjoint.
Tu vas dans le menu Outils / Macros / Visual Basic editorDans la fênetre qui s'ouvre tu verras une arborescence. Ton classeur (workbook correspondra à un projet) tu le verras comme ça VBAProject(tonclasseur.xls).
Dans le dossier MicrosoftExcelObjects tu verras ThisWorkbook.
Tu ferras double clic sur lui et ensuite tu mettras ce code
Private Sub Workbook_Open() Dim dd As Date dd = Date If dd = #3/27/2009# Then rep = InputBox("Nous sommes le " & dd & vbCrLf & "Entrez le mot de passe", "Connexion") Do While rep <> "a" rep = InputBox("Nous sommes le " & dd & vbCrLf & "Entrez le mot de passe", "Connexion") Loop End If End SubLe mot de passe est a
Tu peux mettre un mot de passe pour le projet vba, pour que le code ne soit pas vu par les autres utilisateurs.
Malheuresement je ne peux pas t'envoyer le classeru exemple, au boulot je n'ai pas accès aux serveurs de genre cjoint.
fiona-nanterre
Messages postés
6
Date d'inscription
vendredi 27 mars 2009
Statut
Membre
Dernière intervention
27 mars 2009
27 mars 2009 à 12:23
27 mars 2009 à 12:23
Merci beaucoup Lami20j, cependant peux tu m indiquer ou est ce que je dois mettre cette macro s'il te plait j 'ai un peu beaucoup de mal.
Encore merci pour ton aide
Fiona
Encore merci pour ton aide
Fiona
fiona-nanterre
Messages postés
6
Date d'inscription
vendredi 27 mars 2009
Statut
Membre
Dernière intervention
27 mars 2009
27 mars 2009 à 15:58
27 mars 2009 à 15:58
Merci , merci Lamij20, t est le meilleur.
ta solution marche à merveille combiner au mot de passe.
J'ai fait le test en jouant sur la date systéme, en effet cela bloque le fichier en demandant un mot de passe pour l'utiliser.
ENCORE MERCIIIIIIIIIIIIII
ta solution marche à merveille combiner au mot de passe.
J'ai fait le test en jouant sur la date systéme, en effet cela bloque le fichier en demandant un mot de passe pour l'utiliser.
ENCORE MERCIIIIIIIIIIIIII