Pb avec code protection de ttes les feuilles

Bonjour,

j'ai un problème avec le code de dé protection de toutes les feuilles

Un conseil pour me débloquer

Merci d'avance

Cdlt GALIAX

voici l'erreur

Bonjour Galiax

Un conseil... avoir le bon mot de passe

A+

Salut,

Et si tu utilises une constante ne pas la mettre entre guillemets. Et utiliser les majuscules pour la reconnaitre.

fc.Unprotect MOT_DE_PASSE

Bonjour,

Non cela ne marche pas

même en supprimant les codes "protect" et "unprotect" il me demande un mdp?!!!

Bonsoir,

le dernier message n'est pas du a une demande de mot de passe, c'est que vous utilisez une variable non définie.

Avec un fichier c'est plus simple pour les intervenants de répondre aux questions !
sinon pour reprendre ce qui a déjà été dit avec "MotDePasse" entre guillemet cela veut dire que c'est le mot de passe, est-ce bien cela ?

@ bientôt

LouReeD

Bonsoir,

La syntaxe ne serait-elle pas la suivante?

fc.Unprotect Password:="vraimotdepasse"

Cdt

Papy Henri

Bonsoir à Tous!

Merci pour vos réponses, mais ça ne marche pas!, j'ai refais mon fichier sans utiliser ce code!

A++

Salut,

Merci pour vos réponses, mais ça ne marche pas!, j'ai refais mon fichier sans utiliser ce code!

Il est sûr que c'est la solution la plus radicale, mais il faut persévérer pour avancer...

Donc vérifier que le classeur ne soit pas protégé, vérifier son mot de passe majuscule, minuscule etc. et comme dis plus haut, pour éviter de changer mille lignes de code, utiliser une constante exemple :

Option Explicit
' // On déclare une constante publique en tête de module
Public Const APPLICATION_PASSWORD = "Mot De Passe"

' // On peut ensuite se servir de cette constante dans le code
    With ThisWorkbook.Sheets("Feuil1")
        If .Protection.AllowEditRanges = False Then
            .Unprotect APPLICATION_PASSWORD
            .Range("B1").Value = Format(Date, "short date")
            .Protect APPLICATION_PASSWORD
        End If
    End With

Bonjour,

Merci Jean Paul pour ton explication.

Cdlt

@++