Problème de protection feuille et VBA

Bonsoir le forum,

j'ai un petit problème avec la protection de la feuille Excel TOUS NIVEAUX lorsque j'active la protection de la feuille avec un mot de passe le programme VBA affiche une erreur d’exécution, sans le mot de passe il n'y a pas de problème.

Y a t'il une solution pour mettre la protection de la feuille avec le mot de passe sans changer le fonctionnement du programme.

Merci par avance.

PS: le mot de passe VBA est: formation

Bonsoir Bibix, bonsoir le forum,

Je ne sais pas comment tu t'y prends mais le code ci-dessous fonctionne sans bug :

Sub SELECTION()
With Sheets("TOUS NIVEAUX")
    .Unprotect "Toto" '=====================================> DÉPROTECTION (mot de passe : "Toto")
    If Sheets("RESULTAT").Range("B10") = True Then
        .Range("A7").Interior.Color = RGB(255, 255, 0)
        .Range("A15").Interior.Color = RGB(255, 255, 0)
        .Range("A20").Interior.Color = RGB(255, 255, 0)
        .Range("A25").Interior.Color = RGB(255, 255, 0)
        .Range("A33").Interior.Color = RGB(255, 255, 0)
        .Range("A38").Interior.Color = RGB(255, 255, 0)
        .Range("A43").Interior.Color = RGB(255, 255, 0)
        .Range("A49").Interior.Color = RGB(255, 255, 0)
        .Range("A55").Interior.Color = RGB(255, 255, 0)
        .Range("A63").Interior.Color = RGB(255, 255, 0)
        .Range("A67").Interior.Color = RGB(255, 255, 0)
        .Range("A74").Interior.Color = RGB(255, 255, 0)
        .Range("A80").Interior.Color = RGB(255, 255, 0)
        .Range("A87").Interior.Color = RGB(255, 255, 0)
        .Range("A93").Interior.Color = RGB(255, 255, 0)
        .Range("A98").Interior.Color = RGB(255, 255, 0)
        .Range("A105").Interior.Color = RGB(255, 255, 0)
        MsgBox ("Réponse affichées")
    Else
        .Range("A7").Interior.Color = RGB(255, 255, 255)
        .Range("A7").Interior.Color = RGB(255, 255, 255)
        .Range("A15").Interior.Color = RGB(255, 255, 255)
        .Range("A20").Interior.Color = RGB(255, 255, 255)
        .Range("A25").Interior.Color = RGB(255, 255, 255)
        .Range("A33").Interior.Color = RGB(255, 255, 255)
        .Range("A38").Interior.Color = RGB(255, 255, 255)
        .Range("A43").Interior.Color = RGB(255, 255, 255)
        .Range("A49").Interior.Color = RGB(255, 255, 255)
        .Range("A55").Interior.Color = RGB(255, 255, 255)
        .Range("A63").Interior.Color = RGB(255, 255, 255)
        .Range("A67").Interior.Color = RGB(255, 255, 255)
        .Range("A74").Interior.Color = RGB(255, 255, 255)
        .Range("A80").Interior.Color = RGB(255, 255, 255)
        .Range("A87").Interior.Color = RGB(255, 255, 255)
        .Range("A93").Interior.Color = RGB(255, 255, 255)
        .Range("A98").Interior.Color = RGB(255, 255, 255)
        .Range("A105").Interior.Color = RGB(255, 255, 255)
        MsgBox ("Réponses cachées")
    End If
    .Protect "Toto"  '=====================================> PROTECTION (mot de passe : "Toto")
End With
End Sub

Je m'y prend comme un débutant avec mes réussites et mes gamelles, merci pour la réponse rapide bonne nuit.

Cordialement

il y a un bug quand je coche la case à cocher dans la feuille RESULTAT les cellules change bien de couleur de fond, mais les feuille ne sont plus protégées.

Que faire.

Cordialement

Bonjour Bibix, bonjour le forum,

bibix a écrit :

il y a un bug quand je coche la case à cocher dans la feuille RESULTAT les cellules change bien de couleur de fond, mais les feuille ne sont plus protégées.

Essaie de donner des explication claires !... L'onglet RESULTAT contient 9 cases à cocher. De laquelle parles-tu ?

J'ouvre ton fichier et il y a 10 onglet protégés. Quelle que soit la case a cochée que je coche, il y a toujours 10 onglets protégés !...

de quelles feuilles parles-tu ?

Un bug renvoie sur une ligne de code soulignée de jaune. Pourrais-tu indiquer cette ligne.

Si tu ne fais pas d'effort tu n'obtiendras pas de réponses !...

Bonsoir à tous,

il s'agit de la case à cocher "afficher les bonnes réponses".

je protège les feuilles avec le mot de passe BERTRAND1 dans REVISION/ protèger la feuille, Excel affiche "Oter la protection de la feuille" et quand je coche la case à cocher "afficher les bonnes réponses" il n'y a plus de protection de la feuille.

pour rappel le mot de passe pour VBA est: formation

Bonjour Bibix, bonjour le forum,

Tu es désespérant ! Je t'avais donné la solution dans un post précédent... Ton code déprotège les onglets mais oublie de les protéger à nouveau à la fin, juste avant le End With avec :

.Protect "BERTRAND1" 'à adapter à l'onglet

C'est comme si tu ouvrais ta porte fermée à clé en rentrant chez toi mais qu'en ressortant tu ne fermes pas à clé. Résultat : la porte est ouverte ou quand je coche la case à cocher "afficher les bonnes réponses" il n'y a plus de protection de la feuille. C"est couillon non !

Merci Thauthéme pour l'aide,

je plaide coupable, j'ai pas bien lu le code et je comprend pourquoi ça ne fonctionner pas correctement.

Je débute en VBA et je suis très loin d'en voir le bout.

Cordialement

Rechercher des sujets similaires à "probleme protection feuille vba"