3.2.11：VBA对系统预设的干预

【分享成果，随喜正能量】得到需要的，是福；过多的贪求，反累。人生的需求如同吃饭，只能吃两碗的饭量，如果贪图饭菜的美味多吃两碗，不但不能正常享受多吃的好处，相反，倒会因为胃承受不了而带来痛苦。可见，非分的贪婪，得到未必就是享受。只会徒增烦恼与业力。。

我给VBA的定义：VBA是个人小型自动化处理的有效工具。利用好了，可以大大提高自己的劳动效率，而且可以提高数据处理的准确度。我推出的VBA系列教程共九套和一部VBA汉英手册，现在已经全部完成，希望大家利用、学习。

如果您只是一般的职场VBA需求，可以打包选择7.1.3.9教程+汉英手册，第7套教程是入门，第1套教程是入门后的提高，第3套教程字典是必备的VBA之精华，第9套教程是实用的典型案例讲解。这四套教程内容掌握后足以处理一般工作中的问题，实际写代码的时候再辅助代码汉英手册，足矣！如果您想进一步提高，就需要选择高级阶段的教程了。

VBA是面向对象编程的语言，博大精深。很多朋友咨询VBA的学习方法，我会陆续给大家讲解一些我的经验，大家可以慢慢体会。今日的内容是：3.2.11:VBA对系统预设的干预

3.2.11 VBA对系统预设的干预

当我们逐渐深入地学习VBA,肯定不会满足于系统的一些预设功能，比如删除文件，系统一般要求用户选中文件后按下DELETE,或者是选中文件后右键；比如另存为文件，一般我们点击文件菜单，选中“另存为”后，输入文件名；再比如当我们按下快捷键后可以实现赋值粘贴的功能，这些都是系统的预设。

这个社会是追求个性的社会，我们可以利用VBA来实现自己条件下干预这种预设，但是要注意，当离开我们自己的条件时务必要恢复系统的预设，再次强调当离开我们自己的条件时务必要恢复系统的预设。

在《VBA代码解决方案》中我们会学习到GetOpenFilename方法，这种方法将显示标准的内置“打开”对话框，用于选择某个文件。

可以学习到时使用GetSaveAsFilename方法，显示标准的内置“另存为”对话框备份文件，这种方法可以获取备份文件的文件名和保存路径。

可以学习到OnKey方法，这种方法是十分重要的，可以有效地屏蔽工作表的复制功能。当我们并不希望用户对工作表中的数据进行复制粘贴操作，不想让人轻易地获得自己的数据时，那我们可以把所有的复制功能都屏蔽掉。

Sub mynz_47_1() '47 如何利用VBA代码，屏蔽EXCEL工作表的复制功能

Set CmdCtrls = Application.CommandBars.FindControls(ID:=19)

For Each Cmd In CmdCtrls

Cmd.Enabled = False

Next

Application.CellDragAndDrop = False

Application.OnKey ("^c"), ""

End Sub

Sub mynz_47_2() '47 如何利用VBA代码，屏蔽EXCEL工作表的复制功能

Set CmdCtrls = Application.CommandBars.FindControls(ID:=19)

For Each Cmd In CmdCtrls

Cmd.Enabled = True

Next

Application.CellDragAndDrop = True

Application.OnKey ("^c")

End Sub

再次强调一下需要大家注意：当离开我们自己的文件时务必要恢复系统的预设。这一点要作为我们写代码的基本功。

【分享成果，随喜正能量】

我2多年的VBA实践经验，全部浓缩在下面的各个教程中：

【分享成果，随喜正能量】不要和别人攀比，学会不贪婪，不奢求，平和宁静，知足常乐。报一颗平常心，做自己能掌控的事，赚自己认知范围内的钱。不要报有天上会掉馅饼的想法，这是赌博人生，活在幻想世界里的人，终其一生只会碌碌无为，福慧没能积攒，修行没有进步，生死之轮又如何能解脱。。