D
DAVID P
Guest
Bonjour le forum,
grace à l'aide de beaucoup d'entre vous , j'ai réalisé un 'logiciel sur mesure pour mon travail'.
Maintenant que celui ci est terminé, j'aimerai pouvoir protéger mon travail de la facon suivante si cela est possible.
( j'ai déjà protégé les codes dans visual basic)
1 cas-
Pour l'utilisateur autorisé : Saisie d'un mot de passe à l'ouverture du fichier par le biais d'un userform avec si possible une date de validité ( ex: 4 mois). je changerai ensuite tous les 4 mois le mots de passe.
2-cas
Autorisé l'utilisateur (qui n'a pas de mot de passe) à ouvrir le fichier et lui proposé d'imprimer les feuilles désirées (voir pièce jointe)
via la feuille interface .
NB: je ne peux pas joindre le classeur complet car trop lourd , mais ci dessous , vous trouverez les codes qui sont déja dans woorbookopen de mon fichier original :
Private Sub Workbook_Open()
Sheets('interface').Select
Application.DisplayFullScreen = True
UserForm4.Show
End Sub
Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.LeftFooter = 'Pascal DAVID.Version 1.001 /17 sept 2005 '
End With
End Sub
Par contre en pièce jointe , un exemple du type d'userform que j'aimerais voir apparaitre avant l'ouverture du classeur.
j'espère ne pas trop abuser , si ce n'est pas possible ce n'est pas grave
Bonne soirrée à tous le forum
et merci d'avance
[file name=Protectionbis.zip size=19126]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Protectionbis.zip[/file]
grace à l'aide de beaucoup d'entre vous , j'ai réalisé un 'logiciel sur mesure pour mon travail'.
Maintenant que celui ci est terminé, j'aimerai pouvoir protéger mon travail de la facon suivante si cela est possible.
( j'ai déjà protégé les codes dans visual basic)
1 cas-
Pour l'utilisateur autorisé : Saisie d'un mot de passe à l'ouverture du fichier par le biais d'un userform avec si possible une date de validité ( ex: 4 mois). je changerai ensuite tous les 4 mois le mots de passe.
2-cas
Autorisé l'utilisateur (qui n'a pas de mot de passe) à ouvrir le fichier et lui proposé d'imprimer les feuilles désirées (voir pièce jointe)
via la feuille interface .
NB: je ne peux pas joindre le classeur complet car trop lourd , mais ci dessous , vous trouverez les codes qui sont déja dans woorbookopen de mon fichier original :
Private Sub Workbook_Open()
Sheets('interface').Select
Application.DisplayFullScreen = True
UserForm4.Show
End Sub
Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.LeftFooter = 'Pascal DAVID.Version 1.001 /17 sept 2005 '
End With
End Sub
Par contre en pièce jointe , un exemple du type d'userform que j'aimerais voir apparaitre avant l'ouverture du classeur.
j'espère ne pas trop abuser , si ce n'est pas possible ce n'est pas grave
Bonne soirrée à tous le forum
et merci d'avance
[file name=Protectionbis.zip size=19126]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Protectionbis.zip[/file]