Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

33923 / 76734

←次へ　｜　前へ→


	【48026】Re:エクセルデータを開いた時に…

りん

- 07/3/31(土) 8:24 -


	引用なし

	パスワード

初心者さん、おはようございます。

>マクロを含んだシートを開く時に、「このファイルはマクロを含んでます…」と出てきて「はい」「いいえ」「キャンセル」のどれかを押さない限りシートが出てこないように、同じような事を別の言葉を入れてしたいのですが、ご教授下さい。

Thisworkbookに、以下を記述して保存してから開いてみてください。

Private Sub Workbook_Open()
　 Dim resp As Integer, aa As String
　 Select Case MsgBox("選んでみてね", vbYesNoCancel + vbQuestion)
　　　Case vbYes
　　　　 aa = "[はい]をクリック"
　　　Case vbNo
　　　　 aa = "[いいえ]をクリック"
　　　Case vbCancel
　　　　 aa = "[キャンセル]をクリック"
　　　Case Else
　　　　 aa = "なぜかその他"
　 End Select
　 MsgBox aa, vbInformation, ThisWorkbook.Name
End Sub

標準モジュールに以下のように記述しても同じです。
Private Sub Auto_Open()
　 Dim resp As Integer, aa As String
　 Select Case MsgBox("選んでみてね", vbYesNoCancel + vbQuestion)
　　　Case vbYes
　　　　 aa = "[はい]をクリック"
　　　Case vbNo
　　　　 aa = "[いいえ]をクリック"
　　　Case vbCancel
　　　　 aa = "[キャンセル]をクリック"
　　　Case Else
　　　　 aa = "なぜかその他"
　 End Select
　 MsgBox aa, vbInformation, ThisWorkbook.Name
End Sub

こんな感じです。
ただし、マクロの警告→分岐メッセージボックスです。

4 hits

▼

【48022】エクセルデータを開いた時に… 初心者 07/3/30(金) 20:33