Protéger un classeur avec une macro

[Armarm]

Bonjour à tous,

J'ai un fichier dont tout le monde se sert dans l'entreprise. Mais seulement certaines personnes peuvent le modifier et les autres peuvent le consulter en lecture seule. J'ai essayer de mettre un mot de passe à l'ouverture, certes cela marche mais comme c'est un fichier partager la macro du timer pour fermeture d'inactivité ne fonctionne pas. Donc j'aimerais un code VBA qui dés que l'on veut apporter une modification sur le fichier celui ci demande un mot de passe.

Merci d'avance .

 

[vgendron]

Hello

peut etre en ajouttant le control de mot de passe avant la fermeture du fichier..??

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Pass = Application.InputBox("Donnez le mot de passe")
If Pass <> "PassWord" Then
    MsgBox ("ce mot de passe n'est pas le bon, le fichier va etre fermé sans enregistrer les modifications effectuées")
    ActiveWorkbook.Close savechanges:=False
End If
End Sub

bien.. sur.. un petit malin va enregistrer le fichier avant de le fermer..
donc.. il faudra aussi mette ce control de mot de passe dans l'évènement change..

et suis quasi sur qu'il pourra aller voir le mot de passe écrit en dur dans le code...

sinon, il y a sans doute un moyen (plus sur) d'ouvrir le fichier en lecture seule TOUT en autorisant l'exécution de tes macros..
mais ca.. sans ton fichier...

 

[Armarm]

Oui c'est exactement ce que je recherche !!

Voici le fichier ci-joint

Merci beaucoup

 

[vgendron]

Salut
il n'y a pas ta fameuse macro dans le fichier joint..

 

[Armarm]

Excuse moi ... Je n'ai pas fait attention.

Voici le bon fichier avec la macro

 

[Armarm]

Bonjour, personne a une solution à mon problème ?