エクセルでマクロを組み始めたばかりのため、皆様にご

質問

エクセルでマクロを組み始めたばかりのため、皆様にご教授頂ければと思います。

今開いているシートに転送ボタンを作成します。このシートのセルC4からC27までデータ(言葉や数値など)を、ボタンを押して、デスクトップ内の「マクロ」というブック、「記録用紙」名のシートにB列に横へ(B4,C4…)、毎日データ転送しようと思います(4行目,5行目…)。
その際、転送先はシート保護をしておきたいのです。

Option Explicit
Private Sub CommandButton1_Click()
Call Macro1
End Sub

Sub Macro1()

Range(”C4:C27”).Select
Selection.Copy
Workbook.Open ”C:¥Users¥user¥Desktop¥マクロ.xlsm”
Workbooks(”マクロ.xlsm”).Activate
Sheets(”記録用紙”).Select
Range(”B65536”).End(xlup).Offset(1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=True
Windows(”マクロ.xlsm”).Activate

End Sub

この様なマクロを組んでみました。転送ボタンを押しても、「保護の為、読み取り専用」というエラーメッセージが出て途中で止まってしまいます。

どの様に修正すれば良いのでしょうか？お手数をおかけして申し訳ございませんが、よろしくお願いします。

回答No.1

ubku · ベストアンサー

Sheets(”記録用紙”).Unprotect
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=True
Sheets(”記録用紙”).Protect Contents:=True

要するに、貼り付ける前に一度シート保護を解除して、貼り付けてからまたシート保護をすると言うことです。