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

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

A 回答 (1件)

どもども田吾作7です。



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

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

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

でわでわ
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング

おすすめ情報