Attribute VB_Name = "Module1"
'■　マクロ５００連発＜第２段＞
'
'　VBProjectのパスワードを解除する（VBEditor画面版)
'
'  Copyright(C) 2000 Sunago
'
Option Explicit


'/* VBEditor画面から実行するマクロ */

Sub macUnProtectVBProject_VBEMode()
'このマクロはVBE上でのみ動作します。このマクロはパスワードを
'解除するプロジェクトを選択してから、実行します。
Dim i
Const CMODULE = "Module1"     '任意のVBComponent(モジュール名等)を指定

    SendKeys "%TE"
    SendKeys "PASS{ENTER}{ESC}"   ' PASS := パスワード
    DoEvents
    '任意のVBComponentsをアクティブにする
    With Application.VBE.ActiveVBProject
        For i = .VBComponents.Count To 1 Step -1
            If .VBComponents(i).Name = CMODULE Then
                .VBComponents(i).Activate
                Exit For
            End If
        Next
    End With
    End
End Sub