如何用易语言给xlsx文件加密

zidiao500

如何用易语言直接给xlsx文件加密，双击打开有图片这样效果，不是使用wps或Excel信息加密。

洋滨

https://bbs.ijingyi.com/forum.ph ... %E5%8A%A0%E5%AF%86+

花间一壶酒

如果不使用com对象  那就LibXL了

zidiao500

花间一壶酒 发表于 2026-1-18 11:29
如果不使用com对象  那就LibXL了

看来只能用com了，正在更LibXL5.0.1的模块，发现好像这个主编辑，没有文件加密，只有工作表和工作薄的。5.0升了个打开加密的，所以研究如何加密呢

chuyu123

.版本 2 .支持库 spec .支持库 eAPI  .子程序 _启动窗口_创建完毕     .局部变量 加密文件路径, 文本型     .局部变量 输入密码, 文本型      ' 1. 获取双击的文件路径（程序启动参数）     加密文件路径 ＝ 取命令行参数 ()     .如果真 (加密文件路径 ＝ “”)         信息框 (“请双击加密的xlsx文件打开”, 0, )         销毁 ()         返回     .如果真结束      ' 2. 弹出密码输入框     输入密码 ＝ 输入框 (“请输入文档打开密码”, “文档已加密”, , #密码输入)     .如果真 (输入密码 ＝ “”)         销毁 ()         返回     .如果真结束      ' 3. 解密并打开文件     .如果真 (解密并打开Xlsx (加密文件路径, 输入密码) ＝ 假)         信息框 (“密码错误或文件损坏”, #错误图标, )     .如果真结束      ' 4. 程序自动退出     延迟 (2000)     销毁 ()

chuyu123

.版本 2
.支持库 spec
.支持库 crypt

.子程序 加密Xlsx文件, 逻辑型
    .参数 原文件路径, 文本型
    .参数 加密后路径, 文本型
    .参数 密码, 文本型
    .局部变量 原文件字节集, 字节集
    .局部变量 加密后字节集, 字节集
    .局部变量 AES对象, 加密算法_对象

    ' 1. 读取xlsx文件为字节集
    原文件字节集 ＝ 读入文件 (原文件路径)
    .如果真 (取字节集长度 (原文件字节集) ＝ 0)
        返回 (假)
    .如果真结束

    ' 2. AES加密（128位，ECB模式，密码转16字节密钥）
    AES对象.初始化 (#加密算法_AES, 取字节集左边 (到字节集 (密码), 16), , #加密模式_ECB, #填充方式_PKCS7)
    加密后字节集 ＝ AES对象.加密 (原文件字节集)

    ' 3. 保存加密后的文件
    写到文件 (加密后路径, 加密后字节集)
    返回 (真)

zidiao500

chuyu123 发表于 2026-1-19 19:06
.版本 2
.支持库 spec
.支持库 crypt

用的什么模块？