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

1^# 跳轉到 »

發表於 2016-8-30 12:08 | 顯示全部帖子

工作表事件區程式：

Dim uChk%
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If uChk = 0 Then uChk = 1: Exit Sub
If uChk = 1 Then
With ActiveSheet
.Unprotect "1111"
Selection.Locked = 1 + Selection(1).Locked
Selection.Borders.Style = 1 + Selection(1).Locked '有框的表示未鎖定(測試用.此行可刪除)
.Protect "1111"
uChk = 0
Cancel = True
End With
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
uChk = 0
End Sub

複製代碼

　
使用方法：

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

TEST0830.rar (7.45 KB)
　
　

靜思自在 : 人要自愛，才能愛普天下的人。