[[20210509181228]]　『VBA　シートコピー先のマクロを無効にするにはどａx（exエツコロジー）　ページの最後に飛ぶ

『VBA　シートコピー先のマクロを無効にするにはどうすればよいですか？』（exエツコロジー）

bookに親シートがあり、親シートの内容を隣に子シートとしてコピーしていきたいのですが、現在、親シートにはマクロボタン（子シート作成コピー）が付いています。
現状、ボタンを押すと、子シートにもマクロ有効のボタンが付いてきます。
子シートのマクロを無効にするには、どうすればよいか教えていただけますでしょうか。

【現状】
Sub シート作成()
'
' シート作成 Macro
' 【親】の右隣へコピー
'

'
Dim NewSheetName As String

NewSheetName = InputBox(" 〇〇で新しいシート名を入力してください")

    Sheets("親").Copy After:=Sheets(4)
    Range("C2").Select
    Selection.Copy
    Sheets("親 (2)").Select
    Sheets("親 (2)").Name = NewSheetName

    Application.CutCopyMode = False
    Range("A1").Select
End Sub

以上、よろしくお願いいたします。

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

 Sub シート作成()
    Dim NewSheetName As String
    Dim OriginalSetting
    '
    ' シート作成 Macro
    ' 【親】の右隣へコピー
    '
    '
    OriginalSetting = Application.CopyObjectsWithCells
    Application.CopyObjectsWithCells = False　　　　　　　　’←　一旦無効にする

    NewSheetName = InputBox(" 〇〇 で新しいシート名を入力してください")
    Sheets("親").Copy After:=Sheets(4)
    Range("C2").Select
    Selection.Copy
    Sheets("親 (2)").Select
    Sheets("親 (2)").Name = NewSheetName
    Application.CutCopyMode = False
    Range("A1").Select

    Application.CopyObjectsWithCells = OriginalSetting　’←元の設定に戻す
 End Sub
（半平太） 2021/05/09(日) 18:49

半平太様

いつもお世話になっております。

コピー先のボタン、消えました！
どうもありがとうございました！！

いつもいつも助かってます！

（exエツコロジー） 2021/05/09(日) 19:03

コメント返信：

[ 一覧(最新更新順) ]

[[20210509181228]] 『VBA シートコピー先のマクロを無効にするにはどａx（exエツコロジー） ページの最後に飛ぶ

[[20210509181228]]　『VBA　シートコピー先のマクロを無効にするにはどａx（exエツコロジー）　ページの最後に飛ぶ