工作表的保护.xlsVIP

Sheet3 Sheet2 Sheet1 _Ref222748545 _Ref222750204 _Toc240076338 技巧1 ???????????? 工作表的保护与解除保护 在在实际应用中，Excel编制的报表、表格、程序等，往往在单元格中设置了公式、函数、自定义格式等，为了防止在使用过程中修改或无意中修改这些设置，一般使用Excel的工作表保护功能来保护这些设置。 但是程序中可能会使用代码对受保护的工作表进行操作，此时如果没有解除工作表保护，运行出现错误，如图 38?1所示。 图 38?1 运行错误提示 解决方法是在运行操作工作表的代码前先使用代码解除工作表保护，待操作完毕后再保护工作表，如下面的代码所示。 #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方法解除工作表