前景提要
经过了几天不断地分享之后,关于工作薄的汇总和合计的相关操作,就告一段落了,后面还有需要或者还有新的想法再写出来分享给大家
今天我们重新回到计划中来,我们今天要分享一些工作薄的保护功能,说到工作薄的保护大家都会想到是工作薄的打开的密码,就是这里
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"
记住,直接套用,收工!
网友评论