Excelのマクロのエラーについての質問です

投稿者 : yama     投稿日時 : 2025/02/18(Tue) 13:18:45     OS : Windows 10     EXCEL : Office 365

---

Excelのセルの中で特定の文字を見つけるマクロですが
「このブックでマクロが使用できないか、またはマクロが無効になっている可能性があります。」とエラーメッセージがでます。
マクロのセキュリティも確認して問題ないと思うのですが、マクロ自体に問題があるのでしょうか？
修正が必要な場合、どのように修正すればいいですか？

↓

Private Sub CommandButton1_Click()
Dim sh As Worksheet
Dim s As String
Dim cell As Range
s = TextBox1.Text　　※F8で確認するとここで「実行時エラー424　オブジェクトが必要です。」とでます。
For Each sh In ThisWorkbook.Sheets
For Each cell In sh.UsedRange
If InStr(cell.Value, s) > 0 Then
cell.Characters(Start:=InStr(cell.Value, s), Length:=Len(s)).Font.ColorIndex = 3
MsgBox (sh.Name & "の" & cell.Address & "でヒットしました")
Exit Sub
End If
Next cell
Next sh
MsgBox ("検索文字列が見つかりませんでした")
End Sub

投稿者 : てらてら     投稿日時 : 2025/02/18(Tue) 20:13:46

---

こんにちは。

>「このブックでマクロが使用できないか、またはマクロが無効になっている可能性があります。」とエラーメッセージがでます。
このエラーはフォームコントロールのボタンにマクロ登録したマクロ名が変更された場合に出るようです。

コードを見るとシートモジュールに書かれた（書くべき）コードだと思いますが、コマンドボタン（ActiveX）のメソッドだとするとマクロ名が変更された場合は、エラーが出ずに何も起こらなくなります。

どうしてこのような状況になるのかは、こちらでは判りません。

コード自体は、シート上にあるコマンドボタン（ActiveX）のメソッドとして、シートモジュールに書かれていれば問題なく動作するようです。

投稿者 : 秘密     投稿日時 : 2025/02/19(Wed) 00:26:48

---

>マクロのセキュリティも確認して問題ないと思うのですが、

思うだけですよね
どうなっているのか秘密なので、よくわからない

投稿者 : yama     投稿日時 : 2025/02/19(Wed) 17:14:53

---

■[返信 1] てらてらさん（2025-02-18 20:13:46）の記事
＞ こんにちは。
＞
＞ >「このブックでマクロが使用できないか、またはマクロが無効になっている可能性があります。」とエラーメッセージがでます。
＞ このエラーはフォームコントロールのボタンにマクロ登録したマクロ名が変更された場合に出るようです。
＞
＞ コードを見るとシートモジュールに書かれた（書くべき）コードだと思いますが、コマンドボタン（ActiveX）のメソッドだとするとマクロ名が変更された場合は、エラーが出ずに何も起こらなくなります。
＞
＞ どうしてこのような状況になるのかは、こちらでは判りません。
＞
＞ コード自体は、シート上にあるコマンドボタン（ActiveX）のメソッドとして、シートモジュールに書かれていれば問題なく動作するようです。
＞

ありがとうございます。
まだ解決していませんが色々試してみます。