また、保存時の全般オプションで「読み取り専用を推奨する」にチェックが入っている場合の「保存する必要がなければ、読み取り専用で開いてください。」のメッセージは、 引数IgnoreReadOnlyRecommendedをFalseに指定することで表示されなくなります。 サンプルコード Sub メッセージ表示しないでブックを開く() Dim strFilePath As String Dim strFileName As String strFilePath = ThisWorkbook.Path & "¥" strFileName = "Book1.xls" Workbooks.Open _ Filename:=strFilePath & strFileName, UpdateLinks:=1, IgnoreReadOnlyRecommended:=False End Sub

