No.1

Excel工作表保护，相信大多数人都会设置。

作为保密性的一个措施，其实这个保密只是不十分严密的一种做法。

当然了，既然有这个功能，还是对大多数工作者来说十分有用的。

本篇将重点介绍一下，如何在设置保护的工作表中，另外设置一个可编辑区域。

这种情况应用于，用户权限管理。

也就是说，如果有一个表格，对于不同的操作人员，授权可以编辑的区域。

这种权限管理，也适用于一些固定格式或内容不想被修改的情况下。

要达到如此目的，将用到Protection对象。

下图为Protection对象的全部属性

No.2

Protection属性里面主要应用第3项，AllowEditRanges

同时AllowEditRanges也是一个独立的对象，也就是说本属性会返回一个AllowEditRanges对象。

下面是本对象的Add方法。

也就是本篇主要介绍的一个方法，如何添加可编辑区域。

语法：

Protection.Add(Title,Range,Password)

具体内容可参考下图：

No.3

以代码为例做个介绍

新建可编辑区域功能函数

Private Sub AddNewEditRange()'新建表保护可编辑区域Dim s As WorksheetSet s = ThisWorkbook.ActiveSheets.Unprotect'解除表保护Dim R As Range, T As String, Paw As StringSet R = s.Range("B3:Q10")'定义可编辑区域T = "NewProtection"'设置可编辑区域名称Paw = "admin123"'设置密码DelProtectionEditRange s, T, Paw'删除已经存在的区域s.Protection.AllowEditRanges.Add Title:=T, Range:=R, Password:=Paw'新建可编辑区域s.Protect'设置表保护End Sub

上面代码可以看到定义可编辑区域只用了一个Add方法：

s.Protection.AllowEditRanges.Add Title:=T, Range:=R, Password:=Paw

其中，s为当前表对象，Title是区域标题必选参数，Range允许编辑的区域对象，也是必选参数，Password是密码，可选，不选择默认无密码。

执行这个函数后，就将活动表进行了表保护，并且设置可编辑区域为B3:Q10，编辑需要密码：admin123。

可以试一下，是不是有效。

这样就完成了一个可编辑区域的创建，当然了，一个表中不一定只有一个可编辑区域，增加其它可编辑区域，只要改变Range的地址范围就可以了。

No.4

这里再介绍一个属性：AllowEdit

此属性是Range下的一个，功能是返回一个Boolean值。

如果值为True则说明本区域可编辑，如果是False则不可编辑。

那么在对某一区域进行可编辑判断的时候就用到这个属性。

比如：

If Range("A1:B10").AllowEdit Then    MsgBox "可以编辑"Else    MsgBox "不可以编辑"End If

本篇中需要了解AllowEditRange对象、AllowEditRanges对象和Protection对象。

需要在Protection对象的AllowEditRanges属性返回一个AllowEditRanges对象。

然后利用AllowEditRanges对象的Add方法来进行新建编辑区域。

感觉很晕吧！

老美的思想就是这么让人无法接受。

有什么办法，只能这样做。

欢迎关注、收藏

---END---