Hsieh

¦^´_ 2# 317

¸Õ¸Õ

1. Private Sub CommandButton1_Click()
   
2. Me.Unprotect '¨ú®ø«OÅ@
   
3. Me.Cells.Locked = False 'Àx¦s®æ¨ú®øÂê©w
   
4. Me.Cells.SpecialCells(xlCellTypeConstants).Locked = True '«DªÅ®æÂê©w
   
5. Me.Protect '«OÅ@¤u§@ªí
   
6. End Sub
   
7. 
   
8. Private Sub CommandButton2_Click()
   
9. Me.Unprotect '¨ú®ø«OÅ@
   
10. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 6# 317

1. Private Sub CommandButton1_Click()
   
2. Me.Unprotect 12345 '¨ú®ø«OÅ@
   
3. Cells.Locked = False 'Àx¦s®æ¨ú®øÂê©w
   
4. If Application.CountA(Range("G3:AK100")) > 0 Then Range("G3:AK100").SpecialCells(xlCellTypeConstants).Locked = True '«DªÅ®æÂê©w
   
5. Me.Protect 12345 '«OÅ@¤u§@ªí
   
6. End Sub
   
7. 
   
8. Private Sub CommandButton2_Click()
   
9. Me.Unprotect 12345 '¨ú®ø«OÅ@
   
10. If Not Intersect(Range("G3:AK100"), Selection) Is Nothing Then Selection.ClearContents
    
11. Cells.Locked = False 'Àx¦s®æ¨ú®øÂê©w
    
12. If Application.CountA(Range("G3:AK100")) > 0 Then Range("G3:AK100").SpecialCells(xlCellTypeConstants).Locked = True '«DªÅ®æÂê©w
    
13. Me.Protect 12345 '«OÅ@¤u§@ªí
    
14. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 9# hong912
³o°ÝÃD«ü¥Ü¾Þ§@µ{§Ç¤Wªº»{ª¾
¼Ó¥Dªº»Ý¨D¬O¦b½d³ò¤º­ì¥»³£µL«OÅ@ª¬ºA¨Ñ¨Ï¥ÎªÌ¿é¤J¸ê®Æ
·í¨Ï¥ÎªÌ¿é¤J§¹¸ê®Æ«á¡A¥²¶·«ö¤U«ö¶s1¡A¤~·|¹ï¤w¦³ªº¸ê®Æ§@«OÅ@
ªÅ®æ¤´µM¥i¥H¦Û¥Ñ¿é¤J¡A­Y¿é¤J§¹¦¨¨S¦³«ö¤U«ö¶s1¨º»ò¸ÓÀx¦s®æ¤´µM¯à°÷­×§ï
©Ò¥H¡A§A´ú¸Õ®É¬O§_¦³·Ó¦¹µ{§ÇÅÞ¿è¨Ï¥Î?¦pªG¦³«ö¤U«ö¶s1¥H«á´NÀ³¸Ó·|¹ï¦³¸ê®ÆªºÀx¦s®æ«OÅ@
§Aªº»Ý¨D¥u¬O¦h¤F¹ïÀx¦s®æÃC¦â°µ³]©w
¸Õ¸Õ

1. Private Sub CommandButton1_Click()
   
2. Dim Rng As Range
   
3. Set Rng = Cells '«ü©w§@¥Î½d³ò
   
4. Me.Unprotect 12345 '¨ú®ø¤u§@ªí«OÅ@
   
5. Cells.Locked = False '©Ò¦³Àx¦s®æ¨ú®øÂê©w
   
6. If Application.CountA(Rng) > 0 Then '½d³ò¤º¦³¸ê®Æ
   
7. Rng.Interior.ColorIndex = xlNone '¥h°£©³¦â
   
8. With Rng.SpecialCells(xlCellTypeConstants) '¦³¸ê®ÆªºÀx¦s®æ³]©w
   
9.   .Interior.ColorIndex = 6 '©³¦â¬°¶À¦â
   
10.   .Locked = True 'Âê©wÀx¦s®æ
    
11. End With
    
12. End If
    
13. Me.Protect 12345 '¤u§@ªí«OÅ@
    
14. End Sub

½Æ»s¥N½X