XL 2013 Macro verrouiller fichier tout les jeudi

fl0uis

XLDnaute Nouveau
Bonjour à tous,

Comme l'indique le sujet, j'aurai besoin de votre aide pour un macro,

J'ai un fichier Excel que j'aimerai quel soit verrouiller automatiquement par un mdp tout les jeudi et puisse soit automatiquement libérer a partir du lundi suivant

je vous ai mis à disposition le fichier en question en PJ.

En vous remerciant d'avance.

P.S : Je n'y connais rien en macro
 

Pièces jointes

  • demande de congé.xlsm
    14.6 KB · Affichages: 4

sousou

XLDnaute Barbatruc
bonjour
Une méthode simpliste, vraiment pas blindé, mais c'est peut-être suffisant
à l'ouverture on vérrouille ou déverrouille toutes les feuilles
code à positionner dans thisworkbooks
tu dois aussi protéger ton code pour qu'il ne soit pas visible
Private Sub Workbook_Open()
If Weekday(Date) >= 5 Then
For Each i In Sheets
i.Protect ("toto")
Next
ThisWorkbook.Save
MsgBox "Le fichier est indisponible"

Else
For Each i In Sheets
i.Unprotect ("toto")
Next
ThisWorkbook.Save
End If
End Sub
 

fl0uis

XLDnaute Nouveau
bonjour
Une méthode simpliste, vraiment pas blindé, mais c'est peut-être suffisant
à l'ouverture on vérrouille ou déverrouille toutes les feuilles
code à positionner dans thisworkbooks
tu dois aussi protéger ton code pour qu'il ne soit pas visible
Private Sub Workbook_Open()
If Weekday(Date) >= 5 Then
For Each i In Sheets
i.Protect ("toto")
Next
ThisWorkbook.Save
MsgBox "Le fichier est indisponible"

Else
For Each i In Sheets
i.Unprotect ("toto")
Next
ThisWorkbook.Save
End If
End Sub


bonjour,

j'ai mis le code et fait un test mais ça n'a pas marché

merci quand même:)
 

sousou

XLDnaute Barbatruc
Oui, mais tu ne peux pas le modifier.
Si tu ne veux pas qu'il soit ouvrable, ca veux dire quoi.
Un utilisateur veux l'ouvrir, le fichier lui demande un mot de passe?
Un utilisateur ceux l'ouvrir, il se referme automatiquement?
ton fichier est-il en réseau?
Quel sécurité souhaites-tu vraiment?
 

sousou

XLDnaute Barbatruc
Re
d'accord! J'avais pensé si pc ouvert à un vbs démarrer par windows (tache programmée) qui va modifier le fichier seul.
(j'ai déjà mis en place ce genre de truc dans un société)
exemple tout les jeudi, il vient ajouter un mdp au fichier , tous les lundi il le supprime, rest à bien planquer le vbs
 

jmfmarques

XLDnaute Accro
Alors commence par mettre en oeuvre une telle stratégie (en t'assurant de ce qu'elle ne génèrera jamais de conflit avec d'autres actions, démarches, etc ... présentes ou futures) et qu'elle n'échappera pas à la perspicacité de petits amateurs..
Il ne me semble personnellement pas que ce soit là une solution d'inhibition, qui, elle, doit être le résultat d'une réflexion préalable complète et relever donc d'un choix de stratégie avant même de parler de code à mettre en oeuvre pour l'appliquer.
 

fl0uis

XLDnaute Nouveau
Oui, mais tu ne peux pas le modifier.
Si tu ne veux pas qu'il soit ouvrable, ca veux dire quoi.
Un utilisateur veux l'ouvrir, le fichier lui demande un mot de passe?
Un utilisateur ceux l'ouvrir, il se referme automatiquement?
ton fichier est-il en réseau?
Quel sécurité souhaites-tu vraiment?

desole cest vrai que je suis pas claire dans ma demande ,

je voudrai qu'un mdp lui soit demander si il l'ouvre après mercredi a minuit, et que ce même mdp ne lui soit plus demander (donc il pourra ajouter des date..etc) a compter de lundi pour que ensuite que le fichier soit à nouveau verrouiller après mercredi
 

Staple1600

XLDnaute Barbatruc
Bonsoir le fil

=>fl0uis
[Pour infos]
1) Excel laisse l'utilisateur libre d'ouvrir un classeur sans activer les macros
2) Windows me permets
a) de m'envoyer le classeur par mail
b) de le copier sur une clé USB
Partant de là, la sécurité et Excel...
[/Pour infos]
 

Discussions similaires