解除選取儲存格的保護 (己解決 )

trainee

新丁再有問題！
請問可有方法，
在全張工作表受保護的情況下，
可否只解除所選取儲存格的保護，
以編輯該儲存格！？

煩請各大大賜教！

register313

回復 1# trainee

題目:A1~A10可編輯,其餘儲存格不可編輯

1.選取A1~A10,格式/儲存格  保護  不勾選鎖定
2.工具/保護/保護工作表

trainee

先感謝register313大大的賜教！

但我所不懂是如何作一按鈕，
一按後，
使原本受保護的儲存格，
在有需要作出修改的情況下，
才點選解除保護，以進行編輯。
且完成後，返回受保護的狀態！

register313

回復 3# trainee

1. Private Sub UserForm_Initialize()
   
2.   ToggleButton1.Caption = "鎖定"
   
3. End Sub
   
4. Private Sub ToggleButton1_Click()
   
5. If ToggleButton1.Value = True Then
   
6.    ToggleButton1.Caption = "解除"
   
7.    ActiveSheet.Unprotect
   
8.    [A1:A10].Locked = False
   
9.    ActiveSheet.Protect
   
10. Else
    
11.    ToggleButton1.Caption = "鎖定"
    
12.    ActiveSheet.Unprotect
    
13.    Cells.Locked = True
    
14.    ActiveSheet.Protect
    
15. End If
    
16. End Sub

複製代碼

Book1.rar (8.34 KB)

下載次數: 83

2012-3-27 12:09

trainee

感謝回覆及賜教！
新丁會好好學習！

trainee

請問 register313 大大，
閣下所賜教的方法，
只是解除a1-a10這十個儲存格的保護，
其他同頁的儲存格，
仍照舊受保護。

請問我若須按需要，
於工作表的非指定儲存格作出修改，
除全頁解除保護外，
可否以閣上所賜教的方法，
解除所選定的儲存格，
如c17，然後再選b25，(非a1-a10內)的保護！？

新丁煩請再賜教！

Hsieh

回復 6# trainee

選取區域解鎖

1. Sub Part_Protect()
   
2. With ActiveSheet
   
3. .Unprotect "12345"  
   
4. .Cells.Locked = True
   
5. Selection.Locked = False
   
6. .Protect "12345"  '密碼12345
   
7. End With
   
8. End Sub

複製代碼

下載 (385.19 KB)

2012-3-28 10:55

trainee

回復 7# Hsieh

新丁遇到困惑，再次要 [hsieh] 大大出手指導，
在此謝過！
新丁要慢慢消化，希望能再度於前輩的指導下，
有所得着！

trainee

多謝Hsieh大大賜教，
我已參詳大大的方法，加到新丁的文件。
但有一問題，該自訂巨集按鈕，
若要刪除，應如何處理！？
煩請再指導！

trainee

Hsieh：

新丁已揣摸到解除方法，
毋需大大再費心！
我揣摸得來的方法是開啟自訂工具列，
揀選巨集，
然後以滑鼠指向自訂巨集按鈕並拉走即可。