rouber590324

¨Ï¥Îvba¦p¤U

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
X = Sheet1.Range("A2")
Y = Sheet1.Range("A5")
Z = Sheet1.Range("A7")
If Not (X = "" Or X = " ") And (Y = "" Or Y = " ") Then
   MsgBox "A2¦³¤º®e-A5¤@©w­n¿é¤J¤º®e:§_«hµLªk¦sÀÉ"
End If
If Not (X = "" Or X = " ") And (Z = "" Or Z = " ") Then
   MsgBox "A2¦³¤º®e-A7¤@©w­n¿é¤J¤º®e:§_«hµLªk¦sÀÉ"
End If
End Sub