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.
