Excel VBA質問箱 IV

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

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


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

4777 / 13646 ﾂﾘｰ

←次へ　｜　前へ→

▼

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

【54527】Re:シート保護 ichinose 08/3/17(月) 8:15

【54546】Re:シート保護 ウィル 08/3/17(月) 19:01


	【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


	【54527】Re:シート保護

ichinose - 08/3/17(月) 8:15 -


	引用なし

	パスワード

▼ウィルさん：
おはようございます。
>シートを保護すると反映されなくなってしまいます。
>シートを保護しても反映したいのですが、できますか？
普通に考えると、提示されたコードの実行前に
シートの保護を解除するコードを記述し、

最後に再び、シートを保護する　という方法が思いつきますが、
これではいけないのですか？

ActiveSheet.Protect userinterfaceonly:=True
なんてすると、シートが保護されていても、
コードからは、セルへの記述が可能ですが、
ブックを開く毎に上記の設定は必要です。

検討してみてください。


	【54546】Re:シート保護

ウィル - 08/3/17(月) 19:01 -


	引用なし

	パスワード

ichinose さん

お返事が遅くなりまして、申し訳ありませんでした。
ありがとうございます。


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

4777 / 13646 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free