Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


68219 / 76734 ←次へ | 前へ→

【13056】Re:ブックを開くときに、承諾のメッセージを出したいのです
回答  ぴかる  - 04/4/22(木) 11:12 -

引用なし
パスワード
   紅さん、こんにちは。

こういうんで、ええんでしょうか?。その特定ブックの標準モジュールに、↓を入れて下さい。

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
1 hits

【13051】ブックを開くときに、承諾のメッセージを出したいのです 04/4/22(木) 10:42 質問
【13056】Re:ブックを開くときに、承諾のメッセージ... ぴかる 04/4/22(木) 11:12 回答
【13060】Re:ブックを開くときに、承諾のメッセージ... 04/4/22(木) 11:43 お礼

68219 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free