可否用程式設定隨意保護儲存格,

317

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

下載 (29.93 KB)

2016-8-29 20:42

准提部林

工作表事件區程式：

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

複製代碼

　
使用方法：

下載 (12.07 KB)

2016-8-30 12:06

選取一個或多個儲存格，按滑鼠〔右鍵〕，出現右鍵選單後，再對著選取格按一次右鍵，
即可自動在〔鎖定．未鎖定〕變換：
TEST0830.rar (7.45 KB)

下載次數: 11

2016-8-30 12:08

　
　

317

回復 2# 准提部林

謝謝前輩，感恩