Déverrouillage de la plage de cellules dans excel sélectionné par nom de cellule Office 2007

Question

J'ai trois cellules qui sont fusionnées entre elles et sont référencées avec un nom de cellule donné (par exemple "foo"). Je veux maintenant déverrouiller ces cellules avec l'attribut locked.

Le verrou dans le code suivant pas travail, mais la valeur sera affectée avec succès à la cellule:

Workbooks(loadedSheetName).Worksheets("foo").Range("bar").Locked = False 
Workbooks(loadedSheetName).Worksheets("foo").Range("bar") = "foo value" 

Ce qui fonctionnera fait référence à des cellules par « coordonnées » mais il est pas vraiment une option pour moi:

Workbooks(loadedSheetName).Worksheets("foo").Range("B3:E3").Locked = False 

Est-il possible de sélectionner des cellules fusionnées par nom et définir l'attribut locked false?

Answer 1

Le code suivant fonctionne bien dans mon Excel 2007

Sub aa() 
    Dim ce As Range 
    Application.ScreenUpdating = False ''# screen flicker off 
    ActiveSheet.Unprotect Password:="" 
    For Each ce In Range("rng") 
     ce.MergeArea.Locked = "False" 
    Next ce 
    ActiveSheet.Protect Password:="" 
End Sub 

HTH!