Note: The other languages of the website are Google-translated. Back to English

Como ocultar a fórmula, mas exibir o resultado sem proteger a planilha no Excel?

Em alguns casos, pode ser necessário ocultar as fórmulas em sua planilha para uso privado. Este artigo fala sobre como ocultar fórmulas, mas exibir resultados sem proteger a planilha no Excel.

Oculte a fórmula, mas exiba o resultado sem proteger a planilha com o código VBA


Oculte a fórmula, mas exiba o resultado sem proteger a planilha com o código VBA

Para ocultar as fórmulas, mas exibindo os resultados sem proteger uma planilha, faça o seguinte.

1. Na planilha, você precisa ocultar as fórmulas, mas exibindo os resultados, clique com o botão direito na guia da planilha e selecione Ver código no menu do botão direito.

2. No Microsoft Visual Basic para Aplicações janela, copie e cole o código VBA na janela Código.

Código VBA: oculta a fórmula, mas exibe o resultado sem proteger a planilha

Dim xDic As New Dictionary
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim xCell As Range
    Dim xRg As Range
    Set xRg = Range("C1:C10")
    If xDic.Count <> xRg.Count Then
        For Each xCell In xRg
            xDic.Add xCell.Address, xCell.FormulaR1C1
        Next
    End If
    If (Target.Count = 1) And (Not Application.Intersect(xRg, Target) Is Nothing) And (Target.HasFormula) Then
        With Target
            .Value = .Value
        End With
    Else
        For Each xCell In xRg
            xCell.Formula = xDic.Item(xCell.Address)
        Next
    End If
End Sub

Nota: No código, C1: C10 é o intervalo de células no qual você deseja ocultar as fórmulas. Por favor, mude de acordo com suas necessidades.

3. Então clique Ferramentas > Referências…. Verifica a Tempo de execução de scripts da Microsoft caixa e clique no OK botão no Referências - VBAProject janela. Veja a imagem:

4. aperte o outro + Q chaves para fechar o Microsoft Visual Basic para Aplicações janela.

A partir de agora, quando você clicar na célula no intervalo especificado, a fórmula ficará oculta imediatamente na Barra de Fórmulas.


Artigos relacionados:


As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
  • Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
  • Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
  • Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
  • Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2021 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos de avaliação gratuita de 30 dias. Garantia de devolução do dinheiro em 60 dias.
guia kte 201905

Guia do Office traz interface com guias para o Office e torna seu trabalho muito mais fácil

  • Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
parte inferior da aba do escritório
Comentários (20)
Avaliado 5 fora do 5 · classificações 1
Este comentário foi feito pelo moderador no site
Tentei usar o código VBA e recebi uma mensagem de erro informando que precisava depurar a seguinte parte do código: "If xDic.Count <> xRg.Count Then"
Este comentário foi feito pelo moderador no site
Prezada Jenessy,
Qual versão do Office você usa?
Este comentário foi feito pelo moderador no site
para mim também o mesmo erro
versão de escritório 2013
Este comentário foi feito pelo moderador no site
Bom dia,
Por favor, copie todo o script incluindo a primeira linha "Dim xDic As New Dictionary".
Perder a primeira linha no código causará esse erro.
Este comentário foi feito pelo moderador no site
Também estou recebendo o mesmo erro
Este comentário foi feito pelo moderador no site
Fui copiado o mundo inteiro, mas ainda dá erro como tipo definido pelo usuário não definido, então o que posso fazer
Este comentário foi feito pelo moderador no site
Marque uma referência a uma Microsoft Active X Data Object Library no editor VBA.


1. Abra o editor VBA e vá para Ferramentas | Referências.


2. Role para baixo até ver a Biblioteca de Objetos de Dados do Microsoft Active X.


3. Se você tiver várias versões, use a versão mais recente. As versões corresponderão às versões do MDAC. A única vez que você não deseja usar a versão mais recente é se estiver distribuindo o projeto para uma máquina que tenha uma versão mais antiga. Portanto, se as máquinas que você está distribuindo têm apenas o MDAC 2.6 instalado e você tem o MDAC 2.7, verifique a referência à versão 2.6 da Biblioteca de Objetos de Dados do Microsoft Active X para garantir que o Projeto funcione nas máquinas para as quais você está distribuindo.
MAIS
Tempo de execução de scripts da Microsoft
Este comentário foi feito pelo moderador no site
Ele continua dizendo depuração e atualiza a cada segundo ...
Este comentário foi feito pelo moderador no site
Há maneira fácil também.
Selecione a célula ou células que você deseja ocultar a fórmula ou os dados.
Vá para Home --> Formatar --> Formatar Células --> Número --> Personalizado
Em Tipo, Remover Geral e Digite """"
O valor da célula ou a fórmula não aparecem na tela
No entanto, ele aparecerá na barra de fórmulas se você selecionar a célula.
Este comentário foi feito pelo moderador no site
Eu tentei usar o código VBA, mas depois de aplicar este código meu excel está ficando lento e travado. Por favor, me ajude a resolver esse problema.
Este comentário foi feito pelo moderador no site
Se pressionarmos e segurarmos o botão esquerdo do mouse em uma célula, a fórmula será exibida até que você solte o botão esquerdo. Caso contrário, isso deve funcionar bem.
Este comentário foi feito pelo moderador no site
após este código vba aplicar o resultado da nova fórmula de soma não aparecendo na célula, por favor me ajude ....
Este comentário foi feito pelo moderador no site
Obrigada. Fórmula funcionou.
Este comentário foi feito pelo moderador no site
Oi Im gracy, estou tentando ocultar a fórmula em uma coluna específica sem senha protegendo a planilha. copiei e colei todo o código e alterei as células, mas ainda não consegui ocultar a fórmula. Você pode por favor ajudar.

Este comentário foi feito pelo moderador no site
fórmula funcionou mas o problema é quando fechamos a planilha e reabrimos que o VBA não funcionou...
Este comentário foi feito pelo moderador no site
Oi, Para continuar usando este VBA no futuro, depois de adicionar o código, salve a pasta de trabalho como uma pasta de trabalho habilitada para macro do Excel.Clique Envie o > Salvar como. Na caixa de diálogo Salvar como, selecione Pasta de trabalho habilitada para macro do Excel de Salvar como digite na lista suspensa e, em seguida, clique no Salvar botão.E, em seguida, use esta pasta de trabalho habilitada para macro do Excel no futuro.
Este comentário foi feito pelo moderador no site
Obrigado por este código, eu realmente precisava de algo assim
Avaliado 5 fora do 5
Este comentário foi feito pelo moderador no site
dia tetap carregando ya ko ?
Este comentário foi feito pelo moderador no site
saya da coba sesuai coding nya, bisa berjalan, tetapi di layar ketika saya clique ke tempat yang dimaksud ada keluar tanda loading, (tanda bulat berkedip). Arquivo saya mmg 18 MB, bagaimana caranya agar tidak keluar tanda kedip tersebut ?
Este comentário foi feito pelo moderador no site
Olá akkia,
O problema que você mencionou não é reproduzido no meu caso. Posso perguntar qual versão do Excel você está usando?
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL