- ©«¤l
- 8
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 50
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN XP
- ³nÅ骩¥»
- 32BIT
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2014-11-7
- ³Ì«áµn¿ý
- 2018-9-2
|
[µo°Ý] VBA³]©w¤u§@ªí«OÅ@»P¸Ñ°£
¥»©«³Ì«á¥Ñ taiwan ©ó 2014-11-10 13:27 ½s¿è
§Ú¦³¤@Ó¸ê®ÆSheet ºÙ¬°sample
§Ú¦b¦¹¸ê®Æªí¤º³]¤@Ó«ö¶s,³o«ö§á¥\¯à·|¹ï sample¸ê®Æ¤º®e¶i¦æ§ó·s
¬°¤FÁקK¨Ï¥ÎªÌ§â¸ê®Æ«ö¨ìªÅ¥ÕÁ䤧Ãþ,©Î»~IJ
©Ò¥Hn³]¸m±K½X
¨º¦b¥\¯àÅÞ¿è¤Wn¥ý³]¸Ñ°£¤u§@ªí±K½X¦b³]«OÅ@¤u§@ªí±K½X
¨º³o¼Ë¤l¦b§ó·s¸ê®Æ¤º®e®É¤ñ¸û¤£·|¦³»~
¦b°õ¦æµ{¦¡«áµo²{¦³¤@Ó°ÝÃD¬O ¥ý¸Ñ°£±K½Xªºsub¥\¯à¥¢®Ä
¾ÉP¸ê®ÆµLªk¼g¤J§ó·s ·|¥X²{1004¿ù»~¥N½X
µ{¦¡½X¦p¤U:
'«OÅ@¤u§@¦Cªí- Sub LockLong()
- On Error Resume Next
-
- ActiveSheet("sample").Unprotect "1234"
- ActiveSheet("sample").Protect Password:="1234", DrawingObjects:=True, Contents:=True, Scenarios:=True
- ActiveSheet("sample").EnableSelection = xlNoRestrictions
- End Sub
½Æ»s¥N½X |
|