ケアプロダクトデザイナーの記録

Excel起動時、Noと選択した場合に注意喚起するコード
赤色の部分修正で内容修正可能です（Yesの場合はNoでなくYesに置き換え）

～～～～

Private Sub Workbook_Open()
Dim response As Integer

' Display a message box asking the user to confirm
response = MsgBox("Have you completed the required checks?", vbYesNo, "Check Required")

' If the user selects "No", display another message box with a warning
If response = vbNo Then
MsgBox "Please complete the required checks before proceeding.", vbExclamation, "Warning"
End If
End Sub


～～～



現在の閲覧者数:
"
"