Cho tôi hỏi khi sheet bị khóa thì thường không Sort và xóa được các dòng, vậy có thể code là khi chạy VBA thì mở khóa, cuối đoạn code khóa lại như cũ không ?
Tôi đã thử chạy nhưng có lúc vẫn phải nhập lại Pass và vẫn Protect nhưng không có pass
Tôi đã thử chạy nhưng có lúc vẫn phải nhập lại Pass và vẫn Protect nhưng không có pass
Sub SORT()
'
' SORT Macro
'
' Keyboard Shortcut: Ctrl+g
'
ActiveSheet.Unprotect
Dim aRow As Integer
aRow = Sheet8.UsedRange.Rows.Count
Range("P4" & aRow).Select
Selection.Copy
Range("P4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("NKC-Details").AutoFilter.SORT.SortFields.Clear
ActiveWorkbook.Worksheets("NKC-Details").AutoFilter.SORT.SortFields.Add2 Key _
:=Range("C3:C" & aRow), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("NKC-Details").AutoFilter.SORT
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
:=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True
End Sub
