- ベストアンサー
VBAでファイルの読み取り保護を判定するには?
crossgateの回答
- crossgate
- ベストアンサー率65% (78/119)
美しくない対処ですが、これでも一応できますね。 Sub BookOpenTest() 'エラーが起きても処理継続するように設定変更 On Error Resume Next 'ブックオープン。最後の""はパスワード 'パスワード設定されてないBookはこれでもオープンできる。 'パスワード設定されているBookは最後の""を省略するとパスワードの入力を求められる。 Workbooks.Open "C:\Book1.xls", , , , "" 'エラーメッセージが「オープン時のパスワード間違い」かチェック If 1 = InStr(Err.Description, "入力したパスワードは間違っています。") Then MsgBox "パスワード設定されてた" ElseIf Err.Number <> 0 Then MsgBox "その他のエラーが起きた" & vbCrLf & Err.Description Else MsgBox "パスワード設定されてなかった" End If 'エラーが起きたら処理を止めるように設定変更 On Error GoTo 0 End Sub
関連するQ&A
- VBAでブック保護非保護を判定するには?
エクセルVBAでブックが保護されているのかどうかを判定するにはどう書けばいいのでしょうか? If ActiveWorkbook.Protect Then ではだめでした。 また、シート保護の判定方法も教えてください。
- ベストアンサー
- オフィス系ソフト
- VBA マクロ保護
VBA マクロ保護 VBAProject 保護はツールにて保護パスワード設定しています! 私が作ったもので、コマンドボタンをクリックしたら指定された フォルダにコピー(例;Sheet1のみコピー)できるようにしています! そこのコピーのフォルダを開き、ブックを開いてみると シート保護はされていますが コードの表示にパスワード設定がなく、そのまま見えてしまいます。 そこで質問なのですが コードの表示を見れなくさせるために VBA記述でコピーするときにVBAProjectにパスワード設定させたいです。 ちなみにVBAProject本体には、パスワード設定しています。 どのようにすれば良いか?記述を教えてください!
- ベストアンサー
- オフィス系ソフト
- VBAプロジェクトの保護
エクセル2002使用です。 VBAプロジェクトの保護と解除を繰り返しているうちに、保護ができなくなってしまいました。 エクセルの画面でも、セルのロック、シートの保護、ブックの保護を繰り返していました。 何か原因があるのでしょうか? また、別件なのですが、エクセルのオプションでシートの見出しをオフにして、見えなくした状態でブックの保護をかけても、保護をかけた状態でオンにできてしまいます。操作できないようにするにはどのようにしたらよいのでしょうか? エクセルとVBEの保護について詳しいHPをお知りでしたら教えてください。
- ベストアンサー
- オフィス系ソフト
- VBAProjectへの保護の設定
Excel2000 Win2000 Excelマクロから他のExcelブックの VBAProjectへ保護とパスワードを設定したいのですが、 方法はありますか? また、保護を外すのもしたいです。 マクロの保存ではコードが保存されませんでした。
- ベストアンサー
- Visual Basic
- エクセルファイルの保護
エクセルファイルのパスワードでの保護は、名前を付けて保存の所で設定と先ほどご教示頂、又 以前 設定をした事もありますが、ファイル→名前を付けて保存の次の設定)が出ません、何故か エクセル97、エクセルXP共に シート、ブックはツールよりパスワードを設定し、保存が出来ますが
- ベストアンサー
- オフィス系ソフト
- VBAでのブック・シートの保護・解除について
エクセル2010のVBAでのブック、シートの保護&解除の方法について教えて頂きたく、 質問させて頂きます。 消されては困るシートや数式がある関係で、ブックオープン時にVBAでブックとシートにそれぞれパスワードをかけて保護しています。 VBAではシートの削除、作成、コピーなどを行っているため、VBA実行時のみ、保護を解除させるようにしたいと思います。 ただ、対象のシート自体にも入力したい項目があるため、その箇所については保護を解除しておく必要があります。 そして、VBA実行後、再度、その箇所以外にパスワードで保護をかけ直します。 イメージとしては下記のような流れになります。 対象ブック:ブックA 対象シート:シート1 パスワード:1234(それぞれ) 常時保護を解除しておきたいセル:range("A6:H106") 1.(オープン時には、)ブック保護&特定のセル以外のシート保護 2.VBA実行時には全ての保護解除 3.VBA終了時に、1の状態に戻る どうぞよろしくお願い致します。
- ベストアンサー
- Excel(エクセル)
- Excelの保護について
Excelで、新規ブックを保存する際 [ツール] → [全般オプション]で パスワード入力による、ブックの保護ができますよね。 保護されていないブックを保護したい、また逆に保護を解除したい場合 どの様な操作をすれば良いのでしょうか? 現在は、上記の方法で、既存ブックを別名保存しています。 説明が解り辛ければ補足致します。ご回答下さい<(_ _)>
- ベストアンサー
- オフィス系ソフト
- VBA グラフの存在の判定について
お世話になります。 現在VBAの勉強を行っているのですが、グラフについてどうぞ知恵をお貸しください。 エクセルの操作でグラフを作成した後、そのシートもしくはブックにグラフが存在するかどうかを確かめる判定式を作りたいと思っています。 グラフそのものが存在するかどうかの判定をしたい場合、どのような記述が必要になるのでしょうか?
- ベストアンサー
- Visual Basic
- Excelブックの保護パスワード判定方法
VB6.0で、Excelブックが保護パスワードされているかどうかの 判定を行いたいです。 以下のようにHasPasswordプロパティを使用してみたのですが、 保護パスワード付きのExcelブックでテストしてみると Workbooks.Openの部分で処理が止まってしまい、先にすすみません。 基本的にやり方が間違えているんでしょうか? お分かりになる方がいらっしゃいましたら、教えてください。 よろしくお願いします。 Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open("C\:TEST.xls") If xlBook.HasPassword Then Msgbox("保護パスワードあり") Else Msgbox("保護パスワードなし") End If Set xlSheet = Nothing xlBook.Close Set xlBook = Nothing xlApp.Quit Set xlApp = Nothing
- ベストアンサー
- Visual Basic
- パスワードのかかったEXCELファイルの削除方法
EXCELのパスワードで質問です。 ツール ⇒ オプションから読み込み、書き込み パスワードを設定しました。 ですがパスワードを忘れてしまい削除したいのに 削除できないと友達に聞かれてます。 私はEXCEL2000の環境でツールオプションにパスワード がないので確認ができないのですがどうなんでしょう? 私の見解では読書きパスワードはファイルを開くのと 上書きなのでプロパティからアクセス制限してなければ 削除できると思うのですが? ブックの保護がかかっていて削除できないということ なんでしょうか?
- ベストアンサー
- オフィス系ソフト
補足
早々、回答頂き有難うございました。 確認したところ、ブック保護されたファイルをOPENしても同様の「Err.Description, "入力したパスワードは間違っています。"」が返ってきてしまうのですが、判別の方法はありませんでしょうか。