マクロでファイルオープン

エクセルのマクロでtest.xlsファイルをオープンする際に元々test.xlsファイルの属性が読み取り専用になっているものを、読み取り専用チェックをはずした状態でオープンすることは可能でしょうか？
Workbooks.Open Filename:="test.xls" ReadOnlyRecommended:=False

とかやってもなかなか上手くいきません。

No.1 ベストアンサー 回答者： TAGOSAKU7 回答日時： 2001/07/13 17:47

どもども田吾作７です。

エクセルが読み取り専用で開いていなくても、ファイル自身が読み取り専用であれば、意味がありません。

以下のコードを、対象のファイルを開く前に行ってください。

Dim bytSts As Byte’ファイル属性
Dim strFile As String’対象のファイル

strFile = "c:\1.txt"

'属性を得る
bytSts = GetAttr(strFile)
'もし[読み取り専用]属性を持っていたら
If (vbReadOnly And bytSts) > 0 Then
'[読み取り専用]属性を解除
Call SetAttr(strFile, bytSts - vbReadOnly)
End If

でわでわ