VBA Excel - Verrouillage déverrouillage des cellules

Question

Bonjour,
J'aimerai déverrouiller une plage de cellules à l'aide d'un macro, sachant que la feuille sera auparavant verrouillée.
Je suis bloqué à ce stade : 

ActiveSheet.Unprotect    
    ActiveSheet.Protection.AllowEditRanges.Add Title:="Plage1", Range:=Range( _
        "I9:L19")
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True


Merci d'avance

jordane45 · Answer

Bonjour,
Je ne connais pas le code que vous utilisez (activesheet.protection.allowEdit... ) -> Sur quelle version d'office êtes-vous ?

En ce qui me concerne, lorsque je veux vérrouiller ou non une plage de cellules je le fais dans le menu Format de celles-ci.

Eventuellement, par macro, ça donnerai ceci : 

Sub Deprot_Plage()
'Deprotection de la feuille
    ActiveSheet.Unprotect
'Selection de la plage de cellule à manipuler
    Range("A1:D12").Select
'On Déverrouillage les cellules de la plage
   Selection.Locked = False 
   'Pour les revérrouiller on utilisera la commande :Selection.Locked = True

' Re-Protection de la feuille
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub



Cordialement,
Jordane,

VBA Excel - Verrouillage déverrouillage des cellules

1 réponse

Votre réponse

Discussions similaires