- ©«¤l
- 2839
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2895
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-12-22
|
Private Sub Workbook_BeforePrint(Cancel As Boolean)
IF ACTIVESHEET.NAME="Sheet1" then
If Range("E973") = True Then
MsgBox "ªO«pÀˮ֤½¦¡-«È¤áµ²ºc©Ò¦³«p«×¥[Á`Äæ¦ì¥¼¶ñµLªk¦C¦L.(³¯ºa½÷)(ºÞ¨î¤£¥i¦Cªí)¡A¤£¥i¦C¦L¡I"
Cancel = True
End If
END IF
End Sub |
|