VBA经典代码 拿来即用 1.3 限定窗体展示区域和编辑区域

VBA经典代码 拿来即用 1.3 限定窗体展示区域和编辑区域
2021年04月10日 17:00 晓雯子16

在共享和分发工作表的时候,大家都会在脑海中想到一个问题,我如何限制其他人的编辑区域呢?

比方说有那么一份重要的文件,我不得不共享出来给大家看。。

但是我又害怕大家在共享的过程中随意篡改了某些数据,导致我其他的公式都错了

或者随意的增删数据,把我的表改的乱七八糟的

那么这个时候,我们要如何保护数据呢?

肯定很多小伙伴会说,加密

但是似乎这两个方法也不能满足我们的要求,并且设置起来挺麻烦的,加密了,又害怕忘记密码,毕竟这年头大家都比较忙,脑子不灵光的时候,是经常的,加密之后还要自己去解密,反而把自己麻烦到了。

那怎么办呢?

别急,我们可以召唤强大的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是不是很强大。

财经自媒体联盟更多自媒体作者

新浪首页 语音播报 相关新闻 返回顶部