¦p¦óÂ÷¶}excelµ{¦¡???

sillykin

¥»¤H¦bµ{¦¡¥[¤F¤U­±¶µ¥Ø,¦ý­n¦p¦ó¦sÀÉ,¨Ã±j¨îÂ÷¶}¦¹µ{¦¡??
Dim closeflag As Boolean
Private Sub workbook_beforeclose(cancel As Boolean)
If closeflag = False Then
cancel = True
MsgBox "¦¹¥\¯à¤w¸g³Q¸T¤î", vbExclamation, "´£¥Ü"
End If
End Sub
Public Sub closeworkbook()
closeflag = True
Me.Close
End Sub
Private Sub workbook_beforesave(ByVal saveasul As Boolean, cancel As Boolean)
If saveasul = True Then
MsgBox "¦¹Àɮפ£¤¹³\¥t¦s·sÀɧ@·~!!", vbOKOnly, "ª`·N"
cancel = True
Else
cancel = False
End If
End Sub