Re : restriction de l'enregistrement d'un classeur
Bonjour à tous,
En fouinant ici et là, j'ai essayé avec cette macro :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.Run "'Matrice BDD BCL.xls'!ProtectionToutesLesFeuillesMDP"
Sheets(Array("ETAT MILIT", "ETAT CIVIL", "DIP ET STG", "PERMIS", _
"CONTRAT PASSEPORT", "TRESO", "SANTE", "CHANC", "PERMS", "NOT. ORIENTATIONS", "COVAPI")). _
Select
Range("B3").Select
Sheets("MENU").Select
End Sub
Peux t'on adapter une demande de mot de passe à cette macro, c'est à dire que si l'utilisateur ne connaît pas le mot de passe requis, il faudrait que ce soit celle-ci qui de déclenche :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Run "'Matrice BDD BCL.xls'!ProtectionToutesLesFeuillesMDP"
Sheets(Array("ETAT MILIT", "ETAT CIVIL", "DIP ET STG", "PERMIS", _
"CONTRAT PASSEPORT", "TRESO", "SANTE", "CHANC", "PERMS", "NOT. ORIENTATIONS", "COVAPI")). _
Select
Range("B3").Select
Sheets("MENU").Select
End Sub
Merci à tous et si vous avez des questions, n'hésitez-pas.