返回列表 上一主題 發帖

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

317

帖子
248 
主題
55 
精華
0 
積分
334 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
20 
註冊時間
2010-7-24 
最後登錄
2023-2-2 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-8-29 20:44 | 只看該作者

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

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

准提部林

帖子
2833 
主題
10 
精華
0 
積分
2889 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-17 
2#
發表於 2016-8-30 12:08 | 只看該作者
工作表事件區程式：
  1. Dim uChk%

  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

  17. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  18. uChk = 0
  19. End Sub
複製代碼

　
使用方法：
 A999.gif

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

TOP

317

帖子
248 
主題
55 
精華
0 
積分
334 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
20 
註冊時間
2010-7-24 
最後登錄
2023-2-2 
3#
發表於 2016-8-30 12:34 | 只看該作者
回復 2# 准提部林

謝謝前輩，感恩

TOP

        靜思自在 : 為自己找藉口的人永遠不會進步。
返回列表 上一主題