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

[µo°Ý] Ãö©ó ¦Û°ÊÂê©wÀx¦s®æ

[µo°Ý] Ãö©ó ¦Û°ÊÂê©wÀx¦s®æ

¥Î¤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

        ÀR«ä¦Û¦b : ¡i°±º¢¤£«e¡A²×µL©Ò±o¡j¤H³£°g©ó´M§ä©_ÂÝ¡A¦]¦Ó°±º¢¤£«e¡FÁa¨Ï®É¶¡¦A¦h¡B¸ô¦Aªø¡A¤]¤FµL¥Î³B¡A²×µL©Ò±o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD