Discussion :

[derf3183]

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

[ouskel'n'or]

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?

Avec office 97, la sntaxe pour un classeur et une feuille est différente
Avec Office 2003, j'en sais rien
Mais tu peux marier les deux

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
MotPass = Range("N81").FormulaR1C1       
With ActiveWorkbook
       .Protect Password:=(MotPass), Structure:=True, Windows:=False
       With worksheets("Feuil1")
            .Protect Password:=(MotPass), Contents:=True, _
             DrawingObjects:=True, Scenarios:=True
       end with
end with

Tu testes, je ne l'ai pas fait

Edir
Testé, ok !

[derf3183]

Bonjour,

En fait j'ai déjà testé ces codes sur excel 97 et ça marche mais ça ne marche pas sur excel 2003.

Mon problème est de savoir s'il existe un moyen de protéger feuille et classeur sur excel 2003 (et si possible sur excel 97 aussi).

merci

[SfJ5Rpw8]

on peu savoir ce qui marche pas..? c'est pas tout quand même ..?

[derf3183]

le problème c'est que ça a arrêter de suite sur:

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

Je pense effectivement que par exemple la protection a la fin peut marcher je vais tester
Mais le problème se situe pour la "déprotection" car il y a plus de case à sélectionner dans la protection de 2003.
la difficulté est de pouvoir le faire sur les deux versions

Merci

[SfJ5Rpw8]

le problème c'est que ça a arrêter de suite sur:
...

et il y as pas de message d'erreur ?..ou autre..?