Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

27526 / 76732

←次へ　｜　前へ→


	【54524】シート保護

ウィル - 08/3/16(日) 23:22 -


	引用なし

	パスワード

お世話になります。
シートを保護すると反映されなくなってしまいます。
シートを保護しても反映したいのですが、できますか？

コードは以下の通りです。
宜しくお願いします。

Sheets("4").Range("a28:af33").Value = Sheets("Sheet1").Range("a3:af8").Value
Sheets("4").Range("a1").Value = Sheets("Sheet1").Range("a1").Value
Sheets("4").Range("c1").Value = Sheets("Sheet1").Range("a3").Value
　Sheets("5").Range("a28:ag33").Value = Sheets("Sheet1").Range("a11:ag16").Value
Sheets("5").Range("a1").Value = Sheets("Sheet1").Range("a1").Value
Sheets("5").Range("c1").Value = Sheets("Sheet1").Range("a11").Value
　Sheets("6").Range("a28:af33").Value = Sheets("Sheet1").Range("a19:af24").Value
Sheets("6").Range("a1").Value = Sheets("Sheet1").Range("a1").Value
Sheets("6").Range("c1").Value = Sheets("Sheet1").Range("a19").Value
　Sheets("7").Range("a28:ag33").Value = Sheets("Sheet1").Range("a27:ag32").Value
Sheets("7").Range("a1").Value = Sheets("Sheet1").Range("a1").Value
Sheets("7").Range("c1").Value = Sheets("Sheet1").Range("a27").Value
　Sheets("8").Range("a28:ag33").Value = Sheets("Sheet1").Range("a35:ag40").Value
Sheets("8").Range("a1").Value = Sheets("Sheet1").Range("a1").Value
Sheets("8").Range("c1").Value = Sheets("Sheet1").Range("a35").Value
　Sheets("9").Range("a28:af33").Value = Sheets("Sheet1").Range("a43:af48").Value
Sheets("9").Range("a1").Value = Sheets("Sheet1").Range("a1").Value
Sheets("9").Range("c1").Value = Sheets("Sheet1").Range("a43").Value
Sheets("10").Range("a28:ag33").Value = Sheets("Sheet1").Range("a51:ag56").Value
Sheets("10").Range("a1").Value = Sheets("Sheet1").Range("a1").Value
Sheets("10").Range("c1").Value = Sheets("Sheet1").Range("a51").Value
　Sheets("11").Range("a28:af33").Value = Sheets("Sheet1").Range("a59:af64").Value
Sheets("11").Range("a1").Value = Sheets("Sheet1").Range("a1").Value
Sheets("11").Range("c1").Value = Sheets("Sheet1").Range("a59").Value
　Sheets("12").Range("a28:ag33").Value = Sheets("Sheet1").Range("a67:ag72").Value
Sheets("12").Range("a1").Value = Sheets("Sheet1").Range("a1").Value
Sheets("12").Range("c1").Value = Sheets("Sheet1").Range("a67").Value
Sheets("1").Range("a28:ag33").Value = Sheets("Sheet1").Range("a75:ag80").Value
Sheets("1").Range("a1").Value = Sheets("Sheet1").Range("a1").Value
Sheets("1").Range("c1").Value = Sheets("Sheet1").Range("a75").Value
　Sheets("2").Range("a28:af33").Value = Sheets("Sheet1").Range("a83:af88").Value
Sheets("2").Range("a1").Value = Sheets("Sheet1").Range("a1").Value
Sheets("2").Range("c1").Value = Sheets("Sheet1").Range("a83").Value
　Sheets("3").Range("a28:ag33").Value = Sheets("Sheet1").Range("a91:ag96").Value
Sheets("3").Range("a1").Value = Sheets("Sheet1").Range("a1").Value
Sheets("3").Range("c1").Value = Sheets("Sheet1").Range("a91").Value

0 hits

▼

【54524】シート保護 ウィル 08/3/16(日) 23:22

≪