Inspector document a găsit nume ascunse în registrul de lucru. Aceste nume pot stoca informații ascunse despre scenariile Rezolvitor. De exemplu, atunci când utilizați programul de completare Rezolvitor pentru a rula un scenariu, acesta poate stoca informații despre parametrii de calcul și alte date sensibile ca nume ascunse în registrul de lucru.
Important: Microsoft oferă exemple de programare doar pentru ilustrație, fără garanție exprimată sau implicită. Aceasta include, dar nu se limitează la, garanțiile implicite de vandabilitate sau potrivire pentru un anumit scop. Acest articol presupune că sunteți familiarizat cu limbajul de programare care este demonstrat și cu instrumentele utilizate pentru a crea și a depana procedurile. Inginerii de asistență Microsoft vă pot ajuta să explicați funcționalitatea unei anumite proceduri, dar nu vor modifica aceste exemple pentru a oferi funcționalități suplimentare sau proceduri de construcție care să îndeplinească cerințele dvs. specifice.
Problemă
Inspector document nu poate elimina aceste nume ascunse pentru dvs.
Soluția recomandată
Rulați următoarea macrocomandă pentru a elimina numele ascunse. Macrocomanda afișează o casetă de mesaj care listează trei elemente: (1) dacă numele definit este vizibil sau ascuns, (2) numele definit și (3) la ce se referă acel nume (referința la celula registrului de lucru). Puteți alege Da sau Nu pentru a șterge sau a păstra fiecare nume definit.
Notă: Dacă utilizați această macrocomandă pentru a elimina numele ascunse, este posibil ca programele de completare (cum ar fi Rezolvitorul) sau macrocomenzile să nu funcționeze așa cum vă așteptați și să piardă datele ascunse asociate. Această macrocomandă afectează, de asemenea, orice nume definit care este ascuns, nu doar pe cel care a fost adăugat de Rezolvitor.
Precauție: Dacă numele foilor conțin spații, este posibil să primiți o eroare atunci când încercați să ștergeți numele definit.
Eliminare nume ascunse
' 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
