有大佬知道这个是什么意思吗？在线等大佬解惑。

Private Sub Workbook_activate()
'激活本工作簿时恢复事件，取消剪切复制功能
Application.EnableEvents = True
Application.CommandBars.FindControl(msoControlButton, 21).Enabled = False
Application.CommandBars("cell").Enabled = 0
Application.OnKey "^c", "已禁用复制功能"
Application.CommandBars(1).Controls(2).Controls(3).Enabled = 0
Application.CommandBars(1).Controls(2).Controls(4).Enabled = 0
Application.OnKey "^x", "已禁用剪切功能"
Application.CellDragAndDrop = False
ActiveSheet.Cells.Calculate
End Sub