【エクセルVBA】Protect/Unprotectメソッドでシートの保護設定と解除をする方法

Protectメソッドとは

下記の記事で手動でシートの保護を設定する方法をご紹介しましたが、このメソッドを使えば、VBAにシートの保護設定をさせることができるのです。

【Excel】勝手な編集は許しません！初心者向けのシート保護設定

エクセルの「シートの保護」を使ったシートの値編集を制限したり、パスワードを使って特定の人だけに操作できるようにする方法をご紹介しています。関数やマクロを使ったエクセルブックのように、値やシートを操作されると正しく動作しなくなる、というときに便利な機能です。

tonari-it.com

2017.04.17

このメソッドの記述方法はこちら。

Protectメソッドでシートの保護を設定する

では早速このProtectメソッドを使って、シートの保護を設定してみましょう。

下図の表のB列とC列を乗算して、D列に乗算の結果を出力するコードを用意しました。

Sub 計算処理()
Dim rowc As Long '処理行数カウンター
rowc = 2

Do While Cells(rowc, 1).Value <> ""
  'B列とC列を乗算して、D列に結果を表示する
  Cells(rowc, 4).Value = Cells(rowc, 2).Value * Cells(rowc, 3).Value

  '次の行へ
  rowc = rowc + 1
Loop

ThisWorkbook.Worksheets("Sheet1").Protect

End Sub

Unprotectメソッドとは

お次はシートの保護をVBAで解除する方法のご紹介です。

シートの保護をVBAで解除するには、Unprotectメソッドを使います。

Unprotectメソッドは、シートの保護を解除するためのメソッドです。

Unprotectメソッドでシートの保護を解除する

では、実際にUnprotectメソッドを使って、シートの保護を解除してみましょう。

Sub シートの保護解除()

ThisWorkbook.Worksheets("Sheet1").Unprotect

End Sub

この通り、シートの保護が解除されてセルの値が変更できるようになりました！

手動でもそうですが、シートの保護は解除しても特にメッセージなどは表示されません。

セルの値が変更できるようになっていればシートの保護は解除されていますし、エクセルメニューにある「シートの保護」が緑色にハイライトされていなければ、シートの保護は解除されています。

ちなみに、手動で設定したシートの保護は、このUnprotectメソッドを使って解除することができます。

最後に

いかがでしたでしょうか。

今回は、ProtectメソッドとUnprotectメソッドを使って、シートの保護、シートの解除方法についてご紹介しました。

シートの保護は手動でも設定できますが、手動だとシートの保護の設定を忘れてしまいがちです。

このシートの保護に限らず、手動での操作は私たちが考えている以上にミスをしてしまったり、処理が漏れたりしてしまうもの。

毎回設定が必要と分かっているなら、はじめからVBAで自動化してしまった方が手間が省けることと、何より確実です。

今回は単純なシートの保護と解除の方法をご紹介しました。

もちろんパスワードを使ったシートの保護の設定や、マクロだけはシート上での操作を許可する方法もありますよ。

こちらは次回以降の記事でご紹介していきます。