|
紅さん、こんにちは。
こういうんで、ええんでしょうか?。その特定ブックの標準モジュールに、↓を入れて下さい。
Sub Auto_Open()
Dim ファイル名 As String
Dim タイトル As String
Dim スタイル As String
Dim メッセージ As String
Dim YESNO As String
ファイル名 = ActiveWorkbook.Name
タイトル = "【 初期判断 】"
スタイル = vbYesNo + vbQuestion + vbDefaultButton1 + vbApplicationModal
メッセージ = "このブックを開きますか?。"
ActiveWindow.Visible = False
YESNO = MsgBox(メッセージ, スタイル, タイトル)
If YESNO = vbYes Then
Windows(ファイル名).Visible = True
Else
Application.DisplayAlerts = False '警告メッセージオフにする
ThisWorkbook.Close
End If
End Sub
|
|