¤u§@ªí«OÅ@¤§«á¡A²M°£¸ê®Æªº¥¨¶°«ö¶sµLªk°Ê§@
- ©«¤l
- 396
- ¥DÃD
- 12
- ºëµØ
- 0
- ¿n¤À
- 425
- ÂI¦W
- 0
- §@·~¨t²Î
- Win10
- ³nÅ骩¥»
- Office 2016
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¤¤
- µù¥U®É¶¡
- 2013-7-2
- ³Ì«áµn¿ý
- 2024-8-23
  
|
¥»©«³Ì«á¥Ñ owen06 ©ó 2014-3-24 10:55 ½s¿è
- Sub ¥X³f³æ_²M°£¸ê®Æ()
- sheets("XXX").Unprotect "12345" '¨ú®ø«OÅ@¡A±K½X¡G12345
- Range("K3,C3:D3,B9:F22").ClearContents
- Range("C3:D3").Select
- MsgBox "¸ê®Æ¤w²M°£¦¨¥\!!"
- sheets("XXX").Protect "12345" '«¤W«OÅ@¡A±K½X¡G12345
-
- End Sub
½Æ»s¥N½X ¦^´_ 1# §±æ¢ |
|
|
|
|
|
|