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

lifedidi

¤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ÁÂÁÂ

GBKEE

¦^´_ 1# lifedidi
Protect ªº°Ñ¼Æ ¸Ô¬Ý VBA ªº»¡©ú
ActiveSheet.Protect "123", DrawingObjects:=True, Contents:=True, Scenarios:=True

lifedidi

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

lifedidi

½Ð°Ý¤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