O Inspetor de Documentos encontrou nomes ocultos em sua pasta de trabalho. Esses nomes podem armazenar informações ocultas sobre cenários do Solver. Por exemplo, quando você usa o suplemento Solver para executar um cenário, ele pode armazenar informações sobre parâmetros de cálculo e outros dados confidenciais como nomes ocultos em sua pasta de trabalho.
Importante: A Microsoft fornece exemplos de programação apenas para ilustração, sem garantia expressa ou implícita. Isso inclui, mas não se limita a, as garantias implícitas de comercialização ou adequação a uma finalidade específica. Este artigo pressupõe que você esteja familiarizado com a linguagem de programação que está sendo demonstrada e com as ferramentas usadas para criar e depurar procedimentos. Os engenheiros de suporte da Microsoft podem ajudá-lo, fornecendo a explicação da funcionalidade de determinado procedimento, mas não modificarão estes exemplos para fornecer funcionalidade adicional nem criarão procedimentos específicos para atender às suas necessidades específicas.
Problema
O Inspetor de Documentos não pode remover esses nomes ocultos para você.
Solução recomendada
Execute a macro a seguir para remover nomes ocultos. A macro exibe uma caixa de mensagem que lista três itens: (1) se o nome definido está visível ou oculto, (2) o nome definido e (3) ao que esse nome se refere (a referência de célula da pasta de trabalho). Você pode escolher Sim ou Não para excluir ou manter cada nome definido.
Observação: Se você usar essa macro para remover nomes ocultos, suplementos (como Solver) ou macros podem não funcionar conforme o esperado e podem perder dados ocultos associados a eles. Essa macro também afeta qualquer nome definido que esteja oculto, não apenas aqueles que foram adicionados pelo Solver.
Cuidado: Se os nomes da planilha contiverem espaços, você poderá receber um erro ao tentar excluir o nome definido.
Remover nomes ocultos
' 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
