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