先生と生徒の会話形式で理解しよう

生徒

「エクセルでたくさんのシートがあるとき、マウスでカチカチ切り替えるのが大変なんです。VBAで自動的にシートを選んだり、間違えて消さないように保護したりできますか？」

先生

「もちろんできますよ！VBAを使えば、特定のシートを一瞬で表示させたり、大切なデータが入ったシートに鍵をかけたりすることが数行のコードで可能です。」

生徒

「難しそうに見えますが、初心者でも書けるようになりますか？」

先生

「基本さえ押さえれば大丈夫です。今回はシートの選択、切り替え、そして保護の方法を分かりやすく解説していきますね！」

1. ワークシート操作の基本：Worksheetsオブジェクトとは？

エクセルVBAで「シート」を操作するときに必ず使うのが Worksheets（ワークシート） という言葉です。これは、エクセルのファイル（ブック）の中にある複数のシートをまとめた「集合体」を指します。

例えば、学校のクラス名簿を想像してみてください。「名簿」という束の中から「田中さんのシート」を取り出すとき、VBAでは Worksheets("田中") と書きます。プログラミング未経験の方は、まず「Worksheets(名前)」という形で、操作したいシートを指名することから始めると覚えやすいですよ。このとき、シートの名前は必ず " "（ダブルクォーテーション） で囲むのがルールです。パソコンに「これは名前ですよ」と教えてあげるための合図だと思ってください。

2. シートを選択するSelectとActivateの違い

シートを表示させる（選ぶ）方法は主に二つあります。それが Select（セレクト） と Activate（アクティベート） です。どちらも「そのシートを表示する」という点では似ていますが、少しだけ役割が違います。

Select は、マウスでシートのタブをクリックする操作そのものです。一方、Activate は「そのシートを最前面に持ってくる（活性化させる）」という意味になります。複数のシートを選択している状態で、特定の一個だけを操作したいときに Activate が活躍します。最初はあまり難しく考えず、まずは Select を使ってシートを切り替える練習をしてみましょう。以下のコードを実行すると、プログラムが自動で「Sheet2」を表示してくれます。


Sub SheetSelectSample()
    ' Sheet2という名前のシートを選択して表示します
    Worksheets("Sheet2").Select
    
    ' メッセージを出して確認します
    MsgBox "Sheet2に切り替えました！"
End Sub

3. インデックス番号でシートを指定する方法

シートは名前だけでなく、「左から数えて何番目か」という数字で指定することもできます。これを インデックス番号 と呼びます。例えば、一番左にあるシートは Worksheets(1) 、その隣は Worksheets(2) となります。

これの便利なところは、シートの名前が頻繁に変わる場合でも、順番さえ変わらなければ正しく操作できる点です。また、後述する「繰り返し処理」と組み合わせることで、「全てのシートに対して同じ処理をする」といった自動化が非常に楽になります。ただし、マウスでシートの順番を入れ替えてしまうと、番号が変わってしまうので注意が必要です。名前で呼ぶか、番号で呼ぶか、状況に合わせて使い分けていきましょう。

4. 複数のシートをループ（繰り返し）で切り替える

VBAの真骨頂は「繰り返し作業」です。例えば、ブックにある全てのシートを順番に表示させながら、特定の文字を入力するような作業も一瞬です。ここで For Each（フォー・イーチ） という構文を使います。これは、「箱（ブック）の中にある全ての物（シート）に対して、一つずつ処理を行う」という魔法の言葉です。

以下のプログラムは、ブックにある全てのワークシートを順番に選択し、シート名を表示する例です。プログラミングの世界では、このように「順番に全部やる」という考え方が非常に大切です。これにより、シートが10枚あっても100枚あっても、同じ短いコードで対応できるようになります。


Sub LoopAllSheets()
    Dim ws As Worksheet
    
    ' 全てのシートを一つずつwsという変数に入れて繰り返します
    For Each ws In Worksheets
        ' シートを選択します
        ws.Select
        ' シートの名前を画面に表示します
        MsgBox "現在のシート名は " & ws.Name & " です。"
    Next ws
End Sub

5. 大切なデータを守る！シートの保護（Protect）

会社で使う大事なフォーマットなどは、誤って数式を消されたりしないように「シートの保護」をかけることがよくあります。これをVBAで行うには Protect（プロテクト） という命令を使います。

使い方は非常にシンプルで、Worksheets("名前").Protect と書くだけです。もしパスワードを設定したい場合は、Password:="パスワード文字列" というオプションを追加します。パスワードを設定しておけば、手動で保護を解除しようとしてもパスワードを求められるようになるため、セキュリティがぐっと高まります。プログラムの最後に保護をかける処理を入れておけば、「自動化の後に鍵をかける」という流れが完璧に出来上がります。


Sub SheetProtectSample()
    ' Sheet1に「1234」というパスワードで保護をかけます
    Worksheets("Sheet1").Protect Password:="1234"
    
    MsgBox "Sheet1に鍵をかけました。編集できません。"
End Sub

6. 保護を解除して編集可能にする（Unprotect）

保護がかかっているシートに対して、VBAでデータを書き込もうとするとエラーが出て止まってしまいます。そのため、プログラムでデータを入力する直前に、一時的に保護を解除する必要があります。このときに使うのが Unprotect（アンプロテクト） です。

「保護を解除する」→「データを書き込む」→「再び保護をかける」という三段構えの処理は、実務で非常によく使われるベストプラクティスです。以下のコードでは、保護を解除してからセルに値を書き込み、再度保護をかける一連の流れを再現しています。これを使えば、ユーザーに触らせたくないシートでも安全に自動更新を行うことができます。


Sub EditProtectedSheet()
    Dim targetSheet As Worksheet
    Set targetSheet = Worksheets("Sheet1")
    
    ' まず保護を解除します（パスワードは1234とします）
    targetSheet.Unprotect Password:="1234"
    
    ' A1セルに文字を入力します
    targetSheet.Range("A1").Value = "保護解除中に更新しました"
    
    ' 最後にまた保護をかけ直します
    targetSheet.Protect Password:="1234"
    
    MsgBox "更新して再び鍵をかけました！"
End Sub

7. シートの切り替えをスムーズにする「画面更新の停止」

シートを何枚も切り替えながら処理をすると、画面が激しくチカチカ動いてしまい、目が疲れるだけでなく処理速度も遅くなってしまいます。そこでプロのVBA使いが必ずと言っていいほど使うのが Application.ScreenUpdating です。

これは、エクセルの「画面の書き換え」を一時的にストップさせる命令です。プログラムの最初に False（偽） に設定すると、シートをいくら切り替えても画面は止まったままになり、裏側で高速に処理が進みます。そして処理が終わったら True（真） に戻すことで、最新の状態を一瞬で表示させます。パソコン操作に慣れていない方でも、この「画面のフリーズ魔法」を覚えるだけで、一気に上級者らしいスマートなツールが作れるようになりますよ。

8. シートが存在しない場合のエラーを回避する

もし Worksheets("売上報告") というコードを書いたのに、そんな名前のシートがなかったらどうなるでしょうか？エクセルは「そんなものはありません！」とエラーを出して怒ってしまいます。これを防ぐために、シート名を操作する際は注意が必要です。

初心者ができる簡単な対策は、シート名を入力ミスしないように、エクセルのタブからコピー＆ペーストすることです。また、少し発展的な方法ですが、「シート名の一覧を自動取得する」といった工夫をすることで、エラーの起きにくい親切なプログラムになります。まずは「名前を正確に書く」という基本を徹底しましょう。VBAは一文字でも名前が違うと、人間のように気を利かせてはくれませんが、逆に言えば指示通りに完璧に動いてくれる最高のアシスタントなのです。

9. オブジェクトの指定を省略しない「親切な書き方」

最後に、より正確な操作を行うためのコツをお伝えします。単に Select と書くだけでも動きますが、できるだけ Worksheets("Sheet1").Select のように「何に対して」操作するのかを省略せずに書く癖をつけましょう。これを「オブジェクトを明示する」と言います。

もし複数のエクセルファイル（ブック）を開いている場合、どのファイルのシートなのかを指定しないと、VBAが迷子になってしまうことがあります。ThisWorkbook.Worksheets("Sheet1") と書けば、「このマクロが入っているファイルの中のSheet1」という意味になり、間違いが起こりません。初心者の方は、まず「対象をはっきりさせる」ことから始めて、ミスのない快適なエクセル自動化ライフを楽しんでくださいね！