XL 2016 Cellule protégée après application macro

Dugenou

XLDnaute Barbatruc

• 25 Septembre 2020

• #2

Ne faut-il pas déverrouiller la cellule avant d'exécuter la macro ?

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 25 Septembre 2020

• #3

Bonjour Matmac, Dugenou,
Autre solution.
Pourquoi ne pas déprotéger la cellule J2 comme le sont les cellules B6:C60 ?
Pour déprotéger une cellule, vous cliquez droit dessus, Format de cellules. Puis Protection ( en haut à droite) et décochez Verrouillée.
Vous pouvez reprotéger votre feuille, cette cellule restera déprotéger et la liste accessible.
En PJ j'ai fait l'exercice sur elève1.

 

Pièces jointes

• Suivi Escalade 1°P11.xlsm

  569 KB · Affichages: 4

Vote positif 0 Vote négatif

M

matmac

XLDnaute Occasionnel

• 25 Septembre 2020

• #4

" Pour déprotéger une cellule, vous cliquez droit dessus, Format de cellules. Puis Protection ( en haut à droite) et décochez Verrouillée. "

Je viens d'essayer, mais lorsque j'exécute la macro "copie liste élèves", le mot de passe m'est demandé pour toutes les feuilles afin d'ôter la protection, donc 40 fois !

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 25 Septembre 2020

• #5

Pour la cellule, je n'ai fait l'ex que sur élève1.

Vous aviez déjà une macro qui déprotège toutes les pages.
J'y ai rajouté une macro qui protège toutes les pages :

VB:

Sub déprotéger()
Application.ScreenUpdating = False
    For Each ws In Worksheets
        ws.Unprotect Password:="escalade"
    Next ws
End Sub
Sub Protéger()
Application.ScreenUpdating = False
    For Each ws In Worksheets
        ws.Protect Password:="escalade"
    Next ws
End Sub

Il vous suffit alors de faire dans votre macro:

Code:

Sub NomVotreMacro()
   Déprotéger
   ...
   Votre code
   ...
   Protéger
End Sub

 

Pièces jointes

• Suivi Escalade 1°P11 (2).xlsm

  571.5 KB · Affichages: 3

Vote positif 0 Vote négatif

M

matmac

XLDnaute Occasionnel

• 25 Septembre 2020

• #6

Merci,
entre temps, j'ai déverrouillé pour les 40 élèves "manuellement" les cellules J2. Après enregistrement, effectivement, la liste déroulante reste accessible, donc c'est bon.
Je pensais simplement qu'il était possible d'intégrer dans une des macros existantes, sans doute "copie_eleve_initilaisation", les cellules devant être vérouillées et celles devant rester modifiables.
Merci

 

Vote positif 0 Vote négatif

M

matmac

XLDnaute Occasionnel

• 25 Septembre 2020

• #7

J'ai parlé trop vite !!!
J'ai effacer les données pour pouvoir utiliser le fichier avec une autre classe, en exécutant la macro "copie_eleve_initialisation", et lorsque j'exécute après la macro "copie liste élèves", le mot de passe m'est à nouveau demander pour toutes les feuilles afin d'ôter la protection, soit 40 fois !
Voir la PJ avec le fichier pour la nouvelle classe

 

Pièces jointes

• Suivi Escalade 1°G6.xlsm

  576.4 KB · Affichages: 4

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 25 Septembre 2020

• #8

Appliquez la solution du post#5 vous serez tranquille.

 

Vote positif 0 Vote négatif

M

matmac

XLDnaute Occasionnel

• 25 Septembre 2020

• #9

Je ne comprend pas, j'ai dévérouillé chaque cellule J2 puis appliquer votre macro "protéger" du post#5, mais il m'est toujours demandé le mot de passe pour chaque feuille "élève" lorsque j'exécute la macro "copie liste élèves".

 

Vote positif 0 Vote négatif

M

matmac

XLDnaute Occasionnel

• 25 Septembre 2020

• #10

Est-ce qu'il n'y a pas "plus simple" ? Intégrer dans la macro "copie_eleve_initialisation" les cellules vérouillées et celle qui ne le sont pas ? Mais je ne sais faire

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 25 Septembre 2020

• #11

Essayez cette macro,
J'ai remplacé :

VB:

Sub copie_fiche_eleve_initialisation()
    If InputBox("Saisissez le mot de passe en minuscule") <> "escalade" Then
        MsgBox ("Mot de passe erroné")
        Exit Sub
    End If
    ActiveSheet.Unprotect Password:="escalade"
    
Blablabla

        ActiveSheet.Protect Password:="escalade" ' protège la feuille (I)
        
Blablabla
End sub

par

Code:

Sub copie_fiche_eleve_initialisation()
    If InputBox("Saisissez le mot de passe en minuscule") <> "escalade" Then
        MsgBox ("Mot de passe erroné")
        Exit Sub
    End If
    ' On déprotège toutes les feuilles
    Déprotéger

Blablabla

        ' On protège toutes les feuilles
       Protéger
End Sub

J'en ai peut être oublié quleques uns, mais vous avez la méthode.

 

Pièces jointes

• Suivi Escalade 1°G6.xlsm

  568 KB · Affichages: 5

Vote positif 0 Vote négatif

M

matmac

XLDnaute Occasionnel

• 25 Septembre 2020

• #12

Ok, ça à l'air de fonctionner. Qu'entendez-vous par " J'en ai peut être oublié quleques uns" ?

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 25 Septembre 2020

• #13

J'ai changé deux

VB:

 ActiveSheet.Unprotect Password:="escalade"

par

Code:

    ' On déprotège toutes les feuilles
    Déprotéger

peut être en ai je oublié, il y en a partout.

Mais si ça marche c'est qu'il y en avait pas d'autres !

 

Vote positif 0 Vote négatif

M

matmac

XLDnaute Occasionnel

• 25 Septembre 2020

• #14

Ok merci pour tout !

 

Vote positif 0 Vote négatif