制作成绩统计系统步骤：
一、制作各种工作表，算出相应成绩。
二、制作主工作表，设置各种链接：
添加链接模块：在主工作表相应位置插入图形，设置好图形属性后，可根据需要多复制几个，并在每个图形上面输入想要的文字。
然后右键插入的图形—指定宏—新建，在弹出的（Sub 自选图形1_Click 或单击() End Sub）sub和End Sub之间的第一行上输入上Sheet1.Visible = True'显示工作表sheet1第二行输入上Sheet1.Select '打开工作表sheet1 （英文输入法单引号后的蓝色字是解释语句含义）。
对所有的图形都做相应的操作，这样链接就作好了。
三、设置主工作表显示，其余工作表都隐藏：
1、开启工作簿工具—宏—安全性—打开所有宏
2、把工具—选项—安全性—个人信息选项下面的那个钩
去掉。
3、设置主工作表显示，其余工作表隐藏：
（1）主工作表不作任何设置，打开工作簿时主工作表就是显示的，假设第一个工作表sheet1是主工作表。
（2）按alt+F11组合键打开宏编辑器，双击工作表之一如sheet2，在跳出的窗口中点击“通用”后面的小倒三角，点击
“Worksheet”，接着点“SelectionChange”，后面的小倒三角，点击“Deactivate”后，在跳出的窗口中第一行输入
Sheet1.Select ＇打开主工作表后（单引号后是注释）。
第二行
输入Sheet2.Visible = False＇第二个工作表就隐藏。
（3）按照步骤（2）对主工作表之外的需要隐藏的所有工作都作相同的处理。
四、对工作簿做相应的保密处理：
1、设置工作表保护与取消保护的快捷键
（1）打开工作簿，按alt+F11打开宏编辑器，点插入—模块，在代码窗口中粘贴下列代码：
Sub ProtectOrUnprotect()
On Error GoTo l_end
If ActiveSheet.ProtectContents Then
ActiveSheet.Unprotect Password:="196301"
Else
ActiveSheet.Protect Password:="196301"
End If
l_end:
End Sub
（2）返回工作表界面，按Alt+F8，打开“宏”对话框，选择“ProtectOrUnprotect”宏，单击“选项”按钮，为该宏指定一个快捷键，如输入字母“e”，则快捷键“Ctrl+E”则为执行该宏命令的快捷键，如图。
2、设置禁用工作表标签右键
按ALT+f11打开宏编译窗口，双击工作表最下面的ThisWorkbook,在弹出的窗口中输入
Private Sub Workbook_Open()
mandBars("Ply").Enabled = False
End Sub
2、设置隐藏工作表编辑栏
按ALT+f11打开宏编译窗口，双击工作表最下面的ThisWorkbook,在弹出的窗口中输入
Private Sub Workbook_Open()
Application.DisplayFormulaBar = False '隐藏编辑栏
End Sub
同时禁用标签右键和隐藏编辑栏，上两行命令可合并后输入
Private Sub Workbook_Open()
mandBars("Ply").Enabled = False '禁止工作表标签右键
Application.DisplayFormulaBar = False '隐藏编辑栏End Sub
3、设置禁止插入工作表：
按ALT+f11打开宏编译窗口，双击工作表最下面的ThisWorkbook,在弹出的窗口中输入
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Application.DisplayAlerts = False '禁止插入工作表
Sh.Delete
Application.DisplayAlerts = True
End Sub
同时设置禁止插入工作表、禁用标签右键、禁止编辑栏，可合并输入下列代码：
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Application.DisplayAlerts = False '禁止插入工作表
Sh.Delete
Application.DisplayAlerts = True
End Sub
Private Sub Workbook_Open()
mandBars("Ply").Enabled = False '禁止工作表标签右键
Application.DisplayFormulaBar = False '隐藏编辑栏End Sub
设置菜单栏工具选项为灰色
mandBars(1).Controls("工具(&T)").Controls("选项(&O)...").Enabled = False '工具-选项变灰色
四、设置菜单栏工具选项为灰色：
按ALT+f11打开宏编译窗口，双击工作表最下面的ThisWorkbook,在弹出的窗口中输入
Private Sub Workbook_Open()
mandBars(1).Controls("工具(&T)").Controls("选项(&O)...").Enabled = False '工具-选项变灰色
End Sub
如果同时设置上述四项的话，可综合设置为：
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Application.DisplayAlerts = False '禁止插入工作表
Sh.Delete
Application.DisplayAlerts = True
End Sub
Private Sub Workbook_Open()
mandBars("Ply").Enabled = False '禁止工作表标签右键
Application.DisplayFormulaBar = False '隐藏编辑栏Application.AutoRecover.Enabled = False 'excel2007隐藏菜单栏
Application.ExecuteExcel4Macro
"SHOW.TOOLBAR(""Ribbon"",False)"
mandBars(1).Controls("工具(&T)").Controls("选项(&O)...").Enabled = False 'excel2003工具-选项变灰色End Sub
相应解药：打开VBA窗口，双击总表事件，在右边窗口中输入下列代码，即可解除限制。
Private Sub Workbook_Open()
mandBars("Ply").Enabled = True '解除禁止工作表标签右键
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFormulaBar = True '重新显示编辑栏
mandBars(1).Controls("工具(&T)").Controls("选项(&O)...").Enabled = True '解除工具-选项变灰
色
End Sub
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Application.DisplayAlerts = True '解除禁止插入工作表End Sub。