投稿日	： 2006/06/05(Mon) 10:50
投稿者	： ダンボ
Ｅメール	：
ＵＲＬ	：
タイトル	： SendKeysで苦戦

YK さん、皆さんどうも有り難うございます。

このマクロ配布ミニシステムは私一人しか使いません。作業手間とミスを防ぐのが目的なので
コードや動作が美しくなくてもいいです。なのでSendKeysでゴリゴリ行きます。

内部設計：
・被置換ワークブックを開く
・コードエディターを呼び出す
・プロジェクトペインにカーソルを移す
・被置換ワークブックはプロジェクトペインの一番下にある(確認済)のでそこまでカーソルを下ろす
・右矢印入力("%TE"の方が良いか？)でパスワードダイアログを開く
・パスワード記入＋Enter

で下記コーディングとなりデバッグ中です。物が物だけにステップモードでの確認がしづらく
一気に実行すると、パスワードダイアログが開きません。当然保護が解除できずに後段で保護エラー
になります。どこら辺がおかしいでしょうかね？

Private Function CodeProtect(WB As Workbook) As Boolean
      WB.Activate
      MsgBox "確認"               '被置換ワークブックが最前画面にあることを確認
      SendKeys "%{F11}", True     'VBA Editorを呼ぶ
      SendKeys "^R", True         'Project Exlorerにカーソルを移す
'      SendKeys "{TAB}", True
      SendKeys "{DOWN}", True     'Project Exlorerの一番下に被置換モジュールがある
           ：
      SendKeys "{DOWN}", True     'カーソルが一番下まで来た(あふれた下矢印は無視される)
      SendKeys "{RIGHT}", True    'パスワードダイアログを呼び出す
'      SendKeys "%TE", True       '        ("%TE"も試した)
      SendKeys "****", True       'パスワードを記入する(****は実際はパスワード文字列)
      SendKeys "{ENTER}", True　  'パスワード入力完了して続行
End Function

★ - VBAマクロを入れ替えるマクロ - ダンボ 06/01-11:33No.6575
• Re: VBAマクロを入れ替えるマクロ - Blue 06/01-11:48 No.6576
  • Re^2: VBAマクロを入れ替えるマクロ - ダンボ 06/01-19:30 No.6584
    • Re^3: VBAマクロを入れ替えるマクロ - YK 06/02-09:06 No.6588
      • Re^4: VBAマクロを入れ替えるマクロ - YK 06/02-09:20 No.6589
        • 新たな問題（解決不能？） - ダンボ 06/02-11:40 No.6594
          • Re: 新たな問題（解決不能？） - ダンボ 06/02-12:16 No.6595
            • Re^2: 新たな問題（解決不能？） - YK 06/02-17:04 No.6601
              • SendKeysで苦戦 - ダンボ 06/05-10:50 No.6620
                • Re: SendKeysで苦戦 - YK 06/05-16:13 No.6627
                  • Re^2: SendKeys苦戦中 - ダンボ 06/08-17:34 No.6635
                    • Re^3: SendKeys苦戦中 - YK 06/09-08:48 No.6640
                      • [敗北宣言]SendKeys苦戦中 - ダンボ 07/04-12:40 No.6791