L’inspecteur de document a trouvé des noms masqués dans votre classeur. Ces noms peuvent stocker des informations masquées sur les scénarios du solveur. Par exemple, lorsque vous utilisez le complément Solver pour exécuter un scénario, il peut stocker des informations sur les paramètres de calcul et d’autres données sensibles sous forme de noms masqués dans votre classeur.
Important : Microsoft fournit des exemples de programmation à des fins d’illustration uniquement, sans garantie exprimée ou implicite. Cela inclut, sans s’y limiter, les garanties implicites de qualité commerciale ou d’adéquation à un usage particulier. Cet article part du principe que vous êtes familiarisé avec le langage de programmation présenté et avec les outils utilisés pour créer et déboguer des procédures. Les techniciens du Support technique Microsoft peuvent vous expliquer les fonctionnalités d'une procédure particulière, mais ils ne peuvent pas modifier les exemples en vue de vous fournir des fonctionnalités supplémentaires ou de créer des procédures répondant à vos besoins spécifiques.
Problème
L’Inspecteur de document ne peut pas supprimer ces noms masqués pour vous.
Solution recommandée
Exécutez la macro suivante pour supprimer les noms masqués. La macro affiche une boîte de message qui répertorie trois éléments : (1) si le nom défini est visible ou masqué, (2) le nom défini et (3) ce à quoi ce nom fait référence (la référence de cellule du classeur). Vous pouvez choisir Oui ou Non pour supprimer ou conserver chaque nom défini.
Remarque : Si vous utilisez cette macro pour supprimer des noms masqués, les compléments (tels que solveur) ou les macros risquent de ne pas fonctionner comme prévu et de perdre les données masquées qui leur sont associées. Cette macro affecte également tout nom défini qui est masqué, pas seulement ceux qui ont été ajoutés par solveur.
Attention : Si les noms de vos feuilles contiennent des espaces, vous pouvez recevoir une erreur lorsque vous tentez de supprimer le nom défini.
Supprimer les noms masqués
' Module to remove all hidden names on active workbook
Sub Remove_Hidden_Names()
' Dimension variables.
Dim xName As Variant
Dim Result As Variant
Dim Vis As Variant
' Loop once for each name in the workbook.
For Each xName In ActiveWorkbook.Names
'If a name is not visible (it is hidden)...
If xName.Visible = True Then
Vis = "Visible"
Else
Vis = "Hidden"
End If
' ...ask whether or not to delete the name.
Result = MsgBox(prompt:="Delete " & Vis & " Name " & _
Chr(10) & xName.Name & "?" & Chr(10) & _
"Which refers to: " & Chr(10) & xName.RefersTo, _
Buttons:=vbYesNo)
' If the result is true, then delete the name.
If Result = vbYes Then xName.Delete
' Loop to the next name.
Next xName
End Sub
