Controllo documento ha rilevato nomi nascosti nella cartella di lavoro. Questi nomi possono archiviare informazioni nascoste sugli scenari Risolutore. Ad esempio, quando si usa il componente aggiuntivo Risolutore per l'esecuzione di uno scenario, questo può archiviare le informazioni sui parametri di calcolo e altri dati sensibili come i nomi nascosti nella cartella di lavoro.
Importante: Microsoft fornisce esempi di programmazione a titolo puramente illustrativo, senza alcuna garanzia espressa o implicita. Ciò include, a titolo esemplificativo e non esaustivo, le garanzie implicite di commerciabilità o idoneità a uno scopo particolare. Questo articolo presuppone che si abbia familiarità con il linguaggio di programmazione oggetto della dimostrazione e con gli strumenti utilizzati per la creazione e il debug delle procedure. I tecnici del supporto Tecnico Microsoft possono spiegare le funzionalità di una particolare procedura, ma non modificarli per fornire funzionalità aggiuntive o creare procedure in base a specifici requisiti.
Problema
Controllo documento non può rimuovere automaticamente questi nomi nascosti.
Soluzione consigliata
Eseguire la macro seguente per rimuovere i nomi nascosti. La macro visualizza una finestra di messaggio che elenca tre elementi: (1) se il nome definito è visibile o nascosto, (2) il nome definito e (3) a quale nome fa riferimento (riferimento di cella della cartella di lavoro). È possibile scegliere Sì o No per eliminare o mantenere ogni nome definito.
Nota: Se si usa questa macro per rimuovere i nomi nascosti, le macro o i componenti aggiuntivi come Risolutore potrebbero non funzionare come previsto e i dati nascosti associati potrebbero andare perduti. Questa macro influisce anche sui nomi definiti nascosti, non solo su quelli aggiunti da Risolutore.
Attenzione: Se i nomi dei fogli contengono spazi, è possibile che venga visualizzato un messaggio di errore quando si tenta di eliminare il nome definito.
Rimuovere i nomi nascosti
' 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
