milt2010
Board Regular
- Joined
- Dec 18, 2010
- Messages
- 118
Hi!
I have this code:
What I would do would be to keep the autosort and autoformat and disable (or completely remove from the code), the automatic protection. In other words, disable or remove ONLY the auto lock from code and mantain all the other functions.
Thanks in advance!
I have this code:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Protect userinterfaceonly:=True, Password:="", AllowSorting:=True, AllowFiltering:=True, AllowFormattingColumns:=True
If Target.Cells.Count > 1 Or Target.HasFormula Then Exit Sub
On Error Resume Next
If Not Intersect(Target, Range("B4:N300")) Is Nothing Then
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
Sheets("List").Columns("B:N").AutoFit
End If
On Error GoTo 0
End Sub
What I would do would be to keep the autosort and autoformat and disable (or completely remove from the code), the automatic protection. In other words, disable or remove ONLY the auto lock from code and mantain all the other functions.
Thanks in advance!