'================================================================================= Sub ブックを開く() Workbooks.Open FILENAME:=("BBB.xls") '※1 End Sub '--------------------------------------------------------------------------------- Sub ブックを読み取り専用で開く() Workbooks.Open FILENAME:=("BBB.xls"), ReadOnly:=True '※1 End Sub '--------------------------------------------------------------------------------- Sub