VBA过程代码165：如何利用VBA代码，屏蔽EXCEL工作表的复制功能
Dim CmdCtrls As CommandBarControls
Dim Cmd As CommandBarControl
Sub mynz ()
Set CmdCtrls = Application.CommandBars.FindControls(ID:=19)
For Each Cmd In CmdCtrls
Cmd.Enabled = False
Next
Application.CellDragAndDrop = False
Application.OnKey ("^c"), ""
End Sub
代码的解析说明：mynz过程利用VBA代码，屏蔽EXCEL工作表的复制功能，应用于Application 对象的OnKey方法指定特定键或特定的组合键运行的过程。
--------------------------------------------------------------------------------------------------VBA过程代码166：如何利用VBA代码，解除屏蔽EXCEL工作表的复制功能
Sub mynz ()
Set CmdCtrls = Application.CommandBars.FindControls(ID:=19)
For Each Cmd In CmdCtrls
Cmd.Enabled = True
Next
Application.CellDragAndDrop = True
Application.OnKey ("^c")
End Sub
代码的解析说明：mynz过程利用VBA代码，解除屏蔽EXCEL工作表的复制功能，应用于Application 对象的OnKey方法指定特定键或特定的组合键运行的过程。
VBA过程代码167：如何利用VBA代码，求单元格区域A1:H10的和
Sub mynz ()
Dim rng As Range
Dim d As Double
Set rng = Range("A1:H10")
d = Application.WorksheetFunction.Sum(rng)
MsgBox rng.Address(0, 0) & "单元格的和为" & d
End Sub
代码的解析说明：mynz过程利用VBA代码，求单元格区域A1:H10的和，其中Set rng = Range("A1:H10")是将对象Range("A1:H10")赋值给rng，Application.WorksheetFunction.Sum(rng)是利用工作表函数Sum，求出上述对象区域的和。VBA是实现自己小型办公自动化的有效手段，我根据自己20多年的VBA实际利用经验，现推出了四部VBA教程，这些是我多年编程经验的记录，也是我“积木编程”思想的体现。每一讲都是较大块的“积木”，可以独立的完成某些或者某类的过程，有需要的朋友可以联络（WeChat:NZ9668）分享。利用这些可以提高自己的编程效率。其一：“VBA代码解决方案”PDF教程，是VBA中各个知识点的讲解，覆盖了绝大多数的知识点，是初学及中级以下人员必备；其二“VBA数据库解决方案”PDF教程，数据库是数据处理的利器，对于中级人员应该掌握这个内容了。其三“VBA数组与字典解决方案”PDF教程，讲解VBA的精华----字典，是我们打开思路，提高代码水平的必备。其四“VBA代码解决方案”视频教程。目前正在录制，“每天20分钟，半年精进VBA”，越早参与，回馈越多。现在录制到第二册的92讲。