Giới hạn con trỏ ô trong vùng không liên tục

[chibi]

Chào các anh/chị. Cho tôi hỏi có cách nào để ScrollArea trong vùng không liên tục, ví dụ như kiểu ActiveSheet.ScrollArea = "Vùng không liên tục"

 

[Hai Lúa Miền Tây]

Chào các anh/chị. Cho tôi hỏi có cách nào để ScrollArea trong vùng không liên tục, ví dụ như kiểu ActiveSheet.ScrollArea = "Vùng không liên tục"

Anh thử dùng code sau:

Set vùng:
VD: ở đây mình chọn 3 vùng A1:C10, C1416, F12:H20

Sub Set_Restrictions()
    Dim myArea As Object
    Dim counter As Integer
    Range("A1:C10").Locked = False
    Range("C14:D16").Locked = False
    Range("F12:H20").Locked = False
    With Worksheets("sheet1")
        .EnableSelection = xlUnlockedCells
        .Protect contents:=True, userinterfaceonly:=True
        .ScrollArea = "A1:H20"
    End With
    Set myArea = Range(Worksheets("sheet1").ScrollArea)
    For counter = (myArea.Column + myArea.Columns.Count) To 256
        Columns(counter).Locked = True
    Next counter
End Sub

Bỏ chọn vùng:

Sub No_Restrictions()
    With Worksheets("sheet1")
        .EnableSelection = xlNoRestrictions
        .Protect contents:=False, userinterfaceonly:=True
        .ScrollArea = ""
    End With
End Sub

Anh vui lòng xem file đính kèm nhé.