Cho em hỏi code VBA chuyển bảng tính về Manual (1 người xem)

[alibaba2209]

Em muốn hỏi code VBA chuyển bảng tính về Manual (code của e sai chỗ nào chỉ giáo dùm em)

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("A1:AZ10")) Is Nothing Then XXXX


End Sub
-------------------------------------------------
Public Sub XXXX()

    Application.Calculation = Manual
    MsgBox "Vung khong duoc sua"
    
End Sub

 

[ndu96081631]

Em muốn hỏi code VBA chuyển bảng tính về Manual (code của e sai chỗ nào chỉ giáo dùm em)

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("A1:AZ10")) Is Nothing Then XXXX


End Sub
-------------------------------------------------
Public Sub XXXX()

    Application.Calculation =[COLOR=#ff0000] Manual[/COLOR]
    MsgBox "Vung khong duoc sua"
    
End Sub

Chỗ màu đỏ sửa thành xlManual thử xem

 

[alibaba2209]

Chỗ màu đỏ sửa thành xlManual thử xem

Dạ em làm được rồi ạ. Cảm ơn thầy