Peidetud nimede leidmine

Dokumendiinspektor on leidnud teie töövihikust peidetud nimesid. Nende nimede kujul võidakse talletada Solveri stsenaariumidega seotud peidetud teavet. Näiteks kui käivitate lisandmooduli Solver abil mõne stsenaariumi, võidakse arvutusparameetrid ja muu delikaatne teave talletada teie töövihikus peidetud nimedena.

NB!: Microsoft pakub programmeerimise näiteid ainult illustreerimiseks, kuid mitte otseseid ega kaudseid. See hõlmab, kuid mitte ainult, kaudseid garantiisid kaubandusliku või sobivuse teatud otstarbeks. Selles artiklis eeldatakse, et olete kursis programmeerimiskeelega, mida näidatakse ning kus on kasutatud tööriistu, mida kasutatakse toimingute loomiseks ja silumiseks. Microsofti tugiteenuste insenerid aitavad selgitada konkreetse protseduuri funktsioone, kuid nad ei muuda neid näiteid, et lisada teie vajadustele vastavaid funktsioone või koostada toiminguid.

Probleem

Dokumendiinspektor ei saa neid peidetud nimesid eemaldada.

Soovitatav lahendus

Peidetud nimede eemaldamiseks käivitage järgmine makro. Makro kuvab ühe sõnumi, kus on loetletud kolm üksust: (1) kas määratletud nimi on nähtav või peidetud, (2) määratletud nimi ja (3) millele see nimi viitab (töövihiku lahtriviide). Iga määratletud nime kustutamiseks või säilitamiseks võite valida Jah või ei .

Märkus.: Kui eemaldate seda makrot kasutades peidetud nimed, ei pruugi lisandmoodulid (nt Solver) ja makrod enam ootuspäraselt töötada ning nendega seotud peitandmed võivad kaotsi minna. Lisaks Solveri lisatud nimedele mõjutab see makro ka kõiki muid määratud nimesid, mis on peidetud.

Ettevaatust!: Kui teie lehtede nimed sisaldavad tühikuid, võidakse määratud nime kustutamise katsel kuvada tõrketeade.

Peidetud nimede eemaldamine

' 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

Märkus.:  See leht on tõlgitud automaatselt ning sellel võib leiduda grammatikavigu ja ebatäpsusi. Tahame, et sellest sisust oleks teile abi. Andke meile teada, kui see teave oli teile abiks. Soovi korral saate ingliskeelset artiklit lugeda siit.​

Kas vajate veel abi?

Täiendage Office'i kasutamise oskusi
Tutvuge koolitusmaterjalidega
Kasutage uusi funktsioone enne teisi
Liituge Office Insideri programmiga

Kas sellest teabest oli abi?

Täname tagasiside eest!

Täname tagasiside eest! Tundub, et võiksime teid kokku viia ühega meie Office'i tugiagentidest, kes aitab teil probleemi lahendada.

×