Excel VBA工作薄 5.11批量保护工作薄 我的数据不是你能改动的

前景提要

经过了几天不断地分享之后，关于工作薄的汇总和合计的相关操作，就告一段落了，后面还有需要或者还有新的想法再写出来分享给大家

今天我们重新回到计划中来，我们今天要分享一些工作薄的保护功能，说到工作薄的保护大家都会想到是工作薄的打开的密码，就是这里

单独一个工作薄的加密是非常的简单的，在excel中手工操作几个按钮既可以，但是如果批量的呢？就不是几个按钮的问题了，所以需要呼叫VBA了。

场景模拟

我们还是用昨天的数据模型，假设我们成功的完成了每个地区的销售数据的统计，我们现在需要将自己汇总好的这份数据交给他的人使用，因为其他的部门的人也需要这份数据来作为参考分析，但是你汇总之后的数据你并不希望他们随意的乱改，至少原始数据是不能够被修改的，所以我们要给所有的原始数据加一个保护功能，上代码

代码区

Sub protect()Dim pathn$pathn = ThisWorkbook.Pathf = Dir(pathn & "\")Do While f <> "" If f <> "test.xlsm" Then Application.ScreenUpdating = False Workbooks.Open (pathn & "\" & f) ActiveSheet.protect "123" Application.ScreenUpdating = True ActiveWorkbook.Close True End If f = Dir()LoopEnd Sub

我们来看看最终的效果

文件可以正常打开并复制粘贴

但是如果如果你想要修改数据，对不起，警告

想要修改保护模式，密码只有我知道，你完全没有办法撤销

这样就实现了简单的工作薄的保护功能了，当然这样的功能并不是最好的，因为还是可以增加工作表等其他的操作，并不算是最佳的保护方式，等后面全部学习完了，我再分享一些比较霸道的保护工作薄数据的方式，我们还是学习为主，今天先学习下简单的数据保护功能

代码分析

很简单，保护的功能就一句代码

ActiveSheet.protect "123"

记住，直接套用，收工！