ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

«Ì½ª±K½X

«Ì½ª±K½X

¥­¦w
½Ð±Ð¦³®Ä«Ì½ªÅv­­±K½X
¿é¤J 1111  ¦ýÅã¥Ü ¡¯¡¯¡¯¡¯

·PÁ¤£ºÉ

Private Sub Workbook_Open()
If Date - DateSerial(2013, 1, 10) >= 60 Then
Application.EnableCancelKey = xlDisabled
MsgBox "¡°¤w¶W¹L VBA ¨Ï¥Î´Á­­¡A°£Àɮ׺޲zªÌ¥~µLªk¨Ï¥Î¥»ÀɮסI"
If InputBox("½Ð¿é¤JÀɮ׺޲zªÌ¡eÅv­­±K½X¡f¡I") <> "1111" Then
ThisWorkbook.Close SaveChanges:=False
End If
End If
End Sub
µL¤îºÉªº§V¤O¤W¶i

¥»©«³Ì«á¥Ñ Hsieh ©ó 2014-5-26 14:44 ½s¿è

¦^´_ 1# vinejason


    http://blog.xuite.net/crdotlin/e ... x%E5%87%BD%E6%95%B8
passwordInputbox.zip (13.7 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ vinejason ©ó 2014-5-26 17:24 ½s¿è
¦^´_  vinejason
Hsieh µoªí©ó 2014-5-26 14:31

¥­¦w
ÁÂÁ¶W¯Åª©¥D¼·ªÅ¦^ÂÐ
µL¤îºÉªº§V¤O¤W¶i

TOP

        ÀR«ä¦Û¦b : ¬Ý§O¤H¤£¶¶²´¡A¬O¦Û¤v­×¾i¤£°÷¡C
ªð¦^¦Cªí ¤W¤@¥DÃD