[µo°Ý] ½Ð°Ý¦p¦ó±K½X«OÅ@¸ê®Æªí

v03586

½Ð°Ý¦p¦ó±NExcel ±K½X«OÅ@¸ê®Æªí
¥Ø«e¼g¤J³o¬qµ{¦¡½X , ¦ý¨Ï¥ÎªÌ¤@¼Ë¥i¥H«ö¥kÁä¡y¨ú®ø«OÅ@¤u§@ªí¡z
§Y¨Ï§Ú¦b¸ê®Æªí«ö¥kÁä±Ò¥Î¡y«OÅ@¤u§@ªí¡z¨Ã¿é¤J±K½X, ¦ýÃö³¬«á¦A¶}±Ò
¨Ï¥ÎªÌ¤@¼Ë¥i¥H«ö¥kÁä¡y¨ú®ø«OÅ@¤u§@ªí¡z.....®Ú¥»¨S¦³¹F¨ì«OÅ@ªº®ÄªG

1. Option Explicit
   
2. Sub Ex()
   
3.     With ActiveSheet  '¡±@¥Î¤¤ªº¤u¡±@ªí
   
4.         .Unprotect
   
5.         .Range("A2:L55").Locked = False
   
6.         .Protect  'DrawingObjects:=True, Contents:=True, Scenarios:=True
   
7.        ' .EnableSelection = xlUnlockedCells  '¤u¡±@ªí¤W,¨S¤WÂêÀx¦s®æ¥i¿ï
   
8.        .EnableSelection = xlNoSelection    '¤u¡±@ªí¤WªºÀx¦s®æ¤£¥i¿ïªº
   
9.        '.EnableSelection = xlNoRestrictions '¤£­­¨î
   
10.     End With
    
11. End Sub

½Æ»s¥N½X

­ã´£³¡ªL

With ActiveSheet  
        .Unprotect "0000"
       ~~~
        .Protect "0000"
End With

"0000" ±K½X