Dokumentų inspektorius rado paslėptus pavadinimus jūsų darbaknygėje. Šie pavadinimai gali saugoti paslėptą informaciją apie sprendimo paieškos scenarijus. Pavyzdžiui, kai naudojate sprendimo paieškos papildinį vykdydami scenarijų, jis gali saugoti informaciją apie skaičiavimo parametrus ir kitus slaptus duomenis kaip paslėptus pavadinimus darbaknygėje.
Svarbu
"„Microsoft“" pateikia programavimo pavyzdžių tik iliustracijai, be išreikštų ar numanomų garantijų. Tai apima, bet neapsiriboja, numanomas tinkamumo parduoti arba tinkamumo konkrečiam tikslui garantijas.
Straipsnyje laikomasi nuomonės, kad esate susipažinę su demonstruojama programavimo kalba ir įrankiais, naudojamais kuriant ir derinant procedūras. "„Microsoft“" palaikymo inžinieriai gali padėti paaiškinti konkrečios procedūros funkcionalumą, bet jie nemodifikuos šių pavyzdžių, kad suteiktų papildomų funkcinių galimybių, ir nesukurs procedūrų, atitinkančių 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. Makrokomanda rodo pranešimo lauką, kuriame išvardyti trys elementai: (1) ar apibrėžtas pavadinimas matomas, ar paslėptas, (2) apibrėžtas pavadinimas ir (3) ką tas pavadinimas nurodo (darbaknygės langelio nuoroda). Galite pasirinkti Taip arba Ne , kad panaikintumėte arba išlaikytumėte kiekvieną apibrėžtą pavadinimą.
Pastaba
Jei naudosite šią makrokomandą norėdami pašalinti paslėptus pavadinimus, papildiniai (pvz., sprendimo paieškos priemonė) arba makrokomandos gali veikti netinkamai ir prarasti su jais susijusius paslėptus duomenis. Ši makrokomanda taip pat paveikia bet kurį paslėptą apibrėžtą pavadinimą, ne tik tuos, kuriuos įtraukė sprendimo paieškos priemonė.
Dėmesio
Jei lapų pavadinimuose yra tarpų, galite gauti klaidos pranešimą, kai bandysite panaikinti apibrėžtą pavadinimą.
Paslėptų pavadinimų šalinimas
' 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