有时,我们为了保证数据的准确性,需要在对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
'* 函数说明:对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
摘自:
如何用代码对Excel的指定区域实行保护
相关文