Dokumentinspektion fandt skjulte navne i projektmappen. Disse navne kan gemme skjulte oplysninger om Problemløser-scenarier. Når du f.eks . bruger tilføjelsesprogrammet Problemløser til at køre et scenarie, kan det gemme oplysninger om beregningsparametre og andre følsomme data som skjulte navne i projektmappen.
Vigtigt!: Microsoft leverer kun programmeringseksempler til illustration uden garanti, hverken udtrykt eller underforstået. Dette omfatter, men er ikke begrænset til, underforståede garantier for salgbarhed eller egnethed til et bestemt formål. I denne artikel antages det, at du kender det programmeringssprog, der demonstreres, og med de værktøjer, der bruges til at oprette og foretage fejlfinding af procedurer. Microsofts supportteknikere kan hjælpe med at forklare funktionaliteten af en bestemt procedure, men de vil ikke ændre disse eksempler for at give ekstra funktionalitet eller konstruere procedurer, der opfylder dine specifikke krav.
Problem
Dokumentinspektion kan ikke fjerne disse skjulte navne for dig.
Anbefalet løsning
Kør følgende makro for at fjerne skjulte navne. Makroen viser et meddelelsesfelt med tre elementer: (1) om det definerede navn er synligt eller skjult, (2) det definerede navn og (3) hvad navnet refererer til (projektmappens cellereference). Du kan vælge Ja eller Nej for at slette eller beholde hvert defineret navn.
Bemærk!: Hvis du bruger denne makro til at fjerne skjulte navne, fungerer tilføjelsesprogrammer (f.eks. Problemløser) eller makroer muligvis ikke som forventet og kan miste skjulte data, der er knyttet til dem. Denne makro påvirker også eventuelle definerede navne, der er skjult, ikke kun dem, der blev tilføjet af Problemløser.
Advarsel!: Hvis arknavnene indeholder mellemrum, får du muligvis en fejl, når du forsøger at slette det definerede navn.
Fjern skjulte navne
' 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
