Versteckte Namen gefunden
Die Dokumentprüfung hat versteckte Namen in Ihrer Arbeitsmappe gefunden. Diese Namen können versteckte Informationen zu Solver-Szenarien speichern. Wenn Sie beispielsweise das Solver-Add-In zum Ausführen eines Szenarios verwenden, speichert es möglicherweise Informationen zu Berechnungsparametern und anderen sensiblen Daten als versteckte Namen in Ihrer Arbeitsmappe.
Wichtig: Microsoft stellt Programmierbeispiele nur zur Veranschaulichung bereit, ohne ausdrückliche oder stillschweigende Gewährleistung. Dies beinhaltet, ist aber nicht beschränkt auf stillschweigende Gewährleistungen der Marktgängigkeit oder Eignung für einen bestimmten Zweck. In diesem Artikel wird davon ausgegangen, dass Sie mit der demonstrierten Programmiersprache und den Tools vertraut sind, die zum Erstellen und Debuggen von Prozeduren verwendet werden. Microsoft-Supporttechniker können helfen, die Funktionalität eines bestimmten Verfahrens zu erklären, aber sie werden diese Beispiele nicht ändern, um zusätzliche Funktionalität bereitzustellen oder Verfahren zu erstellen, die Ihren spezifischen Anforderungen entsprechen.
Ausgabe
Die Dokumentprüfung kann diese versteckten Namen nicht für Sie entfernen.
Empfohlene Lösung
Führen Sie das folgende Makro aus, um versteckte 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 Zellbezug der Arbeitsmappe). Sie können Ja oder Nein wählen, um jeden definierten Namen zu löschen oder beizubehalten.
Hinweis: Wenn Sie dieses Makro verwenden, um versteckte Namen zu entfernen, funktionieren Add-Ins (z. B. Solver) oder Makros möglicherweise nicht wie erwartet und es können versteckte Daten verloren gehen, die ihnen zugeordnet sind. Dieses Makro wirkt sich auch auf alle definierten Namen aus, die ausgeblendet sind, nicht nur auf die, 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.
Entfernen Sie versteckte Namen
' 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
No comments:
Post a Comment