ダブルクリックからExcelファイルを開くとエラーが出るようになりました。

Question

ダブルクリックからExcelファイルを開くとエラーが出るようになりました。
今朝PCを起ち上げて、xlsxファイルをダブルクリックで開いたら

「実行時エラー'-2147417848(80010108)':

'Caption'　メソッドは失敗しました: '_CommandBarButton'オブジェクト」

というエラーダイアログが出るようになってました。

Workbook_Openイベントに右クリックメニューをカスタムするコードを入れているのですが

昨日までは何もなく普通に開けていたので困っています。

また、ファイルを開くのではなくExcelのみを起ち上げるとこのエラーは出ません。

どうやったら出なくなるのでしょうか。

以下コードです

Private Sub Workbook_Open()

Dim newspcp

i = 0  
For Each cb In Application.CommandBars  
    i = i + 1  
    Select Case cb.Name  
    Case "cell", "Cell", "column", "Column", "row", "Row"  
        Application.CommandBars(i).Reset  

        With Application.CommandBars(i).Controls

            Set newspcp = .Add()

        End With  
        With newspcp  
            **.Caption = "○○"　←○○はマクロ名です。ここでエラーが出ます**  
            .OnAction = "○○"  
            .BeginGroup = False  
        End With

    End Select  
Next

End Sub

Answer 1

ありがとうございます。Personal.xlsmやPersonal.xlsbが使用できないアイテムに入っているということはありませんでした。

ダブルクリックで開くときとソフトを起ち上げた場合で挙動が違うのでVBAの質問とは少し違うかなと思ってこちらに投稿したのですが、そちらでも質問してみます。

Answer 2

knownun1さん、こんにちは。

調べますと、「PERSONAL.XLS」が「使用出来ないアイテム」に入っていた為という過去事例がありました。

https://www.excel.studio-kazu.jp/kw/20071224134809.htmlhttps://www.excel.studio-kazu.jp/kw/20070625102939.html

解決されない場合は、VBA に関するご質問ですと、VBA 専用のフォーラムがある開発者向けの＜Msdnフォーラム＞の方が情報が集まり易いと思います。

・Msdn フォーラム(VBA)

よろしければそちらにも投稿して情報を集めてみて下さいね。

※現在Msdnフォーラムは初回プロファイルを作成してから質問が出来るまで1日待つ制限がありますが、待機後に質問は可能となりますのでお待ちいただければと思います。