[VBA macro excel] Déverrouiller copier puis verrouiller

INFINITY100 · 19 Septembre 2013

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 · 19 Septembre 2013

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

Pas de solution les amis ? 😕

chris · 19 Septembre 2013

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

Bonjour

Regarde en bas de cette page les discussions similaires.

INFINITY100 · 20 Septembre 2013

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 :

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 · 20 Septembre 2013

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

Code:

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

A+

[VBA macro excel] Déverrouiller copier puis verrouiller

INFINITY100

XLDnaute Occasionnel

INFINITY100

XLDnaute Occasionnel

chris

XLDnaute Barbatruc

INFINITY100

XLDnaute Occasionnel

Pièces jointes

Compte Supprimé 979

Guest

Discussions similaires

[VBA macro excel] Déverrouiller copier puis verrouiller

INFINITY100

XLDnaute Occasionnel

INFINITY100

XLDnaute Occasionnel

chris

XLDnaute Barbatruc

INFINITY100

XLDnaute Occasionnel

Pièces jointes

Compte Supprimé 979

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency