Bonjour,

J'ai développé un programme sous excel qui doit être protégé sur excel (toutes versions au moins jusqu'à 2003).

J'ai trouvé le code pour protéger (et enlever la protection) sur 97:
-pour le classeur:

Protection : (le mot de passe setrouve dans la cellule ab1)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
 
   MotPass = Range("AB1").FormulaR1C1       
    ActiveWorkbook.Protect Password:=(MotPass), Structure:=True, Windows:=False
Enlever la protection:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
 
With ActiveWorkbook                       
    .Protect vbNullString, True, True     
    .Unprotect vbNullString               
End With
-pour la feuille
Protection : (n81=mot de passe)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
 
    MotPass = Range("N81").FormulaR1C1       
    ActiveSheet.Protect Password:=(MotPass), Contents:=True, _
    DrawingObjects:=True, Scenarios:=True
Enlever la protection:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
 
With ActiveSheet                                   
    .Protect vbNullString, True, True, True, True   
    .Range("A1").Copy .Range("A1")
    .Unprotect vbNullString
End With

Connaissez vous un moyen pour protéger (et "déprotéger") le classeur et les feuilles en même temps sous excel 97 et 2003? Est ce que c'est possible?

Merci