Rasti paslėpti vardai

Dokumentų inspektorius jūsų darbaknygėje rado paslėptus pavadinimus. Šiuose pavadinimuose gali būti saugoma paslėpta informacija apie sprendimo paieškos scenarijus. Pavyzdžiui, kai naudojate Sprendimo paieškos priedą , kad paleistumėte scenarijų, jis gali saugoti informaciją apie skaičiavimo parametrus ir kitus svarbius duomenis kaip paslėptus pavadinimus darbaknygėje.

Svarbu: "Microsoft" teikia programavimo pavyzdžius tik iliustracijoje, bet nepareikšta arba numanomų garantijų. Tai yra, bet neapsiribojant, numanomas garantijas dėl tinkamumo parduoti ar konkrečiam tikslui. Šiame straipsnyje daroma prielaida, kad esate susipažinę su rodoma programavimo kalba ir įrankiais, naudojamais procedūroms kurti ir derinti. "Microsoft" palaikymo inžinieriai gali padėti paaiškinti konkrečios procedūros funkcionalumą, tačiau jie nekeis šių pavyzdžių, kad pateiktų papildomas funkcijas arba sukurtų procedūras, atitinkančias konkrečius jūsų reikalavimus.

Problema

Dokumentų inspektorius negali pašalinti šių paslėptų pavadinimų.

Rekomenduojamas sprendimas

Vykdykite šią makrokomandą, kad pašalintumėte paslėptus vardus. Makrokomanda rodo pranešimo lauką, kuriame išvardijami trys elementai: (1) ar apibrėžtas pavadinimas yra matomas arba 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 naudojate šią makrokomandą, kad pašalintumėte paslėptus vardus, papildiniai (pvz., sprendimo paieška) arba makrokomandos gali veikti netinkamai ir gali prarasti su jais susietus paslėptus duomenis. Ši makrokomanda taip pat paveikia bet kurį apibrėžtą vardą, kuris yra paslėptas, ne tik tuos, kurie buvo įtraukti į sprendimo paiešką.

Dėmesio: Jei jūsų lapų pavadinime yra tarpų, galite gauti klaidos pranešimą, kai bandysite panaikinti apibrėžtą pavadinimą.

Paslėptų vardų š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

Pastaba:  Šis puslapis išverstas automatiškai, todėl gali būti gramatikos klaidų ar netikslumų. Mūsų tikslas – padaryti, kad šis turinys būtų jums naudingas. Prašome mus informuoti, ar radote reikiamos informacijos. Čia yra straipsnis anglų kalba, kuriuo galite pasinaudoti kaip nuoroda.

Tobulinkite savo „Office“ įgūdžius
Ieškoti mokymo
Pirmiausia gaukite naujų funkcijų
Prisijunkite prie „Office Insider“ dalyvių

Ar ši informacija buvo naudinga?

Dėkojame už jūsų atsiliepimus!

Dėkojame už jūsų atsiliepimą! Panašu, kad gali būti naudinga jus sujungti su vienu iš mūsų „Office“ palaikymo agentų.

×