'목록하단 광고 치환자(withSeok)

 

엑셀 파일 다운로드

workbook_open, workbook_BeforeClose, Cancel as Boolean, vbYesNo, vbNo.xlsm
0.02MB

Private Sub Workbook_Open()
    
    MsgBox "반갑습니다!!"
    
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)

    If MsgBox("정말 닫겠습니까?", vbYesNo) = vbNo Then
        MsgBox "엑셀 작업을 조금 더 진행합니다."
        Cancel = True
    Else
        MsgBox "굿바이~!"
    End If

End Sub

 

728x90

+ Recent posts