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, ilma et garantii oleks väljendatud või kaudselt. See hõlmab kaubastatavuse või kindlaks otstarbeks sobivuse kaudseid garantiisid, kuid mitte ainult. Selles artiklis eeldatakse, et olete tuttav kuvatava programmeerimiskeelega ja tööriistadega, mida kasutatakse protseduuride loomiseks ja silumiseks. Microsofti tugiteenuste insenerid saavad aidata selgitada konkreetse protseduuri funktsionaalsust, kuid nad ei muuda neid näiteid selleks, et pakkuda teie vajadustele vastavaid lisafunktsioone või koostada protseduure.
Probleem
Dokumendiinspektor ei saa neid peidetud nimesid eemaldada.
Soovitatav lahendus
Peidetud nimede eemaldamiseks käivitage järgmine makro. Makro kuvab teateboksi, kus on loetletud kolm üksust: (1) kas määratletud nimi on nähtav või peidetud, (2) määratletud nimi ja (3) sellele nimele viitav teave (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 lehenimed sisaldavad tühikuid, võidakse määratletud nime kustutamise katsel kuvada tõrketeade.
Eemalda peidetud nimed
' 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
