ªð¦^¦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 : ¡i»X½ªªº¦Û¥Ñ¡j¤H±`¦b¤°»ò³£¥i¥H¦Û¥Ñ¦Û¦bªº®É­Ô¡A«o³Q³oºØÀH¤ß©Ò±ýªº¦Û¥Ñ»X½ª¡AµêÂY®É¥ú¦Ó²@µLıª¾¡C
ªð¦^¦Cªí ¤W¤@¥DÃD