Dokumentų inspektorius jūsų darbaknygėje rado paslėptų pavadinimų. Šiuose pavadinimuose gali būti saugomos paslėptos informacijos apie sprendimo paieškos scenarijus. Pavyzdžiui, naudojant sprendimo paieškos papildinį scenarijui vykdyti, informacija apie skaičiavimo parametrus ir kitus slaptus duomenis darbaknygėje gali būti saugoma kaip paslėpti pavadinimai.
Svarbu: "Microsoft" pateikia programavimo pavyzdžius tik iliustracijoms, be išreikštos arba numanomos garantijos. Tai apima, bet neapsiriboja, numanomas garantijas dėl tinkamumo parduoti ar tinkamumo konkrečiam tikslui. Šiame straipsnyje daroma prielaida, kad esate susipažinę su programavimo kalba, kuri yra pademonstruojama ir su įrankiais, kurie naudojami kurti ir derinti procedūras. "Microsoft" palaikymo inžinieriai gali padėti paaiškinti konkrečios procedūros funkcijas, tačiau jie nemodifikuos šių pavyzdžių, kad galėtų teikti papildomas funkcijas arba kurti procedūras pagal jūsų konkrečius reikalavimus.
Problema
Dokumentų inspektorius negali pašalinti šių paslėptų pavadinimų už jus.
Rekomenduojamas sprendimas
Vykdykite šią makrokomandą, kad pašalintumėte paslėptus pavadinimus. Makrokomandoje rodomas pranešimo laukas, kuriame pateikiami trys elementai: (1), ar apibrėžtas pavadinimas matomas, ar paslėptas, (2) apibrėžtas pavadinimas ir (3) tai, ką nurodo šis pavadinimas (darbaknygės langelio nuoroda). Galite pasirinkti Taip arba Ne , jei norite naikinti arba išsaugoti kiekvieną apibrėžtą pavadinimą.
Pastaba: Jei šią makrokomandą naudojate paslėptų pavadinimų šalinimui, papildiniai (pvz., sprendimo paieška) arba makrokomandos gali neveikti taip, kaip tikėtasi, ir gali prarasti su jais susijusius paslėptus duomenis. Ši makrokomanda taip pat paveikia bet kokį paslėptą apibrėžtą pavadinimą, ne tik tą, kurį įtraukė sprendimo paieška.
Dėmesio: Jei lapų pavadinimuose yra tarpų, bandydami panaikinti apibrėžtą pavadinimą galite gauti klaidos pranešimą.
Šalinti paslėptus vardus
' 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
