[VBA应用技巧.docVIP

1.自定义菜单删除 注:自定义菜单名一定起成文件名 Private Sub Workbook_BeforeClose(Cancel As Boolean)??? On Error Resume Next??? Application.CommandBars(ThisWorkbook.Name).DeleteEnd Sub 2.软件的保护 Excel单元格的保护 1．子程序prot Sub prot() 取消工作表保护,防止重复操作出错 ActiveSheet.Unprotect 解除表的锁定,防止重复操作出错 Cells.Locked = False 锁定区域并填充颜色 With Selection .Locked = True .Interior.ColorIndex = 15 End With 保护工作表 ActiveSheet.Protect DrawingObjects:=True, _ Contents:=True, Scenarios:=True End Sub 2．子程序unprot 作用：取消对工作表的保护，恢复工作表原状。 Sub unprot() 取消工作表保护 ActiveSheet.Unprotect 清除单元格颜色 Selection.Interior.ColorIndex = xlNone End Sub ? ? ? ? 禁用部分功能 下代码用来列出系统所有命令栏的名称： Dim i As Integer i = 1 For Each bar In Application.CommandBars Cells(i, 1).Value = bar.Name i = i + 1 Next 下面程序将禁用Excel中鼠标右键功能： Sub ForbidRight() CommandBars(AutoCalculate).Enabled = False “自动计算”右键快捷菜单 CommandBars(Toolbar List).Enabled = False 菜单栏右键快捷菜单 CommandBars(cell).Enabled = False 工作表单元格右键快捷菜单 CommandBars(ply).Enabled = False 工作表标签右键快捷菜单 CommandBars(Column).Enabled = False 列标右键快捷菜单 CommandBars(row).Enabled = False 行标右键快捷菜单 End Sub 下面程序将隐藏“标准”、“格式”工具栏，公式栏、状态栏，禁用工具栏“自定义”功能，取消网格线、滚动条、标签： Sub ForbidOthers() CommandBars(Standard).Visible = False “标准”工具栏 CommandBars(Formatting).Visible = False “格式”工具栏 Application.DisplayFormulaBar = False 公式栏 Application.DisplayStatusBar = False 状态栏 With ActiveWindow .DisplayGridlines = False 网格线 .DisplayHorizontalScrollBar = False 水平滚动条 .DisplayVerticalScrollBar = False 垂直滚动条 .DisplayWorkbookTabs = False 工作表标签 .DisplayHeadings = False 行标、列标 End With End Sub 若要恢复以上功能，只需改变这些属性的布尔值。 ? ?3.代码优化 我们学习了创建基于Office的VBA应用程序的各项技术，在开发和调试完应用程序后，还要对应用程序进行优化，并发行给用户。 VBA是非常灵活的编程语言，完成同样一个任务可以有多种方法。初学时或编写一次使用的程序，只须完成预定功能即可。但如果解决方案是频繁使用的，如完成周报表的应用程序，或每次打开文档都运行的代码，就需要优化代码，使运行时需要较少的时间和内存。 　　由于Microsoft Office办公套件的广泛应用，软件版本的不断提