【エクセルVBA】シートの保護 / 保護の解除

いろんな人が使うエクセルだと、関数が入っていたりなど変更してほしくないセルがあったりします。そういう場合に使われるのがシートの保護です。
保護しておくと、設定したセル以外は入力ができなくなるので安心ですよね(^^)

ただ、この状態でVBAでデータをコピペしようとすると

というエラーメッセージが出てコピペができなくなってしまうんです。

今回は、このようなシートの保護がかかっているエクセルファイルにVBAでデータをコピペする方法をご紹介します。

この記事の最後にサンプルコードが入ったエクセル＆コピー元・コピー先ファイルが入ったフォルダがダウンロードできるリンクがありますので、自分でコードを実行してみたい場合はダウンロードしてみてください。

サンプルコード
コードの解説
解説動画
まとめ
ダウンロード

サンプルコード

今回ご紹介するコードは「コピー元.xlsx」のデータをコピーして「コピー先.xlsx」に貼り付けるコードになります。

実行結果はこんな感じになります。

コピー先.xlsxにはシートの保護がかかっていますが、あとから個数を手で変更できるようにC列の10行目までは保護がかかっていない状態、という設定です。

それではサンプルコードを見てみましょう。

Option Explicit

Sub Sample()

   Dim FilePath As String
   Dim FileName1 As String
   Dim FileName2 As String
   
   'ファイルの入っているフォルダをパスを設定
   FilePath = ThisWorkbook.Path
   'ファイル名を設定
   FileName1 = "コピー元.xlsx"
   FileName2 = "コピー先.xlsx"
     

   'コピー先のブックを開く
   Workbooks.Open FilePath & "\" & FileName2
   
   'Sheet1の保護を解除する
   Worksheets("Sheet1").Unprotect

   'コピー元のブックを開く
   Workbooks.Open FilePath & "\" & FileName1
   
   'データをコピー
   Workbooks(FileName1).Worksheets("Sheet1").Range("A1:E5").Copy _
      Workbooks(FileName2).Worksheets("Sheet1").Range("A1")
      
   'コピー先ファイルの個数の欄のみ編集可能にする
   Workbooks(FileName2).Worksheets("Sheet1").Range("C2:C10").Locked = False
   
   'コピー先ファイルのSheet1を保護する
   Workbooks(FileName2).Worksheets("Sheet1").Protect

   'コピー元のブックを閉じる(セーブしない)
   Workbooks(FileName1).Close savechanges:=False
   
   'コピー先のブックを閉じる(セーブする)
   Workbooks(FileName2).Close savechanges:=True

End Sub