- ©«¤l
- 3
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 5
- ÂI¦W
- 0
- §@·~¨t²Î
- win8 64bit
- ³nÅ骩¥»
- office 365
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-10-16
- ³Ì«áµn¿ý
- 2013-10-17
|
¥Î¤F¥H¤UVBA
¥»·Q¿é¤J¸ê®Æ«á ¦Û°ÊÂê©wÀx¦s®æ
¥Î¦b´¶³qÀx¦s®æ¬O¥i¥H¥¿±`¨Ï¥Î
¦ý¦pªG¤w¸g¦X¨ÖªºÀx¦s®æ
¨S¦³¿é¤J¸ê®Æ¤w¸g¦Û°ÊÂê©w
½Ð«ü±Ð
Thanks
------------------------------------------------
Private Sub Worksheet_SelectionChange
ActiveSheet.Unprotect
¡@ Target.Locked = False
¡@¡@¡@¡@On Error Resume Next
¡@¡@¡@¡@¡@¡@¡@¡@If Target <> "" Then
¡@¡@¡@¡@¡@¡@Target.Locked = True
¡@¡@¡@¡@ActiveSheet.Protect Contents:=True
¡@¡@¡@End If
End Sub |
|