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

[µo°Ý] ¦p¦ó¸Ñ°£¥[±K«OÅ@¤u§@ªí

[µo°Ý] ¦p¦ó¸Ñ°£¥[±K«OÅ@¤u§@ªí

¤j¤j¦n¡G

Private Sub CommandButton1_Click()
with sheet1
ActiveSheet.Unprotect  "123"
.
.
.
.
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End with
End sub

§Ú·Ó³o¼Ë§@¥u·|«OÅ@¤u§@ªí¡A¦ý¬O¨S¦³±K½X´N¥i¥H¸ÑÂê¡A½Ð°Ý§Ú±K½X123­n¥[¦b­þ¸Ì¤~¹ï©O¡HÁÂÁÂ

¥»©«³Ì«á¥Ñ lifedidi ©ó 2013-3-20 12:03 ½s¿è

½Ð°Ý¤j¤j¡G
sheet1¤w¸g«OÅ@¤u§@ªí

¦Ó§Ú­n¦bsheet2¶i¦æcopy

Private Sub CommandButton1_Click()
with sheet1
ActiveSheet.Unprotect  "123"
¡@¡@¡@with sheet2
¡@¡@¡@.
¡@¡@¡@copy....
¡@¡@     
¡@¡@¡@End with¡@¡@¡@
ActiveSheet.Protect "123", DrawingObjects:=True, Contents:=True, Scenarios:=True
End with
End sub

³o¼Ë¤l¬O¹ïªº¶Ü¡H

TOP

«D±`·PÁÂGBKEE¤j¤j¡I¤w¸Ñ¨M

TOP

¦^´_ 1# lifedidi
Protect ªº°Ñ¼Æ ¸Ô¬Ý VBA ªº»¡©ú
ActiveSheet.Protect "123", DrawingObjects:=True, Contents:=True, Scenarios:=True
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¯àµ½¥Î®É¶¡ªº¤H¡A¥²¯à´x´¤¦Û¤v§V¤Oªº¤è¦V¡C
ªð¦^¦Cªí ¤W¤@¥DÃD