Une tâche courante effectuée dans les macros consiste à verrouiller et déverrouiller différentes cellules et objets dans un classeur. Ceci est souvent fait pour des raisons de protection, afin que les choses ne puissent pas être modifiées par inadvertance par les utilisateurs. Si vous devez déverrouiller les graphiques qui se trouvent dans votre classeur, vous pouvez facilement le faire si vous vous souvenez que même si les graphiques peuvent être considérés comme des objets de dessin, vous ne les déverrouillez pas en tant qu’objets de dessin – vous déverrouillez spécifiquement l’objet de graphique.

En outre, la façon dont vous déverrouillez un graphique varie selon qu’il s’agit d’une feuille Graphique ou d’un objet Graphique sur une feuille de calcul standard. Le code suivant, nommé ChartUnProtect, fournit un exemple de comment déprotéger avec succès les deux types de graphiques.

Sub ChartUnProtect()

Dim wks As Worksheet     Dim cht As Chart     Dim chtObj As ChartObject     Dim PW As String     PW = "mypass"



'Unprotect all Chart sheets     For Each cht In ActiveWorkbook.Charts         Sheets(cht.Name).Unprotect password:=PW     Next

'Unlock all Chart objects on each worksheet     For Each wks In ActiveWorkbook.Worksheets         wks.Unprotect password:=PW         For Each chtObj In wks.ChartObjects             wks.DrawingObjects(chtObj.Name).Locked = False         Next         wks.Protect password:=PW     Next End Sub

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (2264) s’applique à Microsoft Excel 97, 2000, 2002 et 2003.