[[20141111214342]]　『保護有りセルへ転記』（ちぃさん）　ページの最後に飛ぶ

『保護有りセルへ転記』（ちぃさん）

お世話になります。

保護設定されているセルに値を転記したいのですが
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_030_040.html
にあります

Private Sub Workbook_Open()

    ' 一旦、シート保護を解除
    ActiveSheet.Unprotect
    ' シート保護を設定(UIのみ)
    ActiveSheet.Protect UserInterfaceOnly:=True

    ActiveWindow.ScrollRow = 1
End Sub

を自分で用意したサンプルでためしてみたのですがエラーがでます。

「実行エラー'1004';
アプリケーション定義またはオブジェクトの実行エラーです。」

と出ます。
[[20141107185659]]　
↑コチラでご教授いただきましたマクロコードを使わせていただきました。
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_030_040.html
↑コチラにあるマクロコードが理解できていませんのでどこを変更すれば

Range("G3").Value = Range("F" & Rows.Count).End(xlUp).Offset(, -3).Value
↑コチラでも使えますでしょうか？

どうかお助けいただけないでしょうか。

何卒宜しくお願いいたします。

＜使用 Excel：Excel2003、使用 OS：WindowsXP ＞

 ＞ Private Sub Workbook_Open() 
 １．このプロシージャはThisworkBookにかきましたね？

 ＞Range("G3").Value = Range("F" & Rows.Count).End(xlUp).Offset(, -3).Value 
 ２．このステートメントはどこに書きましたか？
 　(1)シートモジュール？
 　(2)標準Module？

 ＞＜ 使用 Excel：Excel2003、使用 OS：WindowsXP ＞
 ３．本当に Excel2003 でのお話しですか？

 　　Excel2007以降のバージョンで旧型式(拡張子が.xls）のブックを
 　　操作しているなんてことありませんか？

 （半平太） 2014/11/11(火) 23:38

（半平太）さん　回答ありがとうございます。

＞１．このプロシージャはThisworkBookにかきましたね？
はい。ThisworkBookにかいてます。

＞２．このステートメントはどこに書きましたか？
シートモジュールにかきました。

＞３．本当に Excel2003 でのお話しですか？
申し訳ありません。いつもは WindowsXPのExcel2003をよく使っているので入力間違いをしてました。
正しくは　Windows 7のExcel2010でした。

もしかして書き間違えてたのかと思い、解答をいただきましてもう一度書き直してみました。
結果、先ほどでなかった表示がでました。

シート保護の解除
パスワード

と聞かれます。
パスワードを入力すれば問題なく転記されます。

もしかして私の勘違いでしょうか？
現在はThisWorkBookに

Private Sub Workbook_Open()

    ' 一旦、シート保護を解除
    ActiveSheet.Unprotect
    ' シート保護を設定(UIのみ)
    ActiveSheet.Protect UserInterfaceOnly:=True

    ActiveWindow.ScrollRow = 1
End Sub

とかいてシートモジュールに

Sub 値のみの転記()

    Range("G3").Value = Range("F" & Rows.Count).End(xlUp).Offset(, -3).Value

 End Sub

としています。
質問しています内容はパスワードを手動入力しなくても転記前に保護が解除され、転記後また保護されると思っているのですが。
間違っていましたらすみません。

現在は

（ちぃさん） 2014/11/12(水) 00:21

お世話になります。

解決しました。
私の使い方が間違っていたみたいです。

マクロコードを入力後に一旦シートを保存して閉じなければならなかったみたいです。
次に開いた時にパスワードを聞かれるので1度パスを入力すれば保護のシートに転記できました。

お騒がせいたしました。

失礼いたします。
（ちぃさん） 2014/11/12(水) 00:50

コメント返信：