Excel VBA高效办公应用-第十六章-VBA高效文件操作（同时给多个工作簿加解密）

本示例演示了批量加解密文件操作。

Option ExplicitPrivate Sub ComboBox1_Change()'增加列表框的选项
ListBox1.AddItem ComboBox1.Text
End SubPrivate Sub CommandButton1_Click()'保护或者打开工作表
ProtectAndUnProtect
End SubPrivate Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)'定义双击列表框的项目时，删除掉当前项目
ListBox1.RemoveItem ListBox1.ListIndex
End SubPrivate Sub UserForm_Activate()'定义一个工作表变量
Dim sh As Worksheet'获得当前工作薄上的工作表的名称
For Each sh In ActiveWorkbook.SheetsComboBox1.AddItem sh.Name '定义加载复合框时各Item的内容
Next sh
End Sub
Sub ProtectAndUnProtect()
'定义Spwd来获得密码
Dim Spwd As String, i As Integer
'定义工作表变量sh
Dim sh As Worksheet
On Error GoTo 1 '有错误则提示错误码
If ActiveSheet.ProtectContents Then '判断当前工作表是否处于保护状态Spwd = InputBox("Password", "UnProtect") '如果是输入解密密码If Spwd = "" Then Exit Sub '密码为空则直接退出For i = 0 To ListBox1.ListCount - 1 '循环列表框ItemSheets(ListBox1.List(i)).Unprotect Spwd '给列表框上有的表格解密Next i
ElseSpwd = InputBox("Password", "Protect") '输入加密密码If Spwd = "" Then Exit Sub '密码为空则直接退出For i = 0 To ListBox1.ListCount - 1 '循环列表框ItemSheets(ListBox1.List(i)).Protect Spwd '给列表框上有的表格解密Next i
End If: Exit Sub
1 MsgBox Err.Description, 16 '提示错误码
End Sub

Excel VBA高效办公应用-第十六章-VBA高效文件操作（同时给多个工作簿加解密）相关推荐

python对文件操作的相关函数_第六章、Python文件操作
第六章.Python文件操作 Python可以对文件进行查看.创建等功能,可以对文件内容进行添加.修改.删除,且所使用到的函数在Python3.5.x为open,在Python2.7.x同时支持fil ...
Excel VBA高效办公应用-第十四章-Excel图书管理系统
本示例提供了以下功能: 1. 图书资料管理(订阅.搜索.删除) 2. 读者管理(添加.搜索.删除) 3. 借阅图书 4. 归还图书看上去功能挺齐全,可用Excel实现事务管理系统,在如今的互联网时代 ...
c语言疯狂输出1是,【C语言疯狂讲义】（十六）C语言文件操作
1.文件的基本概念存储外部介质上得数据集,数据集有一个名称就是文件名文件的分类: 1)用户角度:普通文件和设备文件 2)存储的内容: ascii文件(文本文件): 存储的流程:根据文本找到其对应的 ...
【JAVA SE】第十六章进程、线程、同步锁和线程锁的简介
第十六章进程.线程.同步锁和线程安全问题文章目录第十六章进程.线程.同步锁和线程安全问题一.进程 1.基本介绍 2.进程模型二.线程 1.基本介绍 2.线程的生命周期 3.线程的优先级 4 ...
章节十六：编码和文件读写
章节十六:编码和文件读写目录章节十六:编码和文件读写 1. 编码 1.1 二进制 1.2 编码表 1.3 encode()和decode() 2. 文件读写 2.1 读取文件 2.2 写入文件 2 ...
机器学习入门-西瓜书总结笔记第十六章
西瓜书第十六章-强化学习一.任务与奖赏二.K-摇臂赌博机 1.探索与利用 2. ϵ \epsilon ϵ-贪心 3.Softmax 三.有模型学习 1.策略评估 2.策略改进 3.策略迭代与值迭代 ...
第十六章网络通信协议探讨
第十六章网络通信协议探讨 LINUX的源代码中属于网络的就有近38万行:我必须先花时间彻底解决网络编程问题,再论其它:所以.其它 ...
强化学习（RLAI）读书笔记第十六章Applications and Case Studies（不含alphago）
强化学习(RLAI)读书笔记第十六章Applications and Case Studies(不含alphago) 16.1 TD-Gammon 16.2 Samuel's Checkers Pla ...
游戏感：虚拟感觉的游戏设计师指南——第十六章 Raptor Safari
这是一本游戏设计方面的好书转自天:天之虹的博客:http://blog.sina.com.cn/jackiechueng 感谢天之虹的无私奉献 Word版可到本人的资源中下载第十六章 Raptor ...

Excel VBA高效办公应用-第十六章-VBA高效文件操作（同时给多个工作簿加解密）

Excel VBA高效办公应用-第十六章-VBA高效文件操作（同时给多个工作簿加解密）相关推荐

最新文章

热门文章