A program rejtett neveket talált

A Dokumentumfelügyelő rejtett neveket talált a munkafüzetben. Ezek a nevek rejtett információkat tárolnak a Solver eseteiről. Amikor például a Solver bővítmény használatával futtat egy esetet, a bővítmény a számítási paraméterekről és más bizalmas adatokról információkat tárolhat a munkafüzetben, rejtett nevek formájában.

Fontos: A Microsoft csak szemléltetési lehetőségeket nyújt az illusztrációk számára, kifejezett vagy hallgatólagos szavatosság nélkül. Ez a funkció magában foglalja a eladhatóságra vagy az adott célra való alkalmasságra vonatkozó vélelmezett jótállást, de nem korlátozódik rá. A jelen cikk azt feltételezi, hogy jártas a bemutatni kívánt programozási nyelvről, valamint a hibakeresési eljárásokhoz és a hibakereséshez használt eszközökről. A Microsoft támogatási mérnökei segíthetnek kifejteni egy adott eljárás funkcióit, de ezek a példák nem fogják módosítani, hogy további funkciókat adjanak meg, illetve hogyan hozhatnak létre eljárásokat a megadott követelmények kielégítése érdekében.

Probléma

A dokumentumfelügyelő nem tudja eltávolítani ezeket a rejtett neveket.

Javasolt megoldás

A rejtett nevek eltávolításához futtassa az alábbi makrót. A makróban három elem látható: (1) a definiált név látható vagy rejtett, (2) a definiált név és (3) a név (a munkafüzet cellájára) hivatkozik. Lehet, hogy az Igen vagy a nem lehetőséget választja, vagy az egyes definiált neveket meg szeretné őrizni.

Megjegyzés: Ha egy makrót használ a rejtett nevek eltávolításához, akkor előfordulhat, hogy a bővítmények (például a Solver) vagy a makrók nem a várt módon működnek, és elveszhetnek a velük társított rejtett adatok. Ez a makró minden olyan definiált névre hatással van, amely rejtett, nemcsak azokra, amelyek a Solverrel lettek felvéve.

Figyelmeztetés: Ha a munkalap neve szóközöket tartalmaz, akkor hibaüzenet jelenhet meg, amikor megkísérli törölni a definiált nevet.

Rejtett nevek eltávolítása

' 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

Megjegyzés:  Ez az oldal gépi fordítással lett lefordítva, ezért nyelvtani hibákat és pontatlanságokat tartalmazhat. A célunk az, hogy ezek a tartalmak felhasználóink hasznára váljanak. Hasznos volt ez az információ az Ön számára? Itt találja az eredeti angol nyelvű cikket.

További segítségre van szüksége?

Office-jártasság bővítése
Oktatóanyagok megismerése
Új szolgáltatások listájának lekérése
Részvétel az Office Insider programban

Hasznos volt az információ?

Köszönjük a visszajelzését!

Köszönjük visszajelzését. Jobbnak látjuk, ha az Office egyik támogatási szakemberéhez irányítjuk.

×