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

質問

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

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

回答No.1

TAGOSAKU7 · ベストアンサー

どもども田吾作７です。

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

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

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

でわでわ