[VBA macro excel] Déverrouiller copier puis verrouiller

[INFINITY100]

Bonsoir à tous

Encore une fois je suis face à un problème VBA, en effet j'ai un classeur qui contient deux feuilles 1 et 2 et dont la feuil2 est protégée par un mot de passe. Sur la feuil1 j'ai un bouton qui me copie une formule vers la feuil2 et cela fonction très bien quand la feuil2 n'est pas protégée, mais dans le cas contraire VBA me retourne une erreur.

Donc voila ma question est de savoir s'il y a un moyen d'avoir une macro qui copie ma formule vers la feuil2 étant cette dernière soit protégée de sorte à réaliser ceci : (déverrouiller feuil2, copier, puis verrouiller de nouveau)

Merci à vous tous

Cordialement

 

[INFINITY100]

Re : [VBA macro excel] Déverrouiller copier puis verrouiller

Pas de solution les amis ?

 

[chris]

Re : [VBA macro excel] Déverrouiller copier puis verrouiller

Bonjour

Regarde en bas de cette page les discussions similaires.

 

[INFINITY100]

Re : [VBA macro excel] Déverrouiller copier puis verrouiller

Merci Chris

Voila en creusant la tête j'ai finalement trouvé la solution très simple et efficace

finalement il fallait juste mettre dans le VBA ce simple code :

Sub UNLOCK_COPY_LOCK()

Sheets("Feuil2").Unprotect "TEST"
Sheets("Feuil2").Select
Range("A1").Select
 Range("A1:A10").FormulaR1C1 = _
        "=1+1"
Sheets("Feuil2").Protect "TEST"

End Sub

Je joins le fichier exemple pour nos amis qui auront besoin dans l'avenir de cette formule

Et merci à vous tous

 

[Compte Supprimé 979]

Re : [VBA macro excel] Déverrouiller copier puis verrouiller

Bonjour Infinity100

Si je puis me permettre, quand tu codes, évites les "SELECT" cela t'évitera des gros problèmes par la suite

Sub UNLOCK_COPY_LOCK()  With Sheets("Feuil2")
    .Unprotect "TEST"
    .Range("A1:A10").FormulaLocal = "=1+1"
    .Protect "TEST"
  End With
End Sub

A+