標題: 可否用程式設定隨意保護儲存格, [打印本頁]

---

作者: 317    時間: 2016-8-29 20:44     標題: 可否用程式設定隨意保護儲存格,

前輩們, 安好
請教一個問題, 在excel工作表保護工能中, 可否用程式設定隨意保護儲存格,
比如用家用滑鼠隨意選定某儲存格, 然後按下按紐, 該選定儲存格便被保護, 若用家想解除儲存格保護, 同樣按下該按鈕, 儲存格保護便被解除,
先行謝謝各前輩,
[attach]25088[/attach]

---

作者: 准提部林    時間: 2016-8-30 12:08

工作表事件區程式：

1. Dim uChk%
   
2. 
   
3. Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
   
4. If uChk = 0 Then uChk = 1: Exit Sub
   
5. If uChk = 1 Then
   
6.    With ActiveSheet
   
7.         .Unprotect "1111"
   
8.         Selection.Locked = 1 + Selection(1).Locked
   
9.         Selection.Borders.Style = 1 + Selection(1).Locked '有框的表示未鎖定(測試用.此行可刪除)
   
10.         .Protect "1111"
    
11.         uChk = 0
    
12.         Cancel = True
    
13.    End With
    
14. End If
    
15. End Sub
    
16. 
    
17. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
18. uChk = 0
    
19. End Sub

複製代碼

　
使用方法：
[attach]25096[/attach]

選取一個或多個儲存格，按滑鼠〔右鍵〕，出現右鍵選單後，再對著選取格按一次右鍵，
即可自動在〔鎖定．未鎖定〕變換：
[attach]25097[/attach]
　
　

---

作者: 317    時間: 2016-8-30 12:34

回復 2# 准提部林

謝謝前輩，感恩

---

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