VBAのIE制御

こちらでは、SheetsコレクションオブジェクトのProtectメソッドを利用して、Excelの指定したシートを保護する方法について解説しています。

シートの保護とはシート上で誤ってデータを削除したり、書式を変更されるのを防ぐなどの目的で利用されます。外部からの操作を許可しない場合はシートの保護を利用すると有効です。

メソッドとは、オブジェクトを操作する命令文のことでオブジェクトの動作になります。 メソッドを利用するにはオブジェクト名とメソッド名の間に「.(ピリオド)」で結んで記述します。

オブジェクト名.メソッド名

目次

• はじめに
• 利用するメソッドについて
  • Protectメソッド
• 指定したシートを保護するサンプルコード
  • 実行結果
  • 解説
• 指定したシートをパスワードを掛けて保護するサンプルコード
  • 実行結果
  • 解説
• 指定したシートをコピー不可にするサンプルコード
  • 実行結果
  • 解説
• まとめ
• エクセルVBAのワークシート操作一覧

はじめに

こちらでは、Protectメソッドを利用したExcelの指定したシートを保護する方法について解説します。今回は、SheetsコレクションオブジェクトのProtectメソッドを利用しますが、ProtectメソッドはSheetsコレクションオブジェクト以外でも利用されますので、どのオブジェクトで利用できるかも確認してください。

利用するメソッドについて

• Protectメソッド

Protectメソッドとは

SheetsコレクションオブジェクトのProtectメソッドは指定されたシートを保護します。

指定したシートを保護するサンプルコード

今回のVBAコードはExcelの指定したシートを保護するマクロになります。

Sub sample()

    Sheets("Sheet1").Protect

End Sub

※ドラッグ(スワイプ)すると全体を確認できます。

実行結果

解説

sampleプロシージャのSubステートメントに引数は設定されていません。Sheetsコレクションオブジェクトには「Sheet1」シートが設定されています。そして、「Sheet1」シートオブジェクトにProtectメソッドが設定されていますので、処理を実行すると「Sheet1」シートが保護されます。最後はEndステートメントを利用してsampleプロシージャを終了させます。

シートが保護されると行の挿入やセルの入力など一切できなくなりますが、手動で解除することもできます。解除する場合は、以下のように「ツール」→「保護」→「シート保護の解除」をクリックするとシートの保護が解除されます。

指定したシートをパスワードを掛けて保護するサンプルコード

今回のVBAコードはExcelの指定したシートをパスワードを掛けて保護するマクロになります。

Sub sample()

    Sheets("Sheet1").Protect Password:="vbaie"

End Sub

※ドラッグ(スワイプ)すると全体を確認できます。

実行結果

「Sheet1」シートが保護されます。手動で解除しようとすると以下のようにパスワードを要求されます。

解説

sampleプロシージャのSubステートメントに引数は設定されていません。Sheetsコレクションオブジェクトには「Sheet1」シートが設定されています。そして、「Sheet1」シートオブジェクトのProtectメソッドには名前付き引数で引数Passwordにパスワードの「vbaie」が設定されています。

これにより、手動でシート保護の解除をしようとした場合にパスワードを要求することができます。シートの保護を解除されたくない場合はパスワードを設定するようにしましょう。

また、こちらでは名前付き引数を使用して引数設定していますが、以下のように名前付き引数をつけなくても設定できます。

Sub sample()

    Sheets("Sheet1").Protect "vbaie"

End Sub

※ドラッグ(スワイプ)すると全体を確認できます。

指定したシートをコピー不可にするサンプルコード

今回のVBAコードはExcelの指定したシートをコピー不可にするマクロになります。

Sub sample()

    Workbooks("Book1").Protect Structure:=True

End Sub

※ドラッグ(スワイプ)すると全体を確認できます。

実行結果

ワークブック「Book1」のシート構成が保護され、シートのコピーができなくなります。

解説

Workbooksコレクションオブジェクトにはワークブック「Book1」が設定されています。そして、「Book1」ワークブックオブジェクトのProtectメソッドには引数Structureに「True」が設定されています。引数Structureはブックの構造(各シートの相対位置)を保護する設定ですので、「True」を設定するとシートの移動やコピーができなくなります。

シートのコピーをさせたくない場合などは有効な方法ですので、合わせて覚えておきましょう。ただし、こちらはあくまでブックの保護になります。シートの保護はしていませんので、シートの保護と併せて利用しましょう。

まとめ

今回は、SheetsコレクションオブジェクトとWorkbooksコレクションオブジェクトのProtectメソッドを利用して、Excelの指定したシートを保護する方法について解説しました。次回は、エクセルVBAのセル操作について解説します。

エクセルVBAのワークシート操作一覧

• シートを追加する
• シートをアクティブにする
• シートを選択する
• シートを削除する
• シートを移動する
• シートをコピーする
• シートを表示・非表示にする
• シート見出しを表示・非表示にする
• シートをスクロールする
• シート名を変更する
• シート名を取得する
• シート数を取得する
• シート見出しの色を変更する
• シートの背景を変更する
• シートを印刷する
• シートを保護する