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
No.1ベストアンサー
- 回答日時:
以下のよいうにして見ましょう
Set xlApp = CreateObject("Excel.Application")
Set xlBook = nothing
On Error Resume Next
Set xlBook = xlApp.Workbooks.Open("C\:TEST.xls", PassWord:="")
if err.Number <>0 then
if err.Number = 1004 then
MsgBox("保護パスワードあり")
else
MsgBox( Err.Description )
end if
else
MsgBox("保護パスワードなし")
xlBook.Close
end if
on error goto 0
xlApp.Quit
set xlApp = Nothing
set xlBook = Nothing
といった具合です
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Visual Basic(VBA) マクロVBA 1シートをまとめる 閉じ方 初心者 SOS! 1 2022/06/17 14:54
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
VBAでブック保護非保護を判定するには?
Excel(エクセル)
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
Excel等Office文書でパスワード有無を外から確認する方法は?
ハッキング・フィッシング詐欺
-
-
4
【Excel VBA】マクロでExcel自体を終了させたい
Excel(エクセル)
-
5
【VB.NET】 パワポ操作を非表示で
Visual Basic(VBA)
-
6
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
7
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
メールをパスワードつきで送る方法
-
Excelのセルにユーザー名...
-
メールアドレスで上付きのハイフン
-
CSVファイルを添付するときにパ...
-
email.ne.jpのメールアドレスを...
-
メールのマナー編
-
「@」(アットマーク)の無いメ...
-
メールアドレス 上バーの入力...
-
Outlookで、メールを他...
-
メールアドレスから個人を特定...
-
YouTubeが毎回ログインしないと...
-
Instagramからこんなメールがき...
-
存在しないアドレスにメールを...
-
LINE TCBというところからLINE...
-
runas実行した時にきかれるパス...
-
エクセルで複数ファイルに同一...
-
高一男子です 僕が絶対に悪いん...
-
LINE Payで友だちに送金しよう...
-
カカオで退会せずに、アプリだ...
-
WindowsのエクスプローラーでFT...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelのセルにユーザー名...
-
大学定期試験過去問サイト「過...
-
LINE TCBというところからLINE...
-
メールをパスワードつきで送る方法
-
メールを返信したら、英語のメ...
-
メールのマナー編
-
インスタの捨て垢で友達のスト...
-
YouTubeが毎回ログインしないと...
-
メールアドレスで上付きのハイフン
-
メールアドレス 上バーの入力...
-
メールエラー
-
CSVファイルを添付するときにパ...
-
メールアドレスから個人を特定...
-
カカオで退会せずに、アプリだ...
-
インスタのアイコンについてるN...
-
email.ne.jpのメールアドレスを...
-
ユニクロやGUのシフト管理アプ...
-
メールアドレスを人に教えるの...
-
星の王子さまというアプリで、 ...
-
「@」(アットマーク)の無いメ...
おすすめ情報