GBKEE

¦^´_ 1# modelcrazyer
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim xlpassWord As String
   
4.     xlpassWord = "1234"             '±K½X
   
5.      With ActiveSheet               '¤u§@ªí
   
6.         .Unprotect xlpassWord       '¸Ñ±K
   
7.         With .Cells                 '©Ò¦³Àx¦s®æ
   
8.             .Locked = True          'Âê¦í
   
9.             .FormulaHidden = True   'ÁôÂÃ
   
10.         End With
    
11.         With .Columns("A:A")        'AÄæ : ¥i­×§ï
    
12.             .Locked = False         '¤£Âê¦í
    
13.             .FormulaHidden = False  '¤£ÁôÂÃ
    
14.         End With
    
15.         .Protect xlpassWord, DrawingObjects:=True, Contents:=True, Scenarios:=True        '«OÅ@
    
16.         .EnableSelection = xlUnlockedCells       '¤u§@ªí¤W©Ò¯à¿ï¨úªº¤º®e: ¨SÂê¦íªºÀx¦s®æ
    
17.     End With
    
18. End Sub

½Æ»s¥N½X