在VBA（Visual Basic for Applications）中加密程序是一个复杂的过程，因为VBA不是为加密设计的。以下是一些常见的加密方法，但请注意，这些方法并不一定能够提供高级别的安全性，且解密通常相对容易：
1. 字符串替换
使用简单的字符替换或替换模式来加密代码中的字符串常量。
2. 简单的加密函数
创建一个简单的加密函数，比如使用异或（XOR）操作。
3. 使用第三方加密库
使用第三方加密库来加密你的VBA代码，例如使用CryptoAPI。
4. 使用外部工具
使用专门的VBA加密工具，如VBAMaster或VBAEncryptor。
以下是一个简单的VBA加密示例，使用异或操作来加密字符串：
```vba
Function EncryptString(inputString As String) As String
Dim i As Integer
Dim encryptedString As String
Dim key As Integer
key = 123 ' 你可以设置一个密钥
For i = 1 To Len(inputString)
encryptedString = encryptedString & Chr(Asc(Mid(inputString, i, 1)) Xor key)
Next i
EncryptString = encryptedString
End Function
Function DecryptString(inputString As String) As String
Dim i As Integer
Dim decryptedString As String
Dim key As Integer
key = 123 ' 你之前设置的密钥
For i = 1 To Len(inputString)
decryptedString = decryptedString & Chr(Asc(Mid(inputString, i, 1)) Xor key)
Next i
DecryptString = decryptedString
End Function
```
使用上述函数，你可以加密和解密字符串。
注意：
这种方法只能加密字符串，不能加密整个模块或函数。
确保密钥保密，不要将其硬编码在代码中。
对于高级别的安全需求，建议使用专业的加密工具或服务。
请记住，这些方法并不是不可破解的，但它们可以提供一定程度的安全性，以防止未授权访问。如果你有特定的安全需求，可能需要考虑其他解决方案。
