Open Close evnet 만들기

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If MsgBox("정말 닫으시겠습니까?", vbYesNo) = vbNo Then
        MsgBox "닫기를 취소합니다."
        Cancel = True
    End If
End Sub

 

Private Sub Workbook_Open()
    MsgBox "안녕하세요. 반갑습니다."
End Sub