數據錄入後鎖定單元

Question

我需要在給定範圍內的數據錄入後鎖定每個單元。就像我輸入Y或N一樣，所以沒有人可以再次編輯它。下面是我的代碼，任何幫助將不勝感激。謝謝！

Private Sub Worksheet_Change(ByVal Target As Range) 
Dim A As Range, MyPass As String, sh As Worksheet 
Dim unit As Range 
Set A = Range("E10:E22") 
MyPass = "a" 
Set sh = ActiveSheet 
If Intersect(Target, A) Is Nothing Then Exit Sub 
Set unit = Union(Target, Target.Offset(0, 1), Target.Offset(0, 2), Target.Offset(0, 3)) 
Application.EnableEvents = False 
sh.Unprotect (MyPass) 
unit.Locked = False 
Target.Offset(0, 1) = Environ("Username") 
Target.Offset(0, 2) = Now() 
Target.Offset(0, 3) = Now() 
unit.Locked = True 
sh.protect (MyPass) 
Application.EnableEvents = True 
End Sub 

Answer 1

我已經刪除了一些你的變量直接引用是需要所有與集創建從未設定任何範圍。假設工作表當前受E10：E22解鎖保護，則以下內容應按照您的預期方式工作。

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Target.Count > 1 Then Exit Sub 
    If Not Intersect(Target, Range("E10:E22")) Is Nothing Then 
     On Error GoTo Safe_Exit 
     Application.EnableEvents = False 
     Dim MyPass As String: MyPass = "a" 
     Me.Unprotect MyPass 
     'Target.Resize(1, 4).Locked = False ' ◄ not needed when the sheet is unprotected 
     Target.Offset(0, 1).Resize(1, 3) = Array(Environ("Username"), Now(), Now()) 
     Target.Resize(1, 4).Locked = True 
     Me.Protect MyPass 
    End If 
Safe_Exit: 
    Application.EnableEvents = True 
End Sub