Najdena skrita imena

Nadzornik dokumentov je našel skrita imena v vašem delovnem zvezku. V teh imenih so lahko shranjene skrite informacije o scenarijih Reševalca. Ko na primer uporabite dodatek Reševalec za zagon scenarija, lahko shrani informacije o parametrih za izračun in druge občutljive podatke kot skrita imena v delovnem zvezku.

Pomembno: Microsoft ponuja primere programiranja le za ponazoritev, ne da bi bila garancija izražena ali implicitna. To vključuje, vendar ni omejeno na naznačena jamstva o primernosti za prodajo ali ustreznosti za določen namen. V tem članku je predvideno, da ste seznanjeni z programskim jezikom, ki se prikaže, in z orodji, ki jih uporabljate za ustvarjanje in odpravljanje napak. Microsoftovi inženirji za podporo vam lahko pomagajo pojasniti funkcionalnost določenega postopka, vendar teh primerov ne bodo spreminjali, da bi zagotovili dodano funkcionalnost ali sestavili postopke za izpolnitev vaših posebnih zahtev.

Težava

Nadzornik dokumentov ne more odstraniti teh skritih imen namesto vas.

Priporočena rešitev

Zaženite ta makro, da odstranite skrita imena. V makru je prikazano polje s sporočilom, v katerem so navedeni trije elementi: (1) ali je določeno ime prikazano ali skrito, (2) določeno ime in (3) kako se to ime nanaša na (sklic na celico delovnega zvezka). Če želite izbrisati ali ohraniti posamezno določeno ime, lahko izberete» da «ali» ne «.

Opomba: Če uporabljate ta makro za odstranjevanje skritih imen, dodatki (kot so Reševalec) ali makri morda ne bodo delovali po pričakovanjih in lahko izgubijo skrite podatke, povezane z njimi. Ta makro vpliva tudi na katero koli določeno ime, ki je skrito, ne samo na tista, ki jih je dodal Reševalec.

Pozor: Če imena listov vsebujejo presledke, se lahko prikaže sporočilo o napaki, ko poskušate izbrisati določeno ime.

Odstranjevanje skritih imen

' 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

Opomba:  Ta stran je bila prevedena z avtomatizacijo in lahko vsebuje slovnične napake ali nepravilnosti. Želimo, da bi bila ta vsebina za vas uporabna. Ali nam lahko sporočite, če so bile te informacije uporabne? Tukaj je referenčni članek v angleščini.

Ali potrebujete dodatno pomoč?

Razširite poznavanje Officea
Oglejte si izobraževanje
Prvi dobite nove funkcije
Pridružite se programu Office Insider

Vam je bila informacija v pomoč?

Zahvaljujemo se vam za povratne informacije.

Zahvaljujemo se vam za povratne informacije. Videti je, da bi vam prišla prav pomoč enega od naših Officeovih agentov za podporo.

×