VBA技巧的保护与解除保护
3页1、技巧1 工作表的保护与解除保护在在实际应用中,Excel编制的报表、表格、程序等,往往在单元格中设置了公式、函数、自定义格式等,为了防止在使用过程中修改或无意中修改这些设置,一般使用Excel的工作表保护功能来保护这些设置。但是程序中可能会使用代码对受保护的工作表进行操作,此时如果没有解除工作表保护,运行出现错误,如图 381所示。图 11运行错误提示解决方法是在运行操作工作表的代码前先使用代码解除工作表保护,待操作完毕后再保护工作表,如下面的代码所示。#001 Sub ShProtect()#002 With Sheet1#003 .Unprotect Password:=12345#004 .Cells(1, 1) = 100#005 .Protect Password:=12345#006 End With#007 End Sub代码解析:ShProtect过程在受保护的工作表中对单元格进行操作,其中第3行代码使用Unprotect方法解除工作表的保护。应用于Worksheet 对象的Unprotect方法解除工作表的保护,如果工作表不是受保护的,则此方法不起作用,所以在解除之前
2、无需判断工作表是否受保护,其语法如下:expression.Unprotect(Password)参数expression是必需的,该表达式返回一个Worksheet 对象。参数Password是可选的,指定用于解除工作表的保护的密码,此密码是区分大小写的。第4、5行代码在单元格录入数据后使用Protect方法重新保护工作表。应用于Worksheet对象的Protect方法保护工作表使其不至被修改,语法如下:expression.Protect(Password, DrawingObjects, Contents, Scenarios, UserInterfaceOnly, AllowFormattingCells, AllowFormattingColumns, AllowFormattingRows, AllowInsertingColumns, AllowInsertingRows, AllowInsertingHyperlinks, AllowDeletingColumns, AllowDeletingRows, AllowSorting, AllowFiltering, Al
《VBA技巧的保护与解除保护》由会员朋友****56分享,可在线阅读,更多相关《VBA技巧的保护与解除保护》请在金锄头文库上搜索。
2024-04-19 8页
2024-04-19 11页
2024-04-19 5页
2024-04-19 8页
2024-04-19 21页
2024-04-19 16页
2024-04-19 16页
2024-04-19 21页
2024-04-19 7页
2024-04-19 8页