Giúp code bỏ cố định vùng cuộn (1 người xem)

[minhtuan55]

Chào cả nhà GPE !

mình dùng code bên dưới dùng để hạn chế vùng cuộn. code thì ok rồi, nhưng nhiều khi mình muốn chọn ngoài vùng A1:O40 để sửa 1 cái gì đó thì không được, xóa code mà cũng không được. Anh em nào giúp em tạo 1 cái nút bấm để mình bật tắt chức năng theo ý muốn. Em xin cảm ơn

Private Sub Worksheet_Activate()
Me.ScrollArea = "A1:O40"
End Sub

 

[langtuchungtinh360]

Chào cả nhà GPE !

mình dùng code bên dưới dùng để hạn chế vùng cuộn. code thì ok rồi, nhưng nhiều khi mình muốn chọn ngoài vùng A1:O40 để sửa 1 cái gì đó thì không được, xóa code mà cũng không được. Anh em nào giúp em tạo 1 cái nút bấm để mình bật tắt chức năng theo ý muốn. Em xin cảm ơn

Private Sub Worksheet_Activate()
Me.ScrollArea = "A1:O40"
End Sub

bạn tạo 1 commanbuttom lên màn hình rồi dán code này vào sự kiện của sheet

Dim GhiNho As Boolean
Private Sub CommandButton1_Click()
    If GhiNho Then
        Me.ScrollArea = ""
        GhiNho = False
    Else
        Me.ScrollArea = "A1:O40"
        GhiNho = True
    End If
End Sub

 

[giaiphap]

Chào cả nhà GPE !

mình dùng code bên dưới dùng để hạn chế vùng cuộn. code thì ok rồi, nhưng nhiều khi mình muốn chọn ngoài vùng A1:O40 để sửa 1 cái gì đó thì không được, xóa code mà cũng không được. Anh em nào giúp em tạo 1 cái nút bấm để mình bật tắt chức năng theo ý muốn. Em xin cảm ơn

Private Sub Worksheet_Activate()
Me.ScrollArea = "A1:O40"
End Sub

Bạn tham khảo cái này thử xem.
http://www.giaiphapexcel.com/forum/...oll-Area)-cho-Office-2010&p=720208#post720208