Encriptar la Informacion

Tengo este codigo que no recuerdo de donde lo consegui,
espero que te sirva.


'Esta es la función para encriptar:
Function Encriptar(texto As String, clave As String) As
String
If Len(texto) = 0 Or Len(clave) = 0 Then
Encriptar = "Error en la función Encriptar."
Exit Function
End If

Dim posT As Integer, posC As Integer
posC = 1

For posT = 1 To Len(texto)
Encriptar = Encriptar + Chr(IIf(Asc(Mid(texto,
posT, 1)) + Asc(Mid(clave, posC, 1)) > 256, Asc(Mid(texto,
posT, 1)) + Asc(Mid(clave, posC, 1)) - 256, Asc(Mid(texto,
posT, 1)) + Asc(Mid(clave, posC, 1))))
posC = IIf(posC = Len(clave), 1, posC + 1)
Next posT
End Function

La sintaxis es:

=Encriptar("Texto a encriptar"; "Clave")


'Y esta es la función para desencriptar:
Function Desencriptar(texto As String, clave As String) As
String
If Len(texto) = 0 Or Len(clave) = 0 Then
Desencriptar = "Error en la función Desencriptar"
Exit Function
End If

Dim posT As Integer, posC As Integer
posC = 1

For posT = 1 To Len(texto)
Desencriptar = Desencriptar + Chr(IIf(Asc(Mid
(texto, posT, 1)) - Asc(Mid(clave, posC, 1)) < 0, Asc(Mid
(texto, posT, 1)) - Asc(Mid(clave, posC, 1)) + 256, Asc(Mid
(texto, posT, 1)) - Asc(Mid(clave, posC, 1))))
posC = IIf(posC = Len(clave), 1, posC + 1)
Next posT
End FunctioFunctioFunctio
La sintaxis es:

=Desencriptar("Texto a desencriptar"; "Clave")

En excel se puede encriptar la informacion
Que es?
Si se puede, como se hace????

Gracias de antemano
.