شخصی سازی یا customize برای Protect شبت

[ali.b]

سلام
این کد ها تو قفل کردن شیت ها به صورت شخصی سازی یا همون customize هست
ممکنه میخواین ی سری از protect ها باشه ی سری نباشن


Range("J49:K49").Select
Selection.Locked = True

ActiveSheet.Protect DrawingObjects:=True, _
Contents:=True, _
Scenarios:=True, _
UserInterfaceOnly:=True, _
AllowFormattingCells:=True, _
AllowFormattingColumns:=True, _
AllowFormattingRows:=True, _
AllowInsertingColumns:=True, _
AllowInsertingRows:=True, _
AllowInsertingHyperlinks:=True, _
AllowDeletingColumns:=True, _
AllowDeletingRows:=True, _
AllowSorting:=True, _
AllowFiltering:=True, _
AllowUsingPivotTables:=True