Die Dokumentprüfung hat ausgeblendete Namen in der Arbeitsmappe gefunden. Diese Namen können ausgeblendete Informationen zu Solver-Szenarien enthalten. Wenn Sie z. B. das Solver-Add-In verwenden, um ein Szenario auszuführen, kann es Informationen zu den Berechnungsparametern und andere sensible Daten als ausgeblendete Namen in der Arbeitsmappe speichern.
Wichtig: Microsoft stellt Programmierbeispiele nur zur Veranschaulichung zur Verfügung, ohne ausdrückliche oder stillschweigende Garantie. Dies schließt die stillschweigende Gewährleistung der Marktgängigkeit oder der Eignung für einen bestimmten Zweck ein, ist aber nicht darauf beschränkt. In diesem Artikel wird davon ausgegangen, dass Sie mit der vorgestellten Programmiersprache und den Werkzeugen zum Erstellen und Debuggen von Prozeduren vertraut sind. Die Microsoft Support-Spezialisten können bei der Erläuterung der Funktionalität bestimmter Prozeduren helfen, jedoch werden sie diese Beispiele nicht in Bezug auf eine erweiterte Funktionalität verändern, noch werden sie Prozeduren entwickeln, die auf Ihre besonderen Bedürfnisse zugeschnitten sind.
Problem
Diese ausgeblendeten Namen können von der Dokumentprüfung nicht für Sie entfernt werden.
Empfohlene Lösung
Führen Sie das folgende Makro aus, um ausgeblendete Namen zu entfernen. Das Makro zeigt ein Meldungsfeld an, das drei Elemente auflistet: (1) ob der definierte Name sichtbar oder ausgeblendet ist, (2) der definierte Name und (3) worauf sich dieser Name bezieht (der Zellenbezug der Arbeitsmappe). Sie können Ja oder Nein auswählen, um die einzelnen definierten Namen zu löschen oder beizubehalten.
Hinweis: Wenn Sie dieses Makro verwenden, um ausgeblendete Namen zu entfernen, funktionieren Add-Ins (z. B. Solver) oder Makros möglicherweise nicht wie erwartet, und mit ihnen verknüpfte ausgeblendete Daten gehen möglicherweise verloren. Dieses Makro betrifft auch alle definierten Namen, der ausgeblendet wurden, nicht nur diejenigen, die von Solver hinzugefügt wurden.
Achtung: Wenn Ihre Blattnamen Leerzeichen enthalten, erhalten Sie möglicherweise eine Fehlermeldung, wenn Sie versuchen, den definierten Namen zu löschen.
Ausgeblendete Namen entfernen
' 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
