Excel如何给手机号码加密同时还可以还原加密号码Excel给手机号加密同时可以还原加密号码的方法

手机

有的时候为了保护个人隐私，需要对手机号码进行保密处理。

这里可以用2种方法解决，在C2输入任意一条公式，向下填充公式。

=LEFT(B2,3)RIGHT(B2,4)

=REPLACE(B2,4,4,)

复制C列的内容到B列，并选择性粘贴为值。

这样B列的手机号码就是变成加密的，最后将C列的公式删除。

在做这些操作之前，最好先备份姓名跟手机号，要不然加密后就无法复原，以防下回要用到原始号码，切记

在excel中，你可以使用公式来对手机号码进行简单的加密和解密。这里提供一种使用自定义函数（VBA代码）的方法，既能加密又能还原手机号码。

首先，你需要打开VBA编辑器，可以通过按Alt + F11快捷键来实现。在VBA编辑器中，插入一个新的模块：点击Insert菜单，然后选择Module。

然后，你可以输入以下VBA代码来创建加密和解密函数：

Function EncryptNumber(number As String) As String
Dim key As Integer
key = 5 ' 你可以选择任何你想要的密钥
Dim i As Integer
Dim encryptedNumber As String
For i = 1 To Len(number)
encryptedNumber = encryptedNumber & Chr(Asc(Mid(number, i, 1)) + key)
Next i
EncryptNumber = encryptedNumber
End Function

Function DecryptNumber(encryptedNumber As String) As String
Dim key As Integer
key = 5 ' 这里的密钥需要和加密时的密钥相同
Dim i As Integer
Dim number As String
For i = 1 To Len(encryptedNumber)
number = number & Chr(Asc(Mid(encryptedNumber, i, 1)) - key)
Next i
DecryptNumber = number
End Function

在上述代码中，EncryptNumber函数将输入的手机号码每个字符的ASCII值加上一个密钥（这里假设为5），然后将这些新字符连接起来形成加密后的号码。DecryptNumber函数则是将加密号码每个字符的ASCII值减去相同的密钥，还原出原始手机号码。

请注意，这种方法的加密强度非常低，仅适用于简单的场景。对于敏感信息，建议使用更专业的加密方法。