Dokumentinspeksjon fant skjulte navn i arbeidsboken. Disse navnene kan lagre skjult informasjon om problemløserscenarioer. Når du for eksempel bruker Problemløser-tillegget til å kjøre et scenario, kan det hende det lagrer informasjon om beregningsparametere og andre sensitive data som skjulte navn i arbeidsboken.
Viktig!: Microsoft tilbyr programmeringseksempler bare for illustrasjon, uten garanti enten uttrykt eller underforstått. Dette omfatter, men er ikke begrenset til, de underforståtte garantiene om salgbarhet eller egnethet for et bestemt formål. Denne artikkelen antar at du er kjent med programmeringsspråket som demonstreres, og med verktøyene som brukes til å opprette og feilsøke prosedyrer. Microsoft kundestøtteteknikere kan bidra til å forklare funksjonaliteten til en bestemt prosedyre, men de vil ikke endre disse eksemplene for å gi ekstra funksjonalitet eller konstruere prosedyrer for å oppfylle dine spesifikke krav.
Problem
Dokumentinspeksjon kan ikke fjerne disse skjulte navnene for deg.
Anbefalt løsning
Kjør følgende makro for å fjerne skjulte navn. Makroen viser en meldingsboks med tre elementer: (1) om det definerte navnet er synlig eller skjult, (2) det definerte navnet og (3) det navnet refererer til (cellereferansen i arbeidsboken). Du kan velge Ja eller Nei for å slette eller beholde hvert definerte navn.
Obs!: Hvis du bruker denne makroen til å fjerne skjulte navn, kan det hende at tillegg (for eksempel Problemløser) eller makroer ikke fungerer som forventet og kan miste skjulte data som er knyttet til dem. Denne makroen påvirker også alle definerte navn som er skjult, ikke bare de som ble lagt til av Problemløser.
Forsiktig!: Hvis arknavnene inneholder mellomrom, kan det hende du får en feilmelding når du prøver å slette det definerte navnet.
Fjern skjulte navn
' 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
