- 日時： 2007/08/16 13:18
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[エクセル][][] *
* キーワード：オープン,開く,読み取り専用,リードオンリー *
***********************************************************************************
元質問：Excelを読み取り専用で開く - かず 2003/01/24-18:47 No.2409
排他的に人がつかんでるExcelファイルを読み取り専用で開きたいと思っております。
EXCELファイルを読み取り専用で開くには - まっぴー 2005/01/21-13:59 No.1695
-----------------------------------------------------------------------------------
Re: Excelを読み取り専用で開く - 花ちゃん 2003/01/24-19:26 No.2413
-----------------------------------------------------------------------------------
Excel の起動処理の部分を下記に変更して見て下さい。
'------------------------------------------------------------------------------------
' Excel の起動処理(既存のファイルを使用する場合)
' オブジェクトへの参照を格納する変数を宣言 (事前バインディング)
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim xlFilePath As String
xlFilePath = "c:\Test.xls"
Set xlApp = CreateObject("Excel.Application")
'Open メソッド の引数に ReadOnly:=True を指定すれば、読み取り専用で開けます。
'Open メソッド の引数 はExcel のバージョンにより違いがありますので注意して
'下さい。特に参照設定を外して、実行時バインディング(レイトバインディング)で
'使用されているような場合は注意して下さい。
Set xlBook = xlApp.Workbooks.Open(xlFilePath, ReadOnly:=True)
Set xlSheet = xlBook.Worksheets(1)
xlApp.Visible = True
'------------------------------------------------------------------------------------
因みに、ReadOnly で開いても書込み及び名前を付けて保存はできますが、上書き保存は
出来ません。
又、パスワードの設定も同様に、Open メソッド の引数で指定するば実行できます。
|
Excel ファイルを読み取り専用で開く（VB6.0 基本編）