VBA另类加密文件小方法

        文件不设密码，也可以秘密保存？VBA代码，创出自己的摩斯密码，守住工作、生活中的小秘密。Word、Excel、ppt等文件均可使用。本文参考网上代码，如有侵权，请联系删除。

https://mp.weixin.qq.com/s?__biz=MzkwMzY1OTIzOA==&mid=2247483736&idx=1&sn=3e55d80051a30c44e16649a4c1aa1f79&chksm=c093aad1f7e423c71ff3478895fc3f58783bf27fa9960db816d913ddcc5c2385e4f0e6e7c438&token=1893840549&lang=zh_CN#rd

以excel文件为例，如想加密Excel表：

加密后：

解密后恢复原样，表格格式、字体和加密前完全一致。

直接上代码：

1、编制加密方法：

Function Encode(Txt As String) As String

    Dim Dict() As String

    Dim r As String, t As String

    Dim i As Long