OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
解決
済み

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

  • 困ってます
  • 質問No.103838
  • 閲覧数176
  • ありがとう数0
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 13% (21/151)

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

とかやってもなかなか上手くいきません。
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

質問者が選んだベストアンサー

  • 回答No.1
レベル12

ベストアンサー率 65% (276/422)

どもども田吾作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

でわでわ
-PR-
-PR-
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
こんな書き方もあるよ!この情報は知ってる?あなたの知識を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ