如何用代码对Excel的指定区域实行保护

    有时，我们为了保证数据的准确性，需要在对Excel工作表的指定区域进行保护，以达到禁止用户修改的目的，那么，如何用代码直接实现呢？

    为此，我编写了一个简单的函数供大家调用，虽然该函数是用VBA写的，其实，大家还可以在VB里直接使用。函数说明已包含在函数代码的注释里了，具体代码如下：

'* ************************************************** * '* 函数说明：对Excel工作表的指定区域进行保护或撤销保护 '* 参数说明： '* objSheet：需要保护的范围所在的工作表 '* objRange：需要保护的范围 '* bprotect：保护模式，True时保护，False时撤销保护 '* 作者：lyserver '* ************************************************** * Public Sub ProtectRange(objSheet As Worksheet, objRange As Range, ByVal bProtect As Boolean) objSheet.Unprotect objSheet.Range("A1", "IV65536").Locked = False objRange.Locked = bProtect If bProtect Then objSheet.Protect End Sub