用ECEL制作模擬考試系統(tǒng)

1.建立題庫

打開Excel2010,建立“模擬考試系統(tǒng)-出題測試版”。打開此工作簿，建立“單選題”工作表

（如圖1）,在A2輸入公式=心1（）T&"."以自動生成序號，在D2輸入=IF（C2=",",RAND0）,選中A2:D2

拖動向下填充幾百行。按住Ctrl鍵單擊“單選題”工作表標簽拖動復制出兩份，分別重命名為“多

選題”（如圖2）、“判斷題”（如圖3）,分別輸入題目和答案，按Alt+回車鍵換行。請注意以下

提不：

1、以上3個工作表，在B列輸入單選題題目（樣式隨意，但一道題只能占一個單元格），在C

列輸入對應考題的答案，答案輸入時注意不要有多余字符。

2、“多選題”工作表的答案必須按ABCD的順序填寫，例如答案ABD,不能寫ADB、BAD、BDA、

DAB、DBA,答錯、少答和多答均不得分；“判斷題”工作表的答案只能有兩種，本題按“正確”和“錯

誤”作為答案，其他形式如“對”和“錯”、"J”和“X”也可以。

3、題庫中題目數(shù)量根據(jù)實際情況而定，多多益善。本例中題庫數(shù)目為單選題60道、多選題50

道、判斷題45道。

A2飛=ROW()-1&".”|

9口向模板專區(qū)S模擬考試聚統(tǒng)-出塞測試版.xlsmX+

ABCD

序號題目答案隨機數(shù)

1

,1行車中發(fā)現(xiàn)其他車輛陷入損壞路段而不能行駛時，應。

A.盡快離開

B.盡力幫助B0.730431

C.改道行駛

"繞行通過

’車輛在擁擠路段低速行駛時，遇其他車輔強行“加塞”，

□應。

A.嗚喇叭警告，不得進入

2.C0.168955

B.加速行駛，緊跟前車，不讓其進入

C.主動禮讓，確保行車安全

3D.擠靠“加塞”車輛，逼其離開

行車中發(fā)現(xiàn)有需要援助的車輛時，應。

A.減速停車，給對方以幫助

3.B.加速通過A0.181381

C.不予理睬

4D.找理由拒絕

自動擋汽車起動發(fā)動機時，應將變速器操縱桿放在位置

A.D擋

4.B0.927821

B.P擋

C.N擋

5D.任意擋

M<>”試卷單選題圍選題判斷題考生名單成績記錄-J

圖1

D2&||=IF(C2=""「"，RAND6yl

D向模板專區(qū)豳模擬考試系統(tǒng)一出題測試版.xlsmX4-

ABCDE

序號題目答案隨機數(shù)

超車過程中，被超車輛突然加速怎么辦？

A、加速迅速超越

1.B、變換遠近光燈超越C258169

C、減速放棄超車

D、持續(xù)嗚喇叭超越

在道路上怎樣安全跟車行駛？

A、注意炮察前車動態(tài)

|ABD|

2.B、隨時做好減速準備0.167579

C、盡量靠路左側行駛

D、保持安全距離

駕駛機動車通過學校時要注意什么？

A、觀察標志標線

3.B、減速慢行ABC0.545348

C、不要嗚喇叭

D、快速通過

下列做法哪些可以有效避免駕駛疲勞？

A、連續(xù)駕駛不超過4小時

4.B、用餐不宜過飽ABCD0.672029

C、保持良好的睡眠

D、餐后適當休息后駕車

駕乘人員下車時要怎樣做以保證安全？

A、停車后立即開門下車

5.B、觀察而沒通情況1D0.640945

>"試卷單選亂急速蠹隹”斷題考生名單成績記錄七1

圖2

D2芥|=IF(C2="","",RAND())

Pl向模板專區(qū)EQ博以考試--出置測試版,xkmX4-

ABC|D

序化題目□答案隨機數(shù)1

在道路上超車時，應盡量加大橫向距

1.錯誤

12-離，必要時可越實線超車。0.057279

無論自動擋還是手動擋汽車，都必須

正確

用右腳踩踏制動踏板。0.517632

女駕駛人穿高跟鞋駕駛車輛，不利于

3.正確

安全行車。0.154655

駕駛人頻繁變更車道不屬于駕駛陋習

4.錯誤

O0.828622

山區(qū)行車，對方車輛主動讓行時，可

5.正確

低聲短促嗚號以示感謝。0.949635

自動擋汽車變速器操縱桿在P擋以外的

6.正確

位置不能拔下鑰匙。0.891669

夜間行車時，全車燈光突然熄滅，應當

7.錯誤

緊急制動，迅速停車。0.175636

駕駛人一邊駕車，一邊打手持電話是

8.正確

違法行為。0.830613

行車中遇到障礙時，盡量提高車速，

9?錯誤

迅速超越。0.795544

行車中，遇其他駕駛人要求幫助時，

10.正確

可答應請求，熱情相助。0.206337

在泥濘路上制動時，車輪易發(fā)生側滑或甩

11.正確

屋，導致交通事故。0.545621

漫水道路行車時，應掛高速檔，快速通

12.錯誤

1寸0_IIn.

??'試卷單選題多選題判斷題J二績記錄七1

圖3

2.建立考生名單

新建“考生名單”工作表，在A、B、C列分別輸入序號、準考證號、考生姓名，選中B列在名稱

框中輸入“考號”，回車確定把B列命名為考號（如圖4）。完成后可在名稱管理器內(nèi)看到名字為“考

號"'的名稱，引用位置為“考生名單”工作表的B歹!

八I準考證號

Pl0模扳專區(qū)座|模擬考試系統(tǒng)H蹦試版.xkmX+

ABCDEFGHI

姓

序號準考證號

胖

王

12018001

頭

青

22018002

一

五

32018003

示

圖

42018004

二

干

52018005

石

玉玉

存

62018006

大

全

72018007

三

洋

8

股

2018008場

市

9西

2018009木

10丁

2018010宮

格

11

2018011草

12頭

2018012尤

奇奇

13匡

2018013模

14具

2018014尚

志

15不

2018015皮

虎

162018016日

早

172018017兩

書

18于

2018018義

崇

19寇

2018019川

玉

202018020紫

根

喜

212018021田

佳

222018022框

四

芳

232018023車

里

242018024尚

有B

，

一警！

圖4

3.設計試卷

建立“試卷”工作表，按需要設置試卷，序號生成方式如題庫序號。單選題30題（A5:C34）,多

選題40（A36:C75）,判斷題30題（A77:C106）。在B4輸入“單選題（每題1分）”，在B35輸入“多

選題（每題1分，錯、漏、多選均不得分）”，在B76輸入”判斷題（每題1分）”。

用“自選圖形/基本形狀”中的棱臺畫一個按鈕，選中在名稱框中輸入“出題按鈕”4字回車，

把它命名為“出題按鈕”。再右擊此按鈕選擇“添加文字”，在按鈕上輸入“出題”2字。同樣再畫

一個按鈕，把它命名為“評分按鈕”，添加文字“評分”。（如圖5）

B齡模板專區(qū)Q模擬考試僦-出望測試lExkmX+

BCDEF

ft

11XX模擬考試系統(tǒng)

21準考證號：2018036耐用

3答案得分

4—、單選題(每題1分)

超車時，前方車輛不讓出超車空間，應。A.迅速超越B.停止超

1.B0

5車C.連續(xù)嗚喇叭超越D.開啟前照燈超越

行車中遇交通事故受傷者需要搶救時，應。A,及時將傷者送醫(yī)

2.院搶救或撥打急救電話B.盡量避開，少惹麻煩C.繞過現(xiàn)場行駛D.借A0

6故避開現(xiàn)場

換擋時。A.不得低頭下視B.慢推、慢拉C.注意看擋位D.猛推、

3.A0

7猛拉

自動擋汽車起動發(fā)動機時，應將變速器操縱桿放在位置。

A.D擋

4.B.P擋B0

C.N擋

8D.任意擋

車輛行駛過程中，駕駛人應當把廢紙或廢棄物扔到。A.車窗外

5.街道上B.隨車攜帶的垃圾箱(袋)里C.無人看管的道路上D.車內(nèi)座B0

9位下或車廂內(nèi)

行車中發(fā)現(xiàn)其他車輛陷入損壞路段而不能行駛時，應。

A.盡快離開

6.B.盡力幫助B0

C.改道行駛

10D.繞行通過

章慎駕駛的三條黃金原則：集中注意力、仔細觀察和。A.膽大

M4?T”試卷便詵題多選題判斷題考生名單成績記錄Eb______

圖5

4.顯示題目(如圖6)

在B5輸入公式INDIRECT("單選題！R"&R0W()-3&"C"&C0LUMN(),0),復制到B5:C34(可拖動A5

填充)。

在B36輸入公式=1加11^：01'("多選題！K&1?03()-34&"。'&(1)1.5盥()，0)并復制到B36:C75.

在B77輸入公式=1曲11祖01'("判斷題!1廠&1?)鞏)-75&"(：”&。)11!卜祖()，0)并復制到B77:C106.

在E5單元格輸入公式=IF(D5="",0,ll'(D5=C5,$G$2,0)),向下填充到E34,這公式用來判斷如果

D5中的答案與C4的標準答案一致就得1分否則為0分，其中G2單元格內(nèi)數(shù)值為1。同理，在E36單

元格輸入公式=IF(D36=",0,IF(D36=C36,$H$2,0)),向下填充到E75；在E77單元格輸入公式

=IF(D77=",0,IF(D77=C77,$I$2,0)),向下填充到E106?？赏ㄟ^更改G2、H2、12單元格的數(shù)值來更

改分值。

B5的公式表示對單選題工作表中同列、行數(shù)差3的單元格(B2)的引用，公式中使用了R1C1格式

的單元格編號，其中3、34、75是由三種題型的第一題所在的行號減2得來。這公式實現(xiàn)的是絕對位

置引用，即不管在單選題工作表中進行插入、刪除行或排序，B5顯示的始終都是你從單選題B2中直

接看到的內(nèi)容。因此B5:C34、B36:C75、B77:C106三個區(qū)域將分別與相應題庫中最前面的30(或40)

題的內(nèi)容保持一致。

E112

3I③IS模擬考試系統(tǒng)幽版.xkmX+

XX模擬考試系統(tǒng)

1出照評分

準考證號：2018036

3答案得分

4一、單選題（歸題1分）

5=ROf()-44*.*=INDIRECT("單選題!R-R0VO-3TC'a8LinfflO,0)INDIRECT('里選HHR'&RONO-3A'C'a8L3WO,0)=IF(D5=*\0,IF(D5=C5廝》)))

34=ROf（）-44-.*=IHD1RECT（'里選題！R"R0?（）-3atP'&8LinraO.0）=1加1黑01（'組選題用'穌0?。-34七”8切3（），0）=IF(D34=*\0,IF(D34?C34,$G$2,0))

35二、多詵雄（每顆1分，鋸、漏、多選均不得分）

|36=ROf()-35**.*=INDIREG('多選題！R*4R0*O-34VC"&C0LUINO,0)=IMDIRECT(*^-^aiR*4R0f()-344*C*4C0LUIH(),0)=IF(D36=*\0,IF(D36=C36,^H$^0))

75=ROfO-35A*.*INDIRECT('多選題!R.&R0VO-34<'C'&C0LUIliO,0)=IHDIRECT(*^i^aiR，4R0fO-Stt^tCOLUWO,0)=1?(075=*\0,IF(D75=C75,$H$2,0))

76

[77=R0?O-76*,「㈱呼％C,°…8…。)|=IF(D77=*\0,IF(D77=C77,^nj0))

1《"判斷題!七々小^(),)("劉耕了》

106=ROf0-764^.=IHDIRECTR“ROV0-754?0INDIRECT!RZR3()-75a"C'&8LUMN0,0=IF(D106=",0,IF(D106=C106,$I$2,0))

1A7

圖6

5.答案限制

選中單選題答題區(qū)D5:D34單擊“數(shù)據(jù)/有效性"（快捷鍵ALT+D-L）,在“允許”中選擇“序

列”，選中“提供下拉箭頭”復選項，在“來源”中輸入“A,B,C,D"，不含引號且其中逗號為半角

格式（如圖7）。切換到“出錯警告”選項卡，輸入錯誤信息為“只能輸入A、B、C、D中的一項，其

他任何符號或空格均為非法?！?，選中“輸入無效數(shù)據(jù)時顯示警告”復選項，選擇樣式為“停止”（如

圖8）,確定完成設置。

圖7

且差葭SEI

圖8

同樣對多選題答題區(qū)D36:D75,判斷題答題區(qū)D77:D106設置數(shù)據(jù)有效性，只是“來源”要分別

換成ak,B,C,D,B,AC,AD,BC,BD,CD,ABC,ACD,BCD,ABCDB和“正確，錯誤”。多選題的''出錯警告"

一定要改成“必須按ABCD的順序輸入多選項，否則無法正確評分”。（如圖9到如圖11）

數(shù)據(jù)有效性[t

圖9

數(shù)據(jù)有效性

圖10

數(shù)據(jù)有效性[gIMBM

圖11

6.準考證號驗證

選中“試卷”工作表中要輸入準考證號的D2單元格，單擊“數(shù)據(jù)/有效性”，在“允許”中選

擇“系列”，取消“提供下拉箭頭”復選項，在“來源”中輸入INDIRECT（"考號"）（如圖12）。切

換到“出錯警告”選項卡，輸入錯誤信息為“你輸入的準考證號并不存在，請重新輸入”，選中“輸

入無效數(shù)據(jù)時顯示警告”，并設置樣式為“停止”（如圖13）。

百用葭iEM

圖12

圖13

在F2單元格輸入公式=IF（D2=",",VL00KUP（D2,考生名單！2,FALSE））,在D2單元格輸

入準考證號后會自動顯示考生姓名。（如圖14）

F2&T=IF(D2="",VL00KUP(D2,考生名單！$B:$C,2,FALSE))

3口面模扳專區(qū)S蒯考試"-出題測試版.xlsmX+

ABC

XX模擬考試系統(tǒng)

1出題評分

□J準考證號：20180361?百暇.

3_答案物區(qū)得分

4單選題（每題1分）

圖14

7.隨機抽題

右擊“出題”按鈕，選擇“指定宏”，在彈出窗口中，輸入宏名為“出題”，位置選擇當前工作

簿，單擊“新建”按鈕，復制如下代碼粘貼到框內(nèi)，結果如圖15,保存時將文件另存為啟用宏的.xlsm

格式。

Sub出題（）

IfRangeCD2").Value=0Then

提示=MsgBox（"請先輸入準考證號〃）

GoTo重來

EndIf

'如果D2為空則彈出提示要求輸入準考證號并直接跳到后面的"重來:"處。

Sheets("單選題").Range("A:D").SortKey1:二Sheets("單選題").Range(〃D2”),

Orderl:=xlAscending,Header:=xlGuess

Sheets("多選題").Range("A:D").SortKeyl:=Sheets("多選題〃).Range("D2"),

Orderl:=xlAscending,Header:=xlGuess

Sheets("判斷題").Range("A:D").SortKey1:二Sheets("判斷題").Range(〃D2”),

Orderl:=xlAscending,Header:=xlGuess

’這三行分別是對單選、多選和判斷題工作表的A:D區(qū)域按D列隨機數(shù)升序排序。

Columns("B:B").Rows.AutoFit

'對B列設置最適合行高，以完整顯示題目。

Range("D5").Select

’定位到D5以便輸入答案

ActiveSheet.Shapes("出題按鈕").Visible=False

'隱藏出題按鈕以防重復選題

ActiveSheet.Shapes（"評分按鈕"）.Visible=True

'顯示評分按鈕

重來:

EndSub

模擬考試案婉音題測試艇xkm-模塊1（代碼）-恒叵I

三眄

Sub出題0

IfRange（"D2"）Value=0Then

提示=M,gBox「請先輸入）隹考證號"）

GoTo重來

EndIf

1如果D2為頡I］彈出提示要求輸入準有證號并直接跳到后面的"重來"處。

Sheets（"單迭題"）.Range（"A：D"）.SortKeyl：=Sheets（"單送題"）.Range（"D2"）,Orderl：=xlAscending.Header：=xlGuess

Shuts（"多迭題"）.Rang。（*A：D*）.SortKoyl：=Sh??ts（"多迭題"）,Rong。（"D2"）,Ordorl：=xlAxc?ndin&H?ad?r:=xlGu?ss

SheetsC*判醺題"）.Range（"A:D"）.SortKeyl：=Sheets，判取題"）.RangeCD2"）,Orderl：=xlAscending.Header：=xlGuess

’這三行分另娓對單選、多選和判斷題工作表的A：D區(qū)域按D列隨機數(shù)升序排序。

ColumnsKovs.AutoFit

'對B列設置最適合行高，以完整顯示題目。

Range（"D5"）Select

’定位到為以便輸入晉案

ActiveSheet.Shapes（"出題按扭"）.Visible=False

'隱藏出題技招以防重復選題

ActiveSheet.ShapesC'評分Visible=True

'顯示評分按鈕

EndSub

擊n

圖15

試卷中的題目總是顯示各題庫最前面的N題，而在此對各題庫按隨機數(shù)進行隨機排序后最前面的

N題自然是隨機的，也就相當于是隨機抽題了。

8.成績記錄表

新建“成績記錄”工作表（如圖16）,在A2輸入公式=麗%）,并選中A列右擊從“設置單元格

格式”中設置為日期格式以顯示當前時間。在B2輸入公式=試卷!D2和C2輸入公式=試卷!F2以顯示

相應數(shù)據(jù)。D2輸入公式=$1初任2:62）對后面三個得分進行合計，E2、F2、G2則分別輸入公式=5皿（試

卷!E5:E34）、=SUM（試卷!E36:E75）、=SUM（試卷!E77:E106）分別對相應題型得分進行合計。

*BCDE：FG

1日期時間考生編號考生姓名總分單選題得分多選題得分判斷題得分

2=N0W（）=試卷!D2=試卷!F2=SUM（E2:G2）=SUH（試卷!E5:E34）=SUI（試卷！E36:E75）=SUH（試卷!E77:E106）

圖16

9.評分和記錄保存

右擊“評分”按鈕，選擇“指定宏”，輸入宏名“評分”，位置選擇當前工作簿，單擊“新建”

按鈕，復制如下代碼粘貼到框內(nèi)，結果如圖17:

Sub評分（）

Sheets（"成績記錄"）.Rows（"3:3"）.InsertShift:=xlDown

'在成績記錄工作表第3行前插入一行

Sheets（"成績記錄"）.Rows（"2:2"）.Copy

'復制成績記錄工作表第2行

Sheets（"成績記錄"）.Range（"A3"）.PasteSpecialPaste:=xlPasteValues

'以數(shù)值方式粘貼到成績記錄工作表A3

得分=MsgBox（"最終得分〃&Range（"成績記錄!D2〃）.Value&"其中：單選題〃&RangeC

成績記錄!E2"）.Value&〃、多選題〃&Range（〃成績記錄!F2〃）.Value&〃、判斷題〃&Range（〃成績

記錄!G2〃).Value,,〃評分結果〃)

'彈出信息框顯示成績記錄!D2、E2、F2、G2的數(shù)據(jù)，標題為〃評分結果〃

Range("D2,D5:D34,D36:D75,D77:D106").ClearContents

'清除試卷工作表中輸入的內(nèi)容

Sheets(〃試卷“).Rows("3:500").RowHeight=0

Sheets("成績記錄").Rows("2:2").RowHeight=0

’設置題目區(qū)行高為0,以隱臧所有題目

ActiveSheet.Shapes("出題按鈕").Visible=True

ActiveSheet.Shapes("評分按鈕").Visible=False

’顯示出題按鈕,隱藏評分按鈕

ActiveWorkbook.Save

'保存

EndSub

用模擬考試芟統(tǒng)-出塞測試版.xlsm-模塊2（代網(wǎng)

三］儲芬

Sub評分。

Sheetx費記錄”）.Rows（w3：3"）.InsertShi￡t:=xlDown

'在成績記錄工作表第3行前插入一行

Sheets（"成績記錄"）Rows（"2:2"）.Copy

’復制成績記錄工作表第衿

Sheets（"藤費記錄"）.RangeCA3"）.PasteSpecialPaste：=xlPasteValues

’以數(shù)值方式粘貼到成績記錄工作表*3

得分=MzcBox（"最終得分"&Rw（"成箍記錄ID2"）VJue&-其中:單選題”&Rsg「成績記錄壟2）VUue&?、多選題"&Rw（"成箍記錄IF2"）Value6

,彈出信息隹邕示成績記錄!躥、E2、F2、G2的數(shù)據(jù)，標題為"評分結果"

Range（"D2,D5：D34,D36：D75,D77:D106w）.ClearContents

‘清除試卷工作表中輸入的內(nèi)容

Shoots（"試卷"）,Rows（"3:500"）.RovHc<ht=0

Sheets（"感貴記錄"）.Rows（"2:2"）.RowHeight=0

’設置題目區(qū)行高為0,以隱藏所有髭目

ActivoShoot.Shep"（"出題按鈕"）.Vixibl.=Tru?

ActiveSheet.Shapes（"評分按扭"）.Visible=False

’顯示出題按鈕,隱藏評分按鈕

ActiveVorkbook.Save

.保存

EndSub

圖17

10.其他設置

選中A4單擊“窗口/凍結空格”以始終顯示1:3行的標題和按鈕。右擊C、E列選擇隱藏。為答

題區(qū)以外單元格設置填充色以示區(qū)別，把評分按鈕重疊到出題按鈕上（如圖18）o

L?U

QD（a）模板專區(qū)O模擬考試系統(tǒng)-出題測試版.xlsmx+

B口D必F

1XX模擬考試系統(tǒng)

2準考證號：|2舛吧。9|股市場

3__________答題區(qū)_______

4、單選題（每題1分）

|

駕駛人城區(qū)內(nèi)清洗車輛時，應當在清洗。A,車輛清洗點B.道路刁

1.

5上隨意C.河邊D.水庫邊

自動擋汽車的“P”擋在時使用。A.陡坡行駛B.駐車C.正常行

2.

6駛D.路口停車

當駕駛車輛行經(jīng)兩側有行人且有積水的路面時，應。A.加速通

3.

7過B.正常行駛C.減速慢行D.連續(xù)嗚喇叭

自動擋汽車起動發(fā)動機時，應將變速器操縱桿放在位置。

A.D擋

4.B.P擋

C.N擋

8D.任意擋

駕駛機動車時，轉向盤。A.雙手可以臨時離開B.可以隨意操作

5.

9C.嚴禁雙手同時離開D.可以原地轉動

駕駛車輛正常行駛時，對道路情況的處理要有預見性，在接近障礙

6.時能。A.緊急制動能停車B.急轉向迅速繞過C.迅速躲避不發(fā)生

10碰撞D.平穩(wěn)停車

超車時，前方車輛不讓出超車空間，應。A.迅速超越B.停止超

7.

11車C.連續(xù)嗚喇叭超越D.開啟前照燈超越

自動擋汽車的“2”擋在時使用。A.緩坡行駛B.停車C.正常行

8.

12駛D.超車

埠駛車輛在道路上行駛時，駕駛人要按照控制車速，在規(guī)定的

?試卷.臉題多選題判斷題考生名單成績記錄,：J

圖18

選中D5:D34右擊選擇“設置單元格格式”，在“保護”選項卡中單擊取消“鎖定”選項，對于

同樣需要添寫的D2,D36:D75,D77:D106區(qū)也同樣取消鎖定設置（如圖19）。然后單擊“工具/保護/

保護工作表”，在中間“允許此工作表所有用戶進行”列表中只選中“選定未鎖定單元格”和“設置

行格式”兩個選項，輸入密碼（如圖20）,單擊確定把工作表保護起來，這樣考生就無法修改試題等

相應單元格了.單擊評分以隱藏所有題目，同時顯示出題按鈕，把文件另存為“模擬考試系統(tǒng)-考生

測試版.xlsm”,退出。

如圖19

耕工作

7保護工作表及鎖定的單元格內(nèi)容位）

取消工作表保護時使用的密碼電）:

F

允許此工作表的所有用戶進行?）：

詵市淡空單元格2018009股市場

IIE1I選定未鎖定的單元格

誓

牛

RS兀答題區(qū)

H

5格

.式

格

!JffiA9U

」插入行

口插入超鏈接

刪除列

■刪除行

確定取消

如圖20

系統(tǒng)維護

1.隱藏工作表

選中除“試卷”工作表除外的其他工作表，右擊選擇隱娥，以免考生看到。（如圖21）

3MA①一

刪除⑼

重會名?

移動或復制

查看代瑪M

,工筋⑻…

工隹ISSgIfeCD?

4.右擊顯示g回

取消建§（W“.

1.單擊2.按住shift3.單擊選定全部工作表⑤

,肖組合工作表（U）

■試卷I多選題判斷題考生名單

圖21

2.保護VBA代碼

右擊“試卷”工作表，選擇“查看代碼”，選中VBAProject（模擬考試系統(tǒng)-考生測試版.xlsm）,

右擊，選擇“VBAProject屬性”，在“保護”選項卡中選中“查看時鎖定工程”，并輸入密碼（如圖

22）,確定，保存文檔后退出。關閉文檔后再重新打開，查看代碼需輸入密碼，這樣任何人沒有密碼

就別想修改這些代碼了。

：文件（B編輯目視圖便）插入①般t（Q）調(diào)試⑼運行?TMCD外接程序??D（W）

國「U--J」丹>ua吆檄雪亨6

工程-VBAProject