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
Note: 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:
- Como bloquear células especificadas sem proteger a planilha inteira no Excel?
- Como remover fórmulas da planilha, mas manter os valores / resultados no Excel?
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab 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!