在共享和分发工作表的时候,大家都会在脑海中想到一个问题,我如何限制其他人的编辑区域呢?
比方说有那么一份重要的文件,我不得不共享出来给大家看。。
但是我又害怕大家在共享的过程中随意篡改了某些数据,导致我其他的公式都错了
或者随意的增删数据,把我的表改的乱七八糟的
那么这个时候,我们要如何保护数据呢?
肯定很多小伙伴会说,加密
但是似乎这两个方法也不能满足我们的要求,并且设置起来挺麻烦的,加密了,又害怕忘记密码,毕竟这年头大家都比较忙,脑子不灵光的时候,是经常的,加密之后还要自己去解密,反而把自己麻烦到了。
那怎么办呢?
别急,我们可以召唤强大的VBA
VBA可以实现怎么样的功能呢?
1.限定数据展示区域
2.想定数据编辑区域
3.不允许切换工作表
4.不允许下拉滚动
这么6...代码怎么写?
Sub test() Dim sngWidth As Single, sngHeight As Single Dim rngView As Range Set rngView = Range("A1:G27") With ActiveWindow .DisplayHeadings = False '标尺 .DisplayHorizontalScrollBar = False .DisplayVerticalScrollBar = False '垂直和水平滚动条 .DisplayWorkbookTabs = False '工作表标签 .WindowState = xlNormal sngWidth = .Width - .UsableWidth sngHeight = .Height - .UsableHeight .Width = rngView.Width + sngWidth .Height = rngView.Height + sngHeight .ScrollRow = 1 .ScrollColumn = 1 .ActiveSheet.ScrollArea = rngView.Address '滚动区域 .EnableResize = False End With Set rngView = NothingEnd Sub
来,看看效果
开始的时候,是随意的移动的,也可以在任意的地方添加修改数据的,但是
当限制代码执行之后,我们会发现,展示区域就只有那么一点点地方了,并且你没有办法上下,左右滑动
你可以编辑的区域,也限制住了,
这样我们是不是就不用再担心被随意的篡改数据了呢。
怎么样
VBA是不是很强大。
4000520066 欢迎批评指正
All Rights Reserved 新浪公司 版权所有