Home Excel - Dicas Microsoft Excel VBA Excel VBA - Dados Excel planilha vba dados encripta desencripta frase

Excel planilha vba dados encripta desencripta frase

E-mail Imprimir PDF

Saberexcel - o site de quem precisa Aprender Macros MS Excel VBA

Essas macros do Aplicativo Microsoft Excel VBA, encripta e desencripta uma determinada frase em uma célula da folha de planilha

Sub Encripta()
Range("e7").Select
On Error Resume Next
Dim c As Range, i As Long, sCode As String, sCode2 As String
Application.ScreenUpdating = False
For Each c In Selection
If LowerCase = True Then c = LCase(c)

For i = 1 To Len(c) + 2
If i Mod 2 = 0 Then
sCode = sCode & Mid(c, i, 1)
Else
sCode = sCode & Mid(c, i - 2, 1)
End If
Next
For i = Len(sCode) To 1 Step -1
sCode2 = sCode2 & Chr(Asc(Mid(sCode, i, 1)) + 1)
Next
c = sCode2
Next
Application.ScreenUpdating = True
For i = Len(sCode) To 1 Step -1
sCode2 = sCode2 & Chr(Asc(Mid(sCode, i, 1)) + 1)
Next
[f12].Select
End Sub

Sub Desencripta()
Range("e7").Select
On Error Resume Next
Dim c As Range, i As Long, sCode As String, sCode2 As String, sCode3 As String

Application.ScreenUpdating = False
For Each c In Selection
sCode = ""
sCode2 = ""
sCode3 = ""
For i = Len(c) To 1 Step -1
sCode = sCode & Mid(c, i, 1)
Next
For i = 1 To Len(sCode) + 2
If i Mod 2 = 0 Then
sCode2 = sCode2 & Mid(sCode, i, 1)
Else
sCode2 = sCode2 & Mid(sCode, i - 2, 1)
End If
Next

For i
= 1 To Len(sCode2)
sCode3 = sCode3 & Chr(Asc(Mid(sCode2, i, 1)) - 1)
Next

c = sCode3
Next
Application.ScreenUpdating = True

sCode = ""
sCode2 = ""
sCode3 = ""
For i = Len(TextBoxCode) To 1 Step -1
sCode = sCode & Mid(TextBoxCode, i, 1)
Next

For i = 1 To Len(sCode) + 2
If i Mod 2 = 0 Then
sCode2 = sCode2 & Mid(sCode, i, 1)
Else
sCode2 = sCode2 & Mid(sCode, i - 2, 1)
End If
Next

For i
= 1 To Len(sCode)
sCode3 = sCode3 & Chr(Asc(Mid(sCode2, i, 1)) - 1)
Next
' TextBoxCode = sCode3
[f12].Select

End Sub




Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel



   Baixe o exemplo de planilha contendo as macros acima
Excel planiha vba dados encripta desencripta frase (19.15 kB)




Publicidade
Compre com segurança, garantia e ótimos preços nas lojas Submarino
Informática - Submarino.com.br

Última atualização em Sáb, 13 de Agosto de 2011 17:33  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje517
mod_vvisit_counterOntem4798
mod_vvisit_counterEsta Semana32572
mod_vvisit_counterSemana passada39550
mod_vvisit_counterEsse mês9814
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10432643
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA