Našli sa skryté mená

Funkcia Kontrola dokumentov našla v zošite skryté názvy. Tieto názvy môžu obsahovať skryté informácie o scenároch doplnku Riešiteľ. Ak napríklad spustíte scenár pomocou doplnku Riešiteľ, môže ako skryté názvy v zošite uložiť informácie o parametroch výpočtov a ďalšie citlivé údaje.

Dôležité: Spoločnosť Microsoft poskytuje príklady programovania iba na ilustráciu, bez výslovnej alebo implicitnej záruky. Patria sem implicitné záruky obchodovateľnosti alebo vhodnosti na konkrétny účel, nie však obmedzené na ne. V tomto článku sa predpokladá, že máte informácie o programovacom jazyku, ktorý ste už chceli vidieť, a o nástrojoch, ktoré sa používajú na vytvorenie a ladenie postupov. Technici technickej podpory spoločnosti Microsoft vám môžu pomôcť vysvetliť funkčnosť konkrétneho postupu, ale neupravia tieto príklady s cieľom poskytnúť ďalšie funkcie alebo konštrukcie postupov podľa vašich konkrétnych požiadaviek.

Problém

Funkcia Kontrola dokumentov nemôže tieto skryté názvy odstrániť za vás.

Odporúčané riešenie

Skryté názvy odstránite spustením nasledujúceho makra. Makro zobrazí okno s hlásením, ktoré obsahuje tri položky: (1), či je definovaný názov viditeľný alebo skrytý, (2) definovaný názov a (3) názov, na ktorý odkazuje (odkaz na bunku zošita). Ak chcete odstrániť alebo ponechaťkaždý definovaný názov, môžete vybrať možnosť Áno alebo Nie.

Poznámka: Ak skryté názvy odstránite pomocou tohto makra, doplnky (napríklad Riešiteľ) alebo makrá nemusia fungovať podľa očakávania a môžu stratiť skryté údaje, ktoré sú k nim priradené. Toto makro ovplyvňuje aj všetky definované názvy, ktoré sú skryté, nielen názvy pridané doplnkom Riešiteľ.

Upozornenie: Ak názvy hárkov obsahujú medzery, pri pokuse o odstránenie definovaného názvu sa môže zobraziť chyba.

Odstránenie skrytých názvov

' 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

Potrebujete ďalšiu pomoc?

Rozšírte svoje zručnosti práce s balíkom Office
Preskúmať školenie
Buďte medzi prvými, ktorí získajú nové funkcie
Pridajte sa k insiderom pre Office

Boli tieto informácie užitočné?

×