excel中如何md5加密文件

1. 使用Excel公式：

你需要将文件的内容复制到Excel中。

2. 使用VBA宏：

打开Excel，按下 `Alt + F11` 打开VBA编辑器。

在VBA编辑器中，插入一个新的模块（右键点击VBAProject(你的工作簿名称)，选择Insert > Module）。

在模块中粘贴以下代码：

```vba

Function GetMD5Hash(ByVal str As String) As String

Dim obj As Object

Set obj = CreateObject("System.Security.Cryptography.MD5")

GetMD5Hash = GetHexString(obj.ComputeHash(EncodeToBytes(str)))

Set obj = Nothing

End Function

Function EncodeToBytes(ByVal str As String) As Byte()

Dim intLength As Integer

intLength = Len(str)

ReDim EncodeToBytes(1 To intLength)

Dim intIndex As Integer

For intIndex = 1 To intLength

EncodeToBytes(intIndex) = Asc(Mid(str, intIndex, 1))

Next intIndex

End Function

Function GetHexString(ByVal bytes As Byte()) As String

Dim intIndex As Integer

Dim str As String

For intIndex = 0 To UBound(bytes)

str = str & Right("00" & Hex(bytes(intIndex)), 2)

Next intIndex

GetHexString = str

End Function

```

在Excel中，选择一个单元格，然后输入以下公式：

```excel

=GetMD5Hash(A1)

```

这里假设你将文件内容复制到了Excel的A1单元格。

4. 运行宏：

按下 `Alt + F8`，选择你刚才创建的宏，然后点击“Run”运行它。

5. 查看结果：

运行宏后，Excel会计算并显示A1单元格内容的MD5哈希值。