Bloquer excel avec une date de fin utilisatio
Résolu
fiona-nanterre
Messages postés
6
Statut
Membre
-
fiona-nanterre Messages postés 6 Statut Membre -
fiona-nanterre Messages postés 6 Statut Membre -
Bonjour,
J'ai besoin que vous m'aidiez à bloquer un fichier excel à partir d'une date de fin d'utilisation.
j'ai un fichier excel 2003 que je dois envoyer à quelques collaborateur cependant celui-ci ne doit plus etre utilisable à partir d'une date que j'insererais.
Merci pour votre aide
Fiona
J'ai besoin que vous m'aidiez à bloquer un fichier excel à partir d'une date de fin d'utilisation.
j'ai un fichier excel 2003 que je dois envoyer à quelques collaborateur cependant celui-ci ne doit plus etre utilisable à partir d'une date que j'insererais.
Merci pour votre aide
Fiona
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
- Nombre de jours entre deux dates excel - Guide
- Word et excel gratuit - Guide
4 réponses
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.
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 Sub
Le 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.