|
こんにちは生茶です。
ExcelBook(Card.xls)のSheet(Sheet1)にコマンドボタン(Cmd_Draw)を
配置しクリックすると下記の実行します。
=============================================================
Private Sub Cmd_Draw_Click()
Application.DisplayAlerts = False
Set Book_Name = Workbooks(Application.ActiveWorkbook.Name)
FD_Open
End Sub
Sub FD_Open()
Library
Application.Run "'List.xls'!Form_Drawing_Open"
End Sub
(FD_Openは同Bookのモジュールシートに記載。)
プロジェクト保護をかけている為、コマンドボタン(Cmd_Draw)を
クリックすると・・・
プロジェクト保護を解除をする為、パスワード入力を要求する
メッセージが表示されます。キャンセルボタンをクリックする
とそのままマクロ実行されるのですが、メッセージを非表示に
する方法はございますか!?
どなたか分かる方、ご教授願います。。。
|
|