Nomes ocultos encontrados

O Inspetor de Documentos encontrou nomes ocultos em sua lista de trabalho. Esses nomes podem armazenar informações ocultas sobre cenários do Solver. Por exemplo, quando você usa o add-in 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 lista 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 às garantias implícitas de comercialização ou adequação a uma finalidade específica. Este artigo supõe que você está 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 ajudar a explicar a funcionalidade de um procedimento específico, mas não modificarão esses exemplos para fornecer funcionalidades adicionais ou procedimentos de construção para atender aos seus requisitos específicos.

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) o que esse nome se refere (a referência da célula de workbook). 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, os complementos (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 está oculto, não apenas aqueles que foram adicionados pelo Solver.

Cuidado: Se seus nomes de planilha contêm espaços, você pode 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

Precisa de mais ajuda?

Expanda suas habilidades no Office
Explore o treinamento
Obtenha novos recursos primeiro
Ingressar no Office Insider

Essas informações foram úteis?

×