Gerencie compromissos, planos, orçamentos — é fácil com o Microsoft 365.

Nomes ocultos encontrados

O Inspetor de documento encontrou nomes ocultos em sua pasta de trabalho. Esses nomes podem armazenar informações ocultas sobre os 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 somente para ilustração, sem garantia expressa ou implícita. Isso inclui, entre outros, 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 ajudar a explicar a funcionalidade de um procedimento específico, mas eles não modificarão esses exemplos para fornecer funcionalidade adicional ou construir procedimentos para atender a seus requisitos específicos.

Problema

O Inspetor de documento 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 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 as macros podem não funcionar como esperado e 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 seus nomes de planilha contiverem espaços, você poderá receber um erro quando 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?

Obrigado por seus comentários!

Agradecemos pelos seus comentários! Parece que pode ser útil conectar você a um de nossos agentes de suporte do Office.

×