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

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

A voir également:

Bloquer excel avec une date de fin utilisatio
Liste déroulante excel - Guide
Bloquer une cellule excel - Guide
Formule excel - Guide
Déplacer une colonne excel - Guide
Bloquer pub youtube - Guide

4 réponses

Réponse 1 / 4

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 567
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.

Private Sub Workbook_Open()
  Dim dd As Date
  dd = Date
  If dd = #3/27/2009# Then MsgBox "fin d'utilisation"
End Sub

A la place de MsgBox tu pourras mettre un mot de passe avec un Inputbox.

Réponse 2 / 4

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 567
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

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.

Réponse 3 / 4

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

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

Réponse 4 / 4

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

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

Discussions similaires

Pix

Si une date est supérieure à une autre

Discussions similaires

Newsletters