matlab批量给excel添加密码

最新推荐文章于 2025-09-10 18:08:14 发布

好玩的Matlab（NCEPU）

最新推荐文章于 2025-09-10 18:08:14 发布

阅读量171

点赞数 3

CC 4.0 BY-SA版权

文章标签：机器学习算法人工智能

转载请添加备注来源于：https://blog.csdn.net/zzx2016zzx，微信：idmatlab

本文链接：https://blog.csdn.net/zzx2016zzx/article/details/143828877

clc;clear;close all;
folderPath = '.\data'; 
password = '1111'; 

files = dir(fullfile(folderPath, '*.xlsx')); 

% 创建 Excel COM 服务器
excel = actxserver('Excel.Application');
excel.DisplayAlerts = false; % 关闭警告

for i = 1:length(files)
    filePath = fullfile(folderPath, files(i).name);
    try
        workbook = excel.Workbooks.Open(filePath);
        workbook.SaveAs(filePath, [], password);
        workbook.Close(false); 
        fprintf('已加密: %s\n', files(i).name);
    catch ME
        fprintf('加密失败: %s - %s\n', files(i).name, ME.message);
    end
end
excel.Quit();
delete(excel);