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
VBAで「致命的なエラー」が出ました。どのくらい致命的なんでしょうか?
Access(アクセス)
-
5
エクセルでメッセージボックスにパスワードを入力し、ブックの保護を解除するマクロを教えて下さい
Excel(エクセル)
-
6
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
7
複数の条件に合う行番号を取得するには
その他(Microsoft Office)
-
8
パスワード入力画面をスキップするために(AccessVba)
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
LINE TCBというところからLINE...
-
メールをパスワードつきで送る方法
-
Excelのセルにユーザー名...
-
インスタの捨て垢で友達のスト...
-
大学定期試験過去問サイト「過...
-
メールアドレスから個人を特定...
-
steam版 apexのログアウト方法...
-
インターネットカフェでCD書き...
-
集団ストーカーのスマホハッキ...
-
メールエラー
-
YahooIDをパスワード形式にした...
-
ログアウトのないサイトからロ...
-
存在しないアドレスにメールを...
-
CDにパスワードをかける
-
LINE Payで友だちに送金しよう...
-
instagramのPC自動ログインの削...
-
YouTubeが毎回ログインしないと...
-
メールのマナー編
-
カカオで退会せずに、アプリだ...
-
カカオトークを退会せずにアン...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ビーリアルのユーザー名を変え...
-
Excelのセルにユーザー名...
-
メールをパスワードつきで送る方法
-
steam版 apexのログアウト方法...
-
メールエラー
-
LINE TCBというところからLINE...
-
URLとメールアドレス
-
メールアドレスで上付きのハイフン
-
インスタのアイコンについてるN...
-
メールアドレス 上バーの入力...
-
ユニクロやGUのシフト管理アプ...
-
携帯電話を解約してもSMSの受信...
-
メールアドレスから個人を特定...
-
インスタの捨て垢で友達のスト...
-
スタディプラスではアカウント...
-
Instagramからこんなメールがき...
-
YouTubeが毎回ログインしないと...
-
メールを返信したら、英語のメ...
-
解約済みの iPadについて 解約...
-
メールのマナー編
おすすめ情報