登陆注册
13102500000040

第40章 安全设置及VBA 应用(3)

(1)数学函数,如Abs(number)、Cos(number)、Exp(number)等;

(2)数组函数,如Array(arglist)、LBound(arrayname[,dimension])等;

(3)字符串操作函数,如Right(string,length)、LTrim(string)、Join(sourcearray[,delimiter])等;

(4)日期和时间函数,如DATE、NOW、DateAdd(interval,number,date)等;

(5)数据类型检查与转换函数,如IsNumeric(expression)、IsArray(varname)、IsEmpty(expression)等;

(6)文件操作函数,如CurDir [(drive )]、GetAttr(pathname )、FileDateTime(pathname)、FileLen(pathname)等;

(7)输入输出函数,如MsgBox(prompt[,buttons][,title][,helpfile,context])、Input(number,[ # ]filenumber)等;

(8)财会类函数,如DDB(cost,salvage,life,period[,factor])、NPV(rate,values())、IRR(values()[,guess])等;

(9)格式化数据,如FormatDateTime(Date[,NamedFormat])、Format(expression[,format[,firstdayofweek[,firstweekofyear]]])等;

(10)系统与对象函数,如CreateObject(class,[servername])、DoEvents()、GetAllSettings(appname,section)等。

9.2.3宏的简单应用

下面分别以在Word和Excel中举例介绍如何使用宏录制器创建简单宏应用,并在VBE(Visual Basic编辑器)中查看修改宏代码,以适应新的需要。

(1)Word文本格式设置宏。

步骤1:单击“工具”→“宏”→“录制新宏”菜单项,打开“录制新宏”对话框。

步骤2:在“录制新宏”对话框的“宏名”文本框中可输入录制新宏的名称。

步骤3:接下来可以将宏指定到工具栏或者指定为快捷方式。这里选择将宏指定到“工具栏”,单击“工具栏”按钮,“自定义”对话框。

在“自定义”对话框的“命令”选项卡中,将右边列表框中的“Project.NewMacros.Macro1”命令拖动到工具栏中,此时工具栏中出现了“Project.NewMacros.Macro1”按钮。

但是该按钮是文字画面,没有显示按钮形状,右键单击该按钮,弹出菜单,用户可以选择按钮图像及显示方式。

步骤4:在“将宏保存在”下拉列表框中选择“网格.doc”选项。若选择“所有文档(Normal.dot)”选项,则在任何打开的Word文档中都可以使用该宏。

步骤5:默认情况下,Word将自动添加有关宏的说明。若要进行修改,可以在“说明”文本框中输入说明。

步骤6:单击“格式”→“段落”,系统将弹出“段落”对话框,将各段落参数值设置。

步骤7:然后单击“停止”工具栏中的“停止录制”按钮,完成录制操作。

步骤8:打开示例文档,选择要设置格式的段落,然后单击“工具”→“宏”→“宏”菜单项,或按+打开。

步骤9:选择Macro1,再单击运行,便执行文本格式设置宏,运行效果。

步骤10:打开VBE,可看到该宏的源代码。

(2)制作语音朗读的宏。

Word中没有语音朗读功能,但是Excel中具有这个功能,如何使Word也具有朗读功能呢?在Microsoft Office中,各个组件间可以相互调用,通过调用Excel对象使Word也具有朗读功能。下面通过制作一个宏来完成调用,具体操作步骤如下。

步骤1:单击“工具”→“宏”→“Visual Basic编辑器”菜单项,打开Visual Basic编辑器。

步骤2:在Visual Basic 编辑器中创建一个SpeakText 的过程,具体代码如下。

Sub SpeakText()

Dim spoAsObject

Set spo=CreateObject("Excel.Application")

spo.Speech.Speak Selection.Text

Set spo=Nothing

End Sub

选择相应的文本,然后打开宏对话框,选择SpeakText宏,单击“运行”,Word便会自动朗读选择的文本。

程序说明:

(1)CreateObject 函数创建一个Excel.Application 对象,并赋值给spo 该对象的引用。

(2)接着调用Speech 子对象的Speak 方法来朗读选取的文本。

(3)最后设置spo 为空引用,释放资源。

(3)Excel简单宏应用。

Excel中宏录制的方法与Word中类似,不同的是Excel中将宏保存在工作表或工作簿。还有一点不同的是,Excel不能将宏添加到工具栏中,只能为宏指定某个快捷键。下面制作一个宏,用以将低于60分的成绩突出显示,字体加粗,大小由12磅改为18磅,宏制作的具体操作步骤如下。

步骤1:单击“工具”→“宏”→“录制新宏”菜单项,打开“录制新宏”对话框。

步骤2:选中成绩低于60的单元格,设置字体大小为18磅,加粗,完成后单击“停止”工具栏中的“停止录制”按钮,完成宏录制操作。

此时可以通过宏操作来突出不及格成绩的显示,但是只能对一个单元格进行操作,如何通过宏来突出显示工作表中的所有不及格成绩呢?下面将通过修改宏代码来适应新的应用,具体操作步骤如下。

步骤1:单击“工具”→“宏”→“Visual Basic编辑器”,打开Visual Basic编辑器。

步骤2:修改代码如下:

Sub SetStyle()

Dim scoreAs Integer,intRow As Integer,iAs Integer

intRow=Sheets("Sheet1").UsedRange.Rows.Count-1

For i=0To intRow-1

W ith Sheets("Sheet1")

If.Cells(i +2,3).Value<60Then

W ith Cells(i +2,3).Font

.Name="宋体"

.Size=18

.Bold=True

.Strikethrough=False

.Super=False

.Sub=False

.OutlineFont=False

.Shadow=False

.Underline=xlUnderlineStyleNone

.ColorIndex=xlAutomatic

EndW ith

End If

EndW ith

Next i

End Sub

程序说明:

(1)intRow 用来获取工作表中已有数据的行数。

(2)接下来使用一个循环语句,将成绩低于60的字体设置为18磅、粗体。

步骤3:单击Visual Basic编辑器工具栏中的保存按钮,关闭编辑器,然后在Excel中单击“工具”→“宏”→“宏”菜单项,弹出“宏”对话框。

步骤4:选中SetStyle后,单击“执行”按钮,便运行修改后的宏。

9.2.4宏安全性及宏病毒

1.宏安全性

VBA宏中可能包含一些潜在的病毒,也就是“宏病毒”,为了保证VBA 的安全,就要设置其安全性。在Office中要与他人共享宏,则可以通过数字签名来验证,以保证VBA 宏的可靠来源。

在打开包含VBA宏的文档时,都可以先验证VBA 宏的来源再启用宏。

下面介绍设置VBA安全性的具体操作步骤。

(1)单击“工具”→“宏”→“安全性”菜单项,打开“安全性”对话框。

在“安全级”选项卡中有4个单选按钮。

非常高。选中该选项,则只允许运行在可信位置安装的宏,其他所有签名和未签名的宏都将被禁用。通过将“安全级”设置为“非常高”并禁用在可信位置安装的宏,可完全禁用所有的宏。如何禁用在可信位置安装的宏?在“安全性”对话框的“可靠发行商”选项卡中取消选中“信任所有安装的加载项和模板”复选框。

高。选中该选项,则只运行经过数字签名而且用户确认来源可靠的宏。在信任一个源之前,应该确认源是可靠的,并在给该宏签名前要使用病毒扫描软件来扫描病毒。没有签名的宏自动被禁用。

中。选中该选项,则每当遇到来自不在可靠来源列表中的宏时,将会弹出“安全警告”对话框,显示一条警告信息。用户可以选择在打开文件时是否启用还是禁用宏,如果文件中可能包含病毒,应该选择禁用宏。

低。若肯定打开的文件和加载项都没有病毒,则可选中该选项。选中该选项,将关闭宏病毒。

(2)默认情况下,“安全级”设置为“高”。这里将其设置为“中”,然后单击“确定”即可。

(3)当再次打开文档时,将启用“安全级”的设置。

Microsoft Office软件的安全性在默认情况下设置为“高”。未经签名的VBA 宏不能在此环境中运行。需要先将宏的安全级别更改为“中”以运行此代码。单击“工具”→“宏”→“安全性”菜单项,在“安全级”选项卡中,选择“中”,再单击“确定”完成,然后重新启动程序才能使安全级别更改生效。

2.宏病毒

(1)宏病毒定义。

宏病毒就是利用VBA进行编写的一些宏,这些宏可以自动运行,干扰用户工作,轻则降低工作效率,重则破坏文件,使用户遭受巨大损失。

(2)宏病毒特点。

传播快。宏病毒成为传播最快的病毒,其原因有三个:第一,现在用户几乎对可执行文件病毒和引导区病毒已经有了比较一致的认识,对这些病毒的防治都有一定的经验,许多公司、企业对可执行文件和磁盘的交换都有严格的规定。但对宏病毒的危害还没有足够的认识,而现在主要的工作就是交换数字文件,因此使宏病毒得到迅速传播。第二,现在的查病毒、防病毒软件主要是针对可执行文件和磁盘引导区设计的,一般都假定数据文件中不会存在病毒,而人们相信查病毒软件的结论,从而使隐藏在数据文件中的病毒成为漏网之鱼。第三,Internet普及以及各种网络通信软件的大量应用使病毒的传播速度大大加快。

制作和变种方便。目前宏病毒原型已有很多,并在不断增加中。只要修改宏病毒中病毒激活条件和破解条件,就可以制造出一种新的宏病毒,甚至比原病毒的危害更加严重。

破坏性大。鉴于宏病毒用VBA 语言编写,VBA 语言提供了许多系统及底层调用,如直接使用DOS命令,调用Windows API,调用DDE和DDL等。这些操作均可能对系统构成直接威胁,而Office中的Word、Excel等软件在指令的安全性和完整性上的检测能力很弱,破坏系统的指令很容易被执行。

兼容性差。宏病毒在不同版本的Office中的Word、Excel中不能运行。

(3)宏病毒的预防。

当打开一个含有可能携带病毒的宏的文档时,系统将自动显示宏警告信息。这样就可选择打开文档时是否要包含宏,如果希望文档包含要用到的宏,打开文档时就包含宏。

如果您并不希望在文档中包含宏,或者不了解文档的确切来源。例如,文档是作为电子邮件的附件收到的,或是来自网络。在这种情况下,为了防止可能发生的病毒传染,打开文档过程中出现宏警告提示框时最好单击“取消宏”按钮,以取消该文档允许宏。

9.3习题

1.简述文档权限设置的操作步骤。

2.Word文档保护的编辑限制有几种?

3.Word及Excel中的文档保护功能分别有哪些?

4.PowerPoint中是否有文档保护功能?如何保护PowerPoint 文档?

5.简述VBA宏及宏病毒的概念。

6.在Office中怎么禁用和启用宏?

7.修改SpeakText 过程,使其能够朗读整个Word文档。

8.编写一个ConvertText 过程,将首字母小写的英文单词转换为首字母大写。

同类推荐
  • 领导干部信息化基础

    领导干部信息化基础

    本书共分6章,分别介绍了计算机网络综述;信息化的三个主要领域,即电子政务(政府信息化)、企业信息化和电子商务;PowerPoint 2000中文演示文稿等内容。
  • 办公软件高级应用

    办公软件高级应用

    日新月异的信息技术使计算机的应用渗透到各行各业,融入到我们的工作、学习和生活中,特别是在办公领域中运用计算机技术,可以实现办公自动化,成倍地提高工作效率。在众多的办公软件中,微软公司的Office系列软件是办公自动化软件中的佼佼者,其强大的功能深受全世界广大用户的青睐。根据当前业界的需求以及办公软件的实际应用范围,本书针对Office 2003系列产品,深入讲解其高级应用知识和操作技能。
  • 数据库原理及Oracle应用

    数据库原理及Oracle应用

    进入21世纪,随着国家信息化步伐的加快及各行业信息化进程的不断加速,社会对专业(非计算机专业)人才的信息技术能力要求越来越高。为了适应社会对专业人才的要求,全国各高校在重视专业知识培养的同时也非常注重计算机应用能力的训练,即信息技术能力的培养。计算机应用水平已成为衡量高校毕业生综合素质的突出标志之一。
  • 中国移动智能手机的秘密

    中国移动智能手机的秘密

    《中国移动智能手机的秘密》是一本关于移动终端和移动互联网的科普书。作者将这18年通信行业中的学习、思考、实践积累成《中国移动智能手机的秘密》与大家分享。书本系统总结了手机的发展历史、TD产业界“从2G向3G演进”的移动终端产业分化重组进程、智能手机的使用方法用方法和应用指南,以及对移动互联网发展独特思考。
  • 一本书读懂大数据

    一本书读懂大数据

    本书是深入研究互联网思维的经典之作,从互联网思维的定义到互联网思维应用的具体案例表现。作者深入浅出、条分缕析,全面阐述互联网思维的内核与精神,逐一点评当前关于互联网思维的各种观点。本书从最初级的互联网思维应用到高端的粉丝经济,平台建设,自媒体营销的方法都有详细讲解介绍。让读者了解什么是互联网思维的同时还能学会把互联网思维运用到自己的工作学习已经生活中。
热门推荐
  • 清穿之傲娇有理

    清穿之傲娇有理

    修真大陆,傲娇千金,携带灵宠麒麟欢欢,灵魂空间魂穿清朝,成为郭络罗·宜悠。无父?不怕!无母?也不怕!巴住老公胤禩,在清朝傲娇到底!
  • 网游之暗殇

    网游之暗殇

    丞相:嗯,下面整谁呢。。。是整这个,还是这个,还是这个呢。。。沦语:大叔,带我一个!暗殇:你俩别闹了!进副本了!残阳把十三一叫过来,辛仁别怕,没压力的!讪辛仁:悄悄地给你们点根蜡,谁都不告诉。。。阿门陀佛!善宰!善宰!喝!
  • 弱国崛起:我的名字叫印度

    弱国崛起:我的名字叫印度

    随着国家实力的不断增强,印度的经济实力、军事能力、外交活力乃至文化张力正不断扩大。如今的印度已是全球增长速度仅次于中国的庞大经济体。
  • 七域修真证品图

    七域修真证品图

    本书为公版书,为不受著作权法限制的作家、艺术家及其它人士发布的作品,供广大读者阅读交流。
  • BOSS霸临:强行相亲100分

    BOSS霸临:强行相亲100分

    吉家被害破产,渣男未婚夫立马另娶她人,吉欣灵更是被媒体逼入绝境。一场意外,她和找上了权倾天下的聂泽宇,更是传说中传承千年豪门——聂家。她绝望地问道“聂泽宇,我嫁给你,你敢娶我吗?”仿佛一道光,从万丈高空照射下来,让弱小无助的她成为耀眼的中心,因为她现在有个身份——聂夫人。——情节虚构,请勿模仿
  • 飞

    书名只用了一个字:飞。但仅只这一个字,却让人联想很多。想蓝天白云,想云中漫步,想自由,想风,想鸟儿,想浩瀚无垠的茫茫宇宙,想《鹊桥仙》里的“四海为家家万里”和李清照的“云中谁寄锦书来,雁字回时,月满西楼”。甚至会做了要飞的准备,摆出个飞翔的姿势。我们不是鸟儿,但我们有谁不想飞?有谁不愿飞?我们只是太沉重,太瞻前顾后、患得患失,所以飞不起来罢了。人原本应该是会飞的,我们的双臂其实在早先就是翅膀,只是因为懒惰,因为久久不飞,渐渐失去了飞翔的功能。然而又因为渐渐失去了飞翔的功能,我们才又开始渴望重新找回翅膀,渴望自由飞翔。
  • 死灵至尊

    死灵至尊

    龙族做为死灵大陆曾经的霸主,在无数年前的一场惊天动地的大战之中死伤殆尽!夜墨,做为龙族分族的一个族人,由于从小被送离龙族从而获得了一颗孤寂,冷漠的心…时隔无数年就在所有人都差不多忘记那场惊天大战的时候,就在这时百族的入侵战再次展开。龙族不复曾经辉煌,人类再无至强者,在这样一个时代夜墨能否击退死灵大陆的入侵者百族呢?新书需要关爱,道友推荐和收藏的都给我吧,您的支持就是我最大的动力!
  • 游戏高手在校园

    游戏高手在校园

    游戏竞技天王Deathwing在获得总冠军之后光荣退役,不是他不喜欢游戏了,而是他更想上大学,然而在大学中遇到了一个游戏类社团,他怦然心动的加入了,继续了他的游戏生涯。天王级的人物玩技术流网游,应该是很简单很简单的,但是作为游戏天王的他,并没有告诉周围的同学他的真实身份,当他以一位普通学生的身份来玩游戏时,会发生什么样的事情呢?敬请关注小生全心打造的这款技术流虚拟网游~!!!
  • 一万种减肥方法

    一万种减肥方法

    医学博士权威验证,最科学、最安全、最有效,翻开本书,发现最适合您的减肥方法!
  • 驱魔师

    驱魔师

    年轻的见习驱魔师高小乐,从小跟着师傅长大,当一件又一件离奇事件发生在他的身边时,高小乐从此踏上了一条驱魔之路,他游走天下,降妖鬼,驱邪魔,断生死,道天机,下阴曹,除阴煞,救人度命,消灾免祸......当传说中的妖魔鬼怪,真实的出现在世间,当人性出现纠葛,当善与恶难以分清......高小乐仗剑高歌:我不是什么救星,我只是这世间的一块补丁!