Dokumentų inspektorius darbaknygėje rado paslėptus vardus. Šiuose pavadinimuose gali būti saugoma paslėpta informacija apie sprendimo priemonės scenarijus. Pvz., kai naudojate sprendimo ieškojimo priedą scenarijui vykdyti, ji gali saugoti informaciją apie skaičiavimo parametrus ir kitus slaptus duomenis kaip paslėptus pavadinimus darbaknygėje.

Svarbu: "Microsoft" pateikia programavimo pavyzdžius tik iliustracijai, be išreikštos ar numanomos garantijos. Tai apima numanomas tinkamumo prekybai arba tinkamumo tam tikru tikslu garantijas, bet tuo neapsiribojant. Šiame straipsnyje daroma prielaida, kad esate susipažinę su demonstruojanti programavimo kalba ir įrankiais, naudojamais procedūroms kurti ir derinti. "Microsoft" palaikymo inžinieriai gali padėti paaiškinti konkrečios procedūros funkcijas, tačiau jie nekeiskite šių pavyzdžių, kad galėtų teikti papildomas funkcijas arba kurti procedūras, kad atitiktų 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 vardus. Makrokomandoje rodomas pranešimo laukas, kuriame išvardyti trys elementai: (1) ar apibrėžtas pavadinimas yra matomas, ar paslėptas, (2) apibrėžtas pavadinimas ir (3) tai, ką tas pavadinimas nurodo (darbaknygės langelio nuoroda). Galite pasirinkti Taip arbaNe, kad panaikinsite arba išlaikysite kiekvieną apibrėžtą pavadinimą.

Pastaba: Jei naudojate šią makrokomandą norėdami pašalinti paslėptus pavadinimus, papildiniai (pvz., Sprendimo paieška) arba makrokomandos gali veikti ne taip, kaip tikėtasi, ir gali prarasti paslėptus su jais susijusius duomenis. Ši makrokomanda taip pat paveikia bet kokį paslėptą apibrėžtą pavadinimą, ne tik tą, kurį įtraukė Sprendimo sprendė.

Dėmesio: Jei lapų pavadinimuose yra tarpų, galite gauti klaidos pranešimą, kai bandote panaikinti apibrėžtą pavadinimą.

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

Reikia daugiau pagalbos?

Tobulinkite savo įgūdžius
Ieškoti mokymo
Pirmiausia gaukite naujų funkcijų
Prisijungti prie "Microsoft Insider"

Ar ši informacija buvo naudinga?

Ar esate patenkinti vertimo kokybe?
Kas turėjo įtakos jūsų patirčiai?

Dėkojame už jūsų atsiliepimus!

×