kimbal

¦^´_ 2# 317

³o¬q¥N½X©ñ¦b¤u§@ªí1ªº¥N½X¤º

1. Private Sub CommandButton1_Click()
   
2.         ActiveSheet.Unprotect
   
3.         Selection.Locked = True
   
4.         ActiveSheet.Protect
   
5. End Sub
   
6. 
   
7. Private Sub CommandButton2_Click()
   
8.         ActiveSheet.Unprotect
   
9.         Selection.Locked = False
   
10.         ActiveSheet.Protect
    
11. End Sub

½Æ»s¥N½X

¥Îªk:    ¥ý§â¤u§@­¶«OÅ@,©Î«ö¤@¤U 1
©Ò¦³®æ¤l¹w³]¬OÂꦺªº, «ö¤U2¥i¥H¸ÑÂê

317

¦U¤j¤j, ¦n
¤p©f¦³¤@°ÝÃD½Ð±Ð, ¦b¤u§@ªí¤¤,°²³] a1:a100¥Î®a·Q¥Î¤@«ö¶s, ¦b¸Ó½d³ò¤º·í¥Î®a©ó¿é¤J¸ê®Æ«á©ó¨ä ...
317 µoªí©ó 2013-6-1 16:29 [/quote]

¤p©f²{§âÀɮפW¶Ç, §Æ±æ¯à±o¨ì¦^À³,
aa.rar (11.15 KB)

¤U¸ü¦¸¼Æ: 13

2013-6-1 22:27

[quote]