Ｐａｇｅ 6 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼VBE を起動させるには？ ぴかる 02/8/28(水) 21:25 ┗Re:VBE を起動させるには？ りん 02/8/28(水) 21:40 ┗Re:VBE を起動させるには？ ぴかる 02/8/28(水) 22:22 ─────────────────────────────────────── ■題名 ： VBE を起動させるには？ ■名前 ： ぴかる ■日付 ： 02/8/28(水) 21:25 -------------------------------------------------------------------------
| みなさま、こんばんは。IVでもよろしくお願い致します。 Ｖ３にてパスワードマクロが解決したと思ってたんですが、少し甘かったです。下記のマクロはVBEが起動後なら作動ＯＫなんですが、エクセルを開いた直後に作動させるとパスワードが登録されません。多分、VBEを起動させてから？行えばＯＫと思うんですがその方法も分かりません。どんな状態で作動させてもパスワード登録ＯＫとしたいと思ってます。よろしくお願いします。 Win95、一部のNTは動作不可です。申し訳ありませんがテスト後は、フォルダ削除願います。 Sub ピカせっと作成() Dim パス名 As String MsgBox "デスクトップ上に[PikaTool]フォルダを作成するよ！" & vbLf & "" & vbLf & _ "処理が終わったらフォルダ内の[ピカせっと.xls]を開いてちょ!!" & vbLf & _ "そしたら、自動で[ピカつーる]がセットされるよ。" _ , vbInformation, " 【 さぁ、つくるよ〜ん！ 】" パス名 = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\PikaTool" 'デスクトップにフォルダ作成 If (Dir(パス名, vbDirectory) = "") Then On Error Resume Next MkDir パス名 If Err = 75 Then MsgBox "デスクトップ上に[PikaTool]フォルダを作れないみたい！" _ , vbInformation, " 【 ダメでした！ 】" On Error GoTo 0 Exit Sub End If End If On Error GoTo 0 'パスワード登録する。 With Application .Visible = False .VBE.MainWindow.Visible = True SendKeys "%TE^{TAB} {TAB}" & "PIKARU" & "{TAB}" & "PIKARU" & "{TAB}{ENTER}", True .VBE.MainWindow.Visible = False .Visible = True End With With Application .DisplayAlerts = False '警告メッセージオフにする ActiveWorkbook.SaveAs Filename:=パス名 & "\ピカせっと.xls" .Quit End With End Sub |
| ぴかるさん、こんばんわ。 >みなさま、こんばんは。IVでもよろしくお願い致します。 おかえりなさい。 パスワード登録する部分だけ Sub test() With Application .Visible = False With .VBE.Windows(1) .SetFocus SendKeys "%TE^{TAB} {TAB}" & "PIKARU" & "{TAB}" & "PIKARU" & "{TAB}{ENTER}", True End With .Visible = True End With End Sub Workbook_Openで試しました。 パスワードを入力する画面がちらっと出ます。ScreenUpdatingを切っても出るようです。 他にブックを開いていると失敗することも。もうちょっと考えてみます。 |
| りんさん、こんばんは。 > おかえりなさい。 ただいまっ！ うまく行きました。ありがとうございました。この不具合と原因になかなか気付きませんでした。なんでパスワードが登録されへんのやろぉ？。とか、エクセルを終了させたのに一部のＰＣでは、なんでかまた開いてきてマクロが動作してしまう。とか、いろいろと結構悩んでました。解決です。ふぅ〜、少し疲れ気味・・・。よい子の寝る時間なのでそろそろ帰宅します。おやすみなさいです。 |