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

¤u§@ªí«OÅ@¤§«á¡A²M°£¸ê®Æªº¥¨¶°«ö¶sµLªk°Ê§@

¥»©«³Ì«á¥Ñ owen06 ©ó 2014-3-24 10:55 ½s¿è
  1. Sub ¥X³f³æ_²M°£¸ê®Æ()
  2. sheets("XXX").Unprotect "12345" '¨ú®ø«OÅ@¡A±K½X¡G12345
  3. Range("K3,C3:D3,B9:F22").ClearContents
  4. Range("C3:D3").Select
  5. MsgBox "¸ê®Æ¤w²M°£¦¨¥\!!"
  6. sheets("XXX").Protect "12345" '­«¤W«OÅ@¡A±K½X¡G12345
  7.    
  8. End Sub
½Æ»s¥N½X
¦^´_ 1# §±æ¢

TOP

        ÀR«ä¦Û¦b : ¯à·F¤£·F¡A¤£¦p­W·F¹ê·F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD