質問: true end sub
回答: 'コピー先 with activeworkbook 'シート名変更 '.sheets(1).name = stname1 '.sheets(2).name = stname2 '.sheets(3).name = stname3 '.sheets(4).name = stname4 'シート2,4のボタンを削除 '.sheets(2).shapes(1).delete '.sheets(4).shapes(1).delete '但し、シート上にボタン以外のobjectが存在する場合は、以下のように 'ボタンのみ削除する必要がある。 '↑上記は不要ですので、削除して以下のコードのみで試してみてください。 'この部分は私も分からないので、自分で変更してくださいね。 for wix = sheets(2).shapes.count to 1 step -1 if left(.sheets(2).shapes(wix).name, 6) = "button" then 'ボタンのみ削除 .sheets(2).shapes(wix).delete end if next for wix = sheets(4).shapes.count to 1 step -1 if left(.sheets(4).shapes(wix).name, 6) = "button" then 'ボタンのみ削除 .sheets(4).shapes(wix).delete end if next 'シートの保護 .sheets(1).protect .sheets(2).protect .sheets(3).protect .sheets(4).protect end with