マクロで行われる一般的なタスクは、ブック内のさまざまなセルとオブジェクトをロックおよびロック解除することです。これは保護上の理由で行われることが多いため、ユーザーが不注意に変更することはありません。ブックにあるグラフのロックを解除する必要がある場合、グラフは描画オブジェクトと見なすことができますが、描画オブジェクトとしてロックを解除するのではなく、特にグラフオブジェクトのロックを解除することを覚えていれば、簡単にロックを解除できます。

さらに、グラフのロックを解除する方法は、グラフがグラフシートであるか、通常のワークシートのグラフオブジェクトであるかによって異なります。 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_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。

このヒント（2264）は、Microsoft Excel 97、2000、2002、および2003に適用されます。