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

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

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

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

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

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

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

那怎么办呢？

别急，我们可以召唤强大的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 = Nothing