Tắt chức năng copy, cắt, dán

[aiquocxp]

có cách nào viết VAB để tắt tất cả các chức năng copy, cắt, dán không xin chỉ giúp

 

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

có cách nào viết VAB để tắt tất cả các chức năng copy, cắt, dán không xin chỉ giúp

Bạn dùng code sau:

Private Sub Workbook_Activate()
Dim oCtrl As Office.CommandBarControl
'Vo hieu hoa cat
     For Each oCtrl In Application.CommandBars.FindControls(ID:=21)
            oCtrl.Enabled = False
     Next oCtrl
'Vo hieu hoa copy
     For Each oCtrl In Application.CommandBars.FindControls(ID:=19)
            oCtrl.Enabled = False
     Next oCtrl
         Application.CellDragAndDrop = False
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    With Application
        .CellDragAndDrop = False
        .CutCopyMode = False
    End With
End Sub

Private Sub Workbook_Deactivate()
Dim oCtrl As Office.CommandBarControl
     For Each oCtrl In Application.CommandBars.FindControls(ID:=21)
            oCtrl.Enabled = True
     Next oCtrl
     
     For Each oCtrl In Application.CommandBars.FindControls(ID:=19)
            oCtrl.Enabled = True
     Next oCtrl
      Application.CellDragAndDrop = True
End Sub

Xem thêm file nhé.