Nomes escondidos encontrados

O Inspetor de Documentos encontrou nomes escondidos no seu livro. Estes nomes podem armazenar informações ocultas sobre cenários de Solver. Por exemplo, quando utiliza o add-in Solver para executar um cenário, pode armazenar informações sobre parâmetros de cálculo e outros dados sensíveis como nomes escondidos no seu livro de trabalho.

Importante: A Microsoft fornece exemplos de programação apenas para ilustração, sem garantia expressa ou implícita. Isto inclui, mas não se limita a, as garantias implícitas de comercialismo ou aptidão para um determinado fim. Este artigo assume que está familiarizado com a linguagem de programação que está a ser demonstrada e com as ferramentas que são usadas para criar e depurar procedimentos. Os engenheiros de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas não modificarão estes exemplos para fornecer funcionalidades adicionais ou procedimentos de construção para satisfazer os seus requisitos específicos.

Problema

O Inspetor de Documentos não pode remover estes nomes escondidos para si.

Solução recomendada

Execute a seguinte macro para remover nomes ocultos. A macro apresenta uma caixa de mensagens que lista três itens: (1) se o nome definido é visível ou oculto, (2) o nome definido, e (3) o que esse nome refere (a referência celular do livro). Pode escolher Sim ou Não para apagar ou manter cada nome definido.

Nota: Se utilizar esta macro para remover nomes ocultos, add-ins (como Solver) ou macros podem não funcionar como esperado e podem perder dados ocultos associados a eles. Esta macro também afeta qualquer nome definido que esteja escondido, não apenas aqueles que foram adicionados por Solver.

Atenção: Se os nomes das suas folhas contiverem espaços, poderá receber um erro quando tentar apagar 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

Nota:  Esta página foi traduzida automaticamente e pode conter erros gramaticais ou imprecisões. O nosso objetivo é que estes conteúdos lhe sejam úteis. Pode indicar-nos se estas informações foram úteis? Eis o artigo em inglês para sua referência.​

Aumente os seus conhecimentos do Office
Explore as formações
Seja o primeiro a obter novas funcionalidades
Adira ao Office Insider

As informações foram úteis?

Obrigado pelos seus comentários!

Obrigado pelo seu feedback! Parece que poderá ser benéfico reencaminhá-lo para um dos nossos agentes de suporte do Office.

×