.xlsファイル開く際「ファイル形式またはファイル拡張子が正しくありません」のエラーが表示される

「ファイル形式またはファイル拡張子が正しくありません」のエラーが表示される
「ファイル形式または~」のエラーが表示される原因
関連記事

「ファイル形式またはファイル拡張子が正しくありません」のエラーが表示される

xls2003形式(拡張子.xls)のファイルを開いた際、以下のエラーが出る場合があります。

—-
○○.xlsのファイル形式と拡張子が一致しません。ファイルが破損しているか、安全ではない可能性があります。発行元が信頼できない場合は、このファイルを開かないでください。ファイルを開きますか？

—-

「ファイル形式または~」のエラーが表示される原因

もう現代では、あまり見かける形式ではありませんが、
先方指定でxls2003形式でプログラムを作るケースがあります。
その際、ファイル保存する際、FileFormat:=xlExcel8を指定していないのが原因です。

Public Sub sample()
    '■新規ブックを追加
    Workbooks.Add
    
    '■現在表示しているブック(追加した新規ブック)を保存する。FileFormat:=xlExcel8を指定していない為、
    '   使用されている Excel のバージョンの形式で保存(2007以降であればxlsx形式)
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "sample.xls"
    '→開くとエラー発生。
    '------
    '○○.xlsのファイル形式と拡張子が一致しません。ファイルが破損しているか、安全ではない可能性があります。
    '発行元が信頼できない場合は、このファイルを開かないでください。ファイルを開きますか？
    '------
    
    '■正しくは以下のように保存する。FileFormat:=xlExcel8を指定した為、問題発生しない。
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "sample.xls", FileFormat:=xlExcel8
    
End Sub