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

Como criptografar / descriptografar células selecionadas no Excel?

Em alguns casos, você pode querer criptografar algumas células para evitar que as células sejam visualizadas por outros usuários. Como você pode fazer isso rapidamente? Agora, neste artigo, apresento os truques para criptografar e descriptografar rapidamente o conteúdo de células selecionadas no Excel.

Criptografar ou descriptografar células selecionadas com VBA

Criptografar ou descriptografar células selecionadas com o Kutools para Excel boa ideia 3


Criptografar ou descriptografar células selecionadas com VBA

Aqui está um código VBA que pode criptografar ou descriptografar células selecionadas no Excel.

1. Pressione Alt + F11 chaves para mostrar Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole abaixo o código VBA no novo Módulo janela.

VBA: criptografar ou descriptografar células selecionadas.

Private Function StrToPsd(ByVal Txt As String) As Long
'UpdatebyKutoolsforExcel20151225
    Dim xVal As Long
    Dim xCh As Long
    Dim xSft1 As Long
    Dim xSft2 As Long
    Dim I As Integer
    Dim xLen As Integer
    xLen = Len(Txt)
    For I = 1 To xLen
        xCh = Asc(Mid$(Txt, I, 1))
        xVal = xVal Xor (xCh * 2 ^ xSft1)
        xVal = xVal Xor (xCh * 2 ^ xSft2)
        xSft1 = (xSft1 + 7) Mod 19
        xSft2 = (xSft2 + 13) Mod 23
    Next I
    StrToPsd = xVal
End Function
Private Function Encryption(ByVal Psd As String, ByVal InTxt As String, Optional ByVal Enc As Boolean = True) As String
    Dim xOffset As Long
    Dim xLen As Integer
    Dim I As Integer
    Dim xCh As Integer
    Dim xOutTxt As String
    xOffset = StrToPsd(Psd)
    Rnd -1
    Randomize xOffset
    xLen = Len(InTxt)
    For I = 1 To xLen
        xCh = Asc(Mid$(InTxt, I, 1))
        If xCh >= 32 And xCh <= 126 Then
            xCh = xCh - 32
            xOffset = Int((96) * Rnd)
            If Enc Then
                xCh = ((xCh + xOffset) Mod 95)
            Else
                xCh = ((xCh - xOffset) Mod 95)
                If xCh < 0 Then xCh = xCh + 95
            End If
            xCh = xCh + 32
            xOutTxt = xOutTxt & Chr$(xCh)
        End If
    Next I
    Encryption = xOutTxt
End Function
Sub EncryptionRange()
    Dim xRg As Range
    Dim xPsd As String
    Dim xTxt As String
    Dim xEnc As Boolean
    Dim xRet As Variant
    Dim xCell As Range
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a range:", "Kutools for Excel", xTxt, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    xPsd = InputBox("Enter password:", "Kutools for Excel")
    If xPsd = "" Then
        MsgBox "Password cannot be empty", , "Kutools for Excel"
        Exit Sub
    End If
    xRet = Application.InputBox("Type 1 to encrypt cell(s);Type 2 to decrypt cell(s)", "Kutools for Excel", , , , , , 1)
    If TypeName(xRet) = "Boolean" Then Exit Sub
    If xRet > 0 Then
        xEnc = (xRet Mod 2 = 1)
        For Each xCell In xRg
            If xCell.Value <> "" Then
                xCell.Value = Encryption(xPsd, xCell.Value, xEnc)
            End If
        Next
    End If
End Sub

3. Em seguida, pressione F5 para executar o VBA e uma caixa de diálogo será exibida para selecionar as células a serem criptografadas. Veja a imagem:
doc criptografar descriptografar 1

4. Então clique OK e insira a senha para as células criptografadas em outra caixa de diálogo exibida. Veja a imagem:
doc criptografar descriptografar 2

5. Clique OKe, em seguida, na terceira caixa de diálogo, digite 1 para criptografar as células selecionadas, se você quiser descriptografar as células, digite 2. Veja a imagem:
doc criptografar descriptografar 3

6. Clique OK, e as células selecionadas são criptografadas. Veja a imagem:
doc criptografar descriptografar 4


Criptografar ou descriptografar células selecionadas com o Kutools para Excel

Com o método acima para criptografar ou descriptografar células é um pouco complexo, mas se você tiver Kutools for Excel instalado, você pode usar Criptografar células e Descriptografar células utilitários para fazer isso rapidamente.

Kutools for Excel, com mais de 300 funções úteis, tornam seus trabalhos mais fáceis. 

Depois de instalação grátis Kutools para Excel, faça o seguinte:

1. Selecione as células que deseja criptografar e clique em Kutools Plus > Criptografar células. Veja a imagem:
doc criptografar descriptografar 5

2. Em seguida, digite e confirme a senha no Criptografar células caixa de diálogo e escolha um tipo de criptografia no Máscara seção. Veja a imagem:
doc criptografar descriptografar 6

3. Clique Ok or Aplicar, e agora as células selecionadas são criptografadas.
doc criptografar descriptografar 7

Se você precisar descriptografar as células, selecione-as e clique em Kutools Plus > Descifrare digite a senha para descriptografá-los. Veja a imagem:

doc criptografar descriptografar 8  doc kutools criptografar células 5

Os artigos em que você pode estar interessado:


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-2019 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Teste gratuito de 30 dias com recursos completos. 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 (2)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Obrigado - muito útil. Algumas perguntas de baixa importância minhas. 1. Por que você prefixa suas variáveis ​​com o caractere "x"? Eu não estou vendo o benefício que isso oferece. 2. O que significa "Sft" em "xSft1" e "xSft2"?
Este comentário foi feito pelo moderador no site
o que fazer se eu esquecer a senha do primeiro método?
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0  Personagens
Locais sugeridos