Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3180 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【63718】読み取り専用ファイルについて ak 09/12/3(木) 1:57 質問[未読]
【63720】Re:読み取り専用ファイルについて seg 09/12/3(木) 9:25 発言[未読]
【63721】Re:読み取り専用ファイルについて SS 09/12/3(木) 10:25 発言[未読]
【63722】Re:読み取り専用ファイルについて seg 09/12/3(木) 11:27 発言[未読]
【63724】Re:読み取り専用ファイルについて Jaka 09/12/3(木) 15:04 発言[未読]
【63718】読み取り専用ファイルについて
質問  ak  - 09/12/3(木) 1:57 -
引用なし
パスワード
   vbaの質問なのですが、

読み取り専用ファイル　A.xls　というファイルがあります。

userform1上のボタンクリックで
A.xlsを読み取り専用でない状態で開きたいのですが
どうしたらいいのでしょうか。

Readonlyを使ってみましたが、ダメでした。

よろしくお願いします。
【63720】Re:読み取り専用ファイルについて
発言  seg  - 09/12/3(木) 9:25 -
引用なし
パスワード
   ▼ak さん：
>A.xlsを読み取り専用でない状態で開きたいのですが
>どうしたらいいのでしょうか。
"読み取り専用"というのは、誰にも変更されたくないから
施すものです、それをマクロで外すのは危険だと承知ください。

>Readonlyを使ってみましたが、ダメでした。
何のReadOnlyでしょうか？
FSOを使えば取得も設定もできます。
【63721】Re:読み取り専用ファイルについて
発言  SS  - 09/12/3(木) 10:25 -
引用なし
パスワード
   ▼seg さん：

横から失礼します。
すごく裏を読んでマクロ以外での編集を禁止したいとすると
保護の設定で対応するのが普通なのでしょうか？
　　ActiveSheet.Protect
　　ActiveWorkbook.Protectなど


>▼ak さん：
>>A.xlsを読み取り専用でない状態で開きたいのですが
>>どうしたらいいのでしょうか。
>"読み取り専用"というのは、誰にも変更されたくないから
>施すものです、それをマクロで外すのは危険だと承知ください。
>
>>Readonlyを使ってみましたが、ダメでした。
>何のReadOnlyでしょうか？
>FSOを使えば取得も設定もできます。
【63722】Re:読み取り専用ファイルについて
発言  seg  - 09/12/3(木) 11:27 -
引用なし
パスワード
   ▼SS さん：
>すごく裏を読んでマクロ以外での編集を禁止したいとすると
>保護の設定で対応するのが普通なのでしょうか？

通常使われている保護プログラムとすれば以下だと思います。
ActiveSheet.Protect Password:="PASS"
ActiveSheet.Unprotect Password:="PASS"

しかし、どのように保護しようが解除は出来てしまいます。
上記のパスワード"PASS"もバイナリエディタで見れば
すぐに発見できるでしょうし。
もっと言えば、プロジェクトに保護をかけようが数分で
やぶられます…

ユーザに触られたくないと言う点においては、上記コードで
有効だと思います。
【63724】Re:読み取り専用ファイルについて
発言  Jaka  - 09/12/3(木) 15:04 -
引用なし
パスワード
   ▼ak さん：
>vbaの質問なのですが、
>A.xlsを読み取り専用でない状態で開きたいのですが
>どうしたらいいのでしょうか。
良く解らないけど、単にプロパティの属性変更なのかな？

書き込み可能に変更
　SetAttr "フルパス", vbNormal

読み取り専用に変更
　SetAttr "フルパス", vbReadOnly

パスワード等で保護をしているのなら、保護を解除してください。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3180 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free