Excelを閉じる際に意図せぬパスワード要求をされる
ExcelのVBAプロジェクトにパスワードを設定したところ、Excelを閉じる際に意図せぬパスワード要求をされて困っています。
■現象発生ブックの作成手順は以下の通りです。
(1)新規ブックを作成し、VisualBasicEditorで「Microdoft DAO 3.6 Object Library」を参照設定します。
(2)新規ユーザーフォーム「UserForm1」を作成し、以下のコードを記述します。
Private Sub UserForm_Initialize()
Dim db As DAO.Database
Dim strXLSName As String
strXLSName = ThisWorkbook.Path & "\" & ThisWorkbook.Name
Set db = OpenDatabase(strXLSName, True, True, "EXCEL 8.0;HDR=YES;")
db.Close
Set db = Nothing
End Sub
※上記は、原因箇所のみ残して他は割愛させていただいたので意味のないコードになっています。
(3)ThisWorkbookに、以下のコードを記述します。
Private Sub Workbook_Open()
UserForm1.Show
End Sub
(4)VBAProjectのプロパティで、表示用にロックにチェックし、パスワードを入力します。
(5)ブックを保存します。
■現象発生手順は以下の通りです。
(1)上記の作成手順で作成したブックを開く(自動でUserForm1が開く)
(2)自動で開いたUserForm1を閉じる
(3)ブックを上書き保存して、ブックのみを閉じる
(4)Excelを閉じる
すると、意図しないVBAプロジェクトのパスワード要求ダイアログが表示されてしまいます。
当現象は最新までUpdate済みのExcel2007およびExcel2000で発生しました。
(他のバージョンは未確認です)
以下も拝見しましたが解決せず、お手上げ状態となっています。
http://questionbox.jp.msn.com/qa1272177.html
どなたか解決策をご存知でしたら、アドバイスいただけないでしょうか?
お礼
まさにこれでした! ありがとうございます。