使用VBA代码屏蔽复制

NO. 165：如何利用VBA代码，屏蔽EXCEL工作表的复制功能

NO. 166：如何利用VBA代码，解除屏蔽EXCEL工作表的复制功能

NO. 167：如何利用VBA代码，求单元格区域A1:H10的和

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讲。