在VBA中加密程序可以通过以下几种方法实现：
方法一：使用VBA的内置保护功能
1. 打开Excel，按下Alt + F11键进入VBA编辑器。
2. 在“插入”菜单中选择“模块”，在打开的代码窗口中输入以下VBA代码：
```vba
Sub 添加密码保护（）
ActiveSheet.Protect Password:="fish123"
MsgBox "工作表已加密!"
End Sub
Sub 解除密码保护（）
ActiveSheet.Unprotect Password:="fish123"
MsgBox "保护已解除!"
End Sub
```
3. 运行`添加密码保护`子程序，输入密码后，工作表将受到保护，再次打开时需要输入密码。
方法二：自定义加密和解密函数
1. 编写自定义的加密和解密函数，例如：
```vba
Function 加密文本（ByVal 原文 As String） As String
Dim i As Integer
Dim 密文 As String
For i = 1 To Len（原文）
密文 = 密文 & Chr（Asc（Mid（原文， i, 1）） + 5）
Next i
加密文本 = 密文
End Function
Function 解密文本（ByVal 密文 As String） As String
Dim i As Integer
Dim 原文 As String
For i = 1 To Len（密文）
原文 = 原文 & Chr（Asc（Mid（密文， i, 1）） - 5）
Next i
解密文本 = 原文
End Function
```
2. 在需要加密的VBA代码中使用这些函数进行加密和解密。
方法三：使用第三方插件
1. 使用如Smart Indenter for VBE等第三方插件，通过插件提供的功能对VBA代码进行加密。
2. 调用插件提供的加密函数，将需要加密的代码作为参数传递。
方法四：使用高级加密算法
1. 实现更复杂的加密算法，如异或加密、Base64编码等。
2. 将需要加密的代码转换为加密后的Base64字符串，并在需要执行时解密。
注意事项
1. 简单的加密方法（如仅添加密码保护）安全性较低，容易被破解。
2. 自定义加密算法应确保复杂度足够高，且密钥管理妥善。
3. 加密可能会影响宏的执行速度，应进行性能优化。
通过以上方法，可以根据实际需求选择合适的加密方式，以保护VBA程序的安全性。