コミュ力が、
最強の武器
になる。

VBAのコードがおかしくなりました 下記のコード機能は、 エクセルファイル内の「ボタンA」を押すと,セル「C4」に記載されたアドレス の中にあるフォルダ内のファイル全てにセル「C8」に記載したパスワードを設定 できる機能です そして「ボタンB」を押すと、セル「C12」に記載されたパスワードを読み取り 全て変更できるという機能です ・「ボタンA＝旧パスワード」＝セル「C8」に記載されたパスワードを設定できる ・「ボタンB＝新パスワード」＝「ボタンA」でパスワード設定されたファイルを セル「C12」に記載されたパスワードへ変更設定できる ※つまり「ボタンB」は、「ボタンA」で設定された旧パスワードを 新パスワードに変更できる 今回の質問は 旧パスワードが設定されている状態で、新パスワードへ変更したい状況で ①C8に旧パスワードを入力 ②C12に新パスワードを入力 ③「ボタンB＝新パスワード設定ボタン」を押す この際に、旧パスワードが一致しない場合に、エラーメッセージ「×400」と 出てしまいます。その場合に「パスワードが一致しませんでした。」と 表示させるにはどうしたらいいでしょうか 自分なりに上記の機能にコードを付け足して書いてみましたが おかしくなってしまいました おわかりでしたら、詳しくコードを書いて教えていただけませんでしょうか 宜しくお願いいたします 文字数の都合により前回質問した内容をこちらに載せましたので、 ご確認の程、宜しくお願いします。 ・コードはここに載せました http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q12148201242 ※付け足したコードは下記です。 fName = Dir(tarFld & “*.xls”)【既存のコード】 On Error Resume Next Do While fName <> “” Set tarB = Workbooks.Open(tarFld & “” & fName) If Err.Number > 0 Then MsgBox “”パスワードが一致しません。””