へなちょこOLのおもちゃ箱

【Excel VBA】Workbook_openで「パス名が無効です」

突然の出会い

Private Sub Workbook_Open()
　UserForm1.Show vbModeless
End Sub

よくあるやつ。

いつも通りに書いて、ファイルを開きなおしたら

Σ(ﾟДﾟ)
なんで!?

[OK]を押したら、そのままファイル閉じた・・・。

もう1回ファイルを開いたら、エラーは出ないけど、Excelのタイトルバーに、ファイル名[修復済み].xlsmって出てる。
こ、壊れた・・・??

まだそんなに作りこんでなかったから、新規ブックにモジュールをインポートしてもう一回。

やっぱり同じエラーが出る。

コード特定

セーフモードでファイルを開いて、Private Sub Workbook_Open()から実行してみたら、

UserForm1.Show vbModeless

で止まりました。
えええぇぇ!?

環境?

エラーが出たのは、Win10 64bit + Office2019 64bit。

埃かぶってるサブノートPCを引っぱり出してみた。
この子はWin7 32bit + Office2010 32bit。
(サポート切れてるけど、完全オフラインだから許してｗ)

こっちでも出た。

対策

修復済みになったファイルで、フォームを実行するとエラーは出ないでちゃんと表示されるから、コードに問題はなさそうなんだけどなぁ。

いつもと違うとこ・・・。

うーーーん。

アッ!!
今回だけいつもと違うとこあった!!!

いつもはチェックボックスのValueは都度コードで判定してるんだけど、今回は数が多くてめんどくさいのと、今後増減の可能性大だから、セルにリンクさせてた!

片っ端からControlSorceのセル番地を削除してみたら、エラーは消えましたヾ(*´∀｀*)ﾉ

でも・・・、リンクセル使いたい(>ω<)
とゆーか、リンクセル前提で作っちゃったもん。
使えないと困る。
設計からやり直し、めんどくさい。

ダメもとで、InitializeでControlSorceを設定したら、エラーは出ませんでした♪
こんなカンジ。

Private Sub UserForm_Initialize()
　Cbox1.ControlSource = "Sheet1!A1"
End Sub

調査

さんざんググってみたけど、「パス名が無効です」は、ファイル関連ばっか。
MSDNも見つからなかったです。
見つけた方、是非教えてください。

てか、ControlSorceが原因なのに、「パス名が無効です」ってエラーメッセージおかしいよ!
つかそもそも、エラーがMsgBoxで出てくるってどーゆーこと!?
ふつーだったら