前景提要
经过了几天不断地分享之后，关于工作薄的汇总和合计的相关操作，就告一段落了，后面还有需要或者还有新的想法再写出来分享给大家
今天我们重新回到计划中来，我们今天要分享一些工作薄的保护功能，说到工作薄的保护大家都会想到是工作薄的打开的密码，就是这里
image.png
单独一个工作薄的加密是非常的简单的，在excel中手工操作几个按钮既可以，但是如果批量的呢？就不是几个按钮的问题了，所以需要呼叫VBA了。
场景模拟
我们还是用昨天的数据模型，假设我们成功的完成了每个地区的销售数据的统计，我们现在需要将自己汇总好的这份数据交给他的人使用，因为其他的部门的人也需要这份数据来作为参考分析，但是你汇总之后的数据你并不希望他们随意的乱改，至少原始数据是不能够被修改的，所以我们要给所有的原始数据加一个保护功能，上代码
方法分析
方法就是调用VBA中的那个保护工作薄的功能，好处就是通过代码，我们可以批量保护，而不用打开一个保护一个再关闭再打开这样恶心的操作了，来上代码
代码区
Sub protect()
Dim pathn$
pathn = ThisWorkbook.Path
f = 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()
Loop
End Sub
我们来看看最终的效果
文件可以正常打开并复制粘贴
image.png
但是如果如果你想要修改数据，对不起，警告
image.png
想要修改保护模式，密码只有我知道，你完全没有办法撤销
image.png
这样就实现了简单的工作薄的保护功能了，当然这样的功能并不是最好的，因为还是可以增加工作表等其他的操作，并不算是最佳的保护方式，等后面全部学习完了，我再分享一些比较霸道的保护工作薄数据的方式，我们还是学习为主，今天先学习下简单的数据保护功能
代码分析
很简单，保护的功能就一句代码
ActiveSheet.protect "123"
记住，直接套用，收工！
