ブックをコピーするボタンを設置したくて

単純に
ActiveSheet.copy
msgbox "コピー完了"

にしてあるのですが
シートが6つある中で特定の2つのシートでそのボタンを選択すると

このシートはコピー不可　みたいなダイアログだしてコピーをしない
その他の4つのシートでは選択すると今まで通りにコピー
みたいな設定って可能でしょうか
すみません。