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 nur zur Veranschaulichung Beispiele für die Programmierung zur Verfügung, ohne dass die Garantie entweder ausgedrückt oder impliziert ist. Dies schließt, jedoch nicht beschränkt auf, implizierte Garantien der Marktfähigkeit oder Eignung für einen bestimmten Zweck ein. In diesem Artikel wird davon ausgegangen, dass Sie mit der gezeigten Programmiersprache und den Tools vertraut sind, die zum Erstellen und Debuggen von Prozeduren verwendet werden. Microsoft-Supporttechniker können dabei helfen, die Funktionalität eines bestimmten Verfahrens zu erläutern, aber sie ändern diese Beispiele nicht, um zusätzliche Funktionen bereitzustellen oder Prozeduren zu erstellen, die Ihren speziellen Anforderungen entsprechen.
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 mit drei Elementen an: (1) ob der definierte Name sichtbar oder ausgeblendet ist, (2) den definierten Namen und (3) den Bezug dieses Namens (Zellbezug der Arbeitsmappe). Sie können Ja oder Nein auswählen, um jeden definierten Namen zu löschen oder zu behalten.
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 die Blattnamen Leerzeichen enthalten, wird möglicherweise eine Fehlermeldung angezeigt, 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
