|
お世話になります。
シートを保護すると反映されなくなってしまいます。
シートを保護しても反映したいのですが、できますか?
コードは以下の通りです。
宜しくお願いします。
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
|
|