マクロのボタン（コード）について

質問

いつも大変お世話になっております。https://okwave.jp/qa/q9884968.html
で質問した者です。
マクロのボタンにコードを入力しましたが、エラーが出てしましました。（エラーは【マクロを実行できません。このブックでマクロが使用できないか、またはすべてのマクロが無効になっている可能性があります。】と出ました。）
ネットでエラー検索し、
①オプションのセキュリティーセンターでメッセージの表示にチェックを入れる。
②マクロの設定で【警告を表示しすべてのマクロを無効にする】を選択する。
③エクセルを開きなおす。
の3つのことをしてもエラーが出てしまいます。

私のやり方が何かおかしいでしょうか？
他の何かの設定でしょうか？
（マクロのボタンを作成しそのボタン上で右クリックしマクロの登録マクロ名を選び、編集からコード入力をしました。）

シート1に、1上がればオレンジに、1下がれば緑にのマクロが組んだままです。
これが悪さをするのでしょうか？

回答No.3

imogasi

質問の論点が複雑で、よく内容が判らない。
無駄をさせられた、と思って、下記をやってみて、判ることはないか。
考えなくてもよい点がみつかり、焦点を絞れるのでは？
ーー
動的にコントロールをSheet1上に作成。そのコントロールに、イベントを紐づける。
新たに
標準モジュールに
Sub test01()
Set btn1 = Worksheets("Sheet1").OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False, DisplayAsIcon:=False)
End Sub
Sub test02()
MsgBox "ボタンが押された"
End Sub
をコピペして実行。
ーー
Sheet1のシートイベントに
Private Sub CommandButton1_Click()
test02
End Sub
これで、Sheet1の上の、ボタンを押して、メッセージが出るなら、状態は普通と考えられ、考えなくてよい点が判るのでは。
これで、「マクロを実行できません」が出るなら、質問者の上記以外の他の詰め込んだ部分のコードか、設定（セキュリティなどの）等が、原因を疑えばどうだろう。

回答No.2

kkkkkm

もし、シート1に、1上がればオレンジに、1下がれば緑にのマクロが動いているのにボタンのマクロだけが動かないのでしたら
こちらに同じような問題が解決した事例がありました
https://teratail.com/questions/58520

ボタンのマクロを新たなモジュールで作り直すというものです。

回答No.1

kkkkkm

> シート1に、1上がればオレンジに、1下がれば緑にのマクロが組んだままです。

これがあっても問題は無いと思いますし、このマクロも動作しないと思いますが、起動時にセキュリティの警告が出て「コンテンツの有効化」をクリックしましたでしょうか。

あと別の場所にコピーして開いたらどうでしょう。

補足

ｋｋｋｋｋｍ様　
いつも本当にありがとうござきます。
コンテンツの有効化をしてもダメで、別の場所にコピーしてもダメでした。