nrdz83
XLDnaute Impliqué
Bonsoir à tous ,
J'utilise le code ci-dessous et j'aimerais savoir s'il est possibble de proteger cette macro avec un mot de passe.
Je m'explique j'ai réalisé un classeur excel avec consultation par plusieurs personnes et la sauvegarde de ce classeur sur trois adresses.
Mais je veux être le seul à pouvoir enregistrer les modifications.
D'ou ma question est il possible de rajouter un mot de passe à ce code?
Du genre msgbox avec saisi du mot de passe.
D'avance merci à tous pour vos lumières,
amitiés
J'utilise le code ci-dessous et j'aimerais savoir s'il est possibble de proteger cette macro avec un mot de passe.
Je m'explique j'ai réalisé un classeur excel avec consultation par plusieurs personnes et la sauvegarde de ce classeur sur trois adresses.
Mais je veux être le seul à pouvoir enregistrer les modifications.
D'ou ma question est il possible de rajouter un mot de passe à ce code?
Du genre msgbox avec saisi du mot de passe.
D'avance merci à tous pour vos lumières,
amitiés
Code:
Sub enrgcetdocsetreseau()
ChDir "C:\"
ActiveWorkbook.SaveAs Filename:="C:\charges moyens nautiques.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ChDir _
"\\srv-bntln5\utilisateursbn$\lepretre-gilbert\travail\charges & formulaires"
ActiveWorkbook.SaveAs Filename:= _
"\\srv-bntln5\utilisateursbn$\lepretre-gilbert\travail\charges & formulaires\charges moyens nautiques.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ChDir "O:\gssm\commun gssm\SERVICE MOYENS NAUTIQUES"
ActiveWorkbook.SaveAs Filename:= _
"O:\gssm\commun gssm\SERVICE MOYENS NAUTIQUES\charges moyens nautiques.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub