在宏中完成的常见任务是锁定和解锁工作簿中的不同单元格和对象。这样做通常是出于保护方面的考虑，因此用户不能无意间修改内容。如果您需要解锁工作簿中的图表，则可以记住，即使可以将图表视为图形对象，也可以将它们作为图形对象解锁，而您可以轻松地做到这一点-特别是要解锁图表对象。

此外，如何解锁图表取决于它是常规工作表上的图表工作表还是图表对象。以下名为ChartUnProtect的代码提供了如何成功取消保护两种图表类型的示例。

Sub ChartUnProtect()

Dim wks As Worksheet     Dim cht As Chart     Dim chtObj As ChartObject     Dim PW As String     PW = "mypass"



'Unprotect all Chart sheets     For Each cht In ActiveWorkbook.Charts         Sheets(cht.Name).Unprotect password:=PW     Next

'Unlock all Chart objects on each worksheet     For Each wks In ActiveWorkbook.Worksheets         wks.Unprotect password:=PW         For Each chtObj In wks.ChartObjects             wks.DrawingObjects(chtObj.Name).Locked = False         Next         wks.Protect password:=PW     Next End Sub

注意：

如果您想知道如何使用此页面（或_ExcelTips_网站上的任何其他页面）中描述的宏，我准备了一个特殊页面，其中包含有用的信息。

点击此处在新的浏览器标签中打开该特殊页面。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧（2264）适用于Microsoft Excel 97、2000、2002和2003。