Board logo

標題: 解除選取儲存格的保護 (己解決 ) [打印本頁]
作者: trainee    時間: 2012-3-27 10:14     標題: 解除選取儲存格的保護 (己解決 )

本帖最後由 trainee 於 2012-3-29 09:34 編輯

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

煩請各大大賜教！
作者: register313    時間: 2012-3-27 10:40

回復 1# trainee

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

1.選取A1~A10,格式/儲存格  保護  不勾選鎖定
2.工具/保護/保護工作表
作者: trainee    時間: 2012-3-27 11:17

先感謝register313大大的賜教！

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

回復 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
複製代碼
[attach]10166[/attach]
作者: trainee    時間: 2012-3-27 12:37

感謝回覆及賜教！
新丁會好好學習！
作者: trainee    時間: 2012-3-28 10:10

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

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

新丁煩請再賜教！
作者: Hsieh    時間: 2012-3-28 10:56

回復 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
複製代碼
[attach]10176[/attach]
作者: trainee    時間: 2012-3-28 15:26

回復 7# Hsieh

新丁遇到困惑，再次要 [hsieh] 大大出手指導，
在此謝過！
新丁要慢慢消化，希望能再度於前輩的指導下，
有所得着！
作者: trainee    時間: 2012-3-28 19:11

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

本帖最後由 trainee 於 2012-3-28 21:43 編輯

Hsieh：

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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)