工作表1、'隐藏SHEET1这张工作表sheets("sheet1").Visible=False2、'显示SHEET1这张工作表sheets("sheet1").Visible=True3、'同时选择工作表1和工作表2Worksheets(Array(“sheet1”,”sheet2”)).Select4、'删除工作表1 Sheets(“sheet1”).Delete或Sheets(1).Delete5、'将该表格保存到C:\test.xls 目录ExcelSheet.SaveAs "C:\TEST.XLS"6、'在第1工作表前添加新工作表Sheets.Add before:=Sheets(1)7、'在最后工作表后添加新工作表Sheets.Add after:=Sheets(Sheets.Count)8、'删除当前工作表ActiveWindow.SelectedSheets.Delete可以用以下语句删除当前工作表。

ActiveSheet.Delete9、保护工作表使其不至被修改。

Sheets(“工作表名”).Protect (Password)10、撤销工作表保护使其被修改。

Sheets(“工作表名”).Unprotect (Password)示例：Sheets(“sheet1”).Protect “123456”Sheets(“sheet1”).Unprotect “123456”11、添加工作表Sheets.Add12、当前工作表命名 = "www"13、选定下（上）一个工作表sheets(activesheet.index-1).select sheets(activesheet.index+1).select 14、'取消工作表标签ActiveWindow.DisplayWorkbookTabs = False15、'格式＿工作表不能重命名mandBars("Sheet").Controls(1).Enabled= False16、'取消工作表标签ActiveWindow.DisplayWorkbookTabs = False17、'右键菜单不能重命名mandBars.FindControl(ID:=889).Enabled = False18、'工作表加密Worksheets（″基础数据表″）.Protect Password:="1234"19、'深度隐藏工作表Sheet1.Visible = 220、'显示工作表Sheet1.Visible = -121、‘当前工作表中已使用的行数edRange.Rows.Count22、Rows.Count ‘获取工作表的行数(注：考虑向前兼容性)23、Sheets(Sheet1).Name= “Sum”'将Sheet1命名为Sum24、ThisWorkbook.Sheets.Add Before:=Worksheets(1) '添加一个新工作表在第一工作表前25、ActiveSheet.Move After:=ActiveWorkbook. _Sheets(ActiveWorkbook.Sheets.Count) '将当前工作表移至工作表的最后26、Sheets(“sheet1”).Delete或Sheets(1).Delete '删除工作表127、ActiveWorkbook.Sheets(i).Name '获取工作表i的名称28、'切换工作表中的网格线显示，这种方法也可以用在其它方面进行相互切换，即相当于开关按钮ActiveWindow.DisplayGridlines=Not ActiveWindow.DisplayGridlines 29、‘切换工作表中的行列边框显示ActiveWindow.DisplayHeadings=Not ActiveWindow.DisplayHeadings 30、edRange.FormatConditions.Delete ‘删除当前工作表中所有的条件格式31、'将页面设置更改为横向ActiveSheet.PageSetup.Orientation=xlLandscape或ActiveSheet.PageSetup.Orientation=232、‘在页面设置的表尾中输入文件路径ActiveSheet.PageSetup.RightFooter=ActiveWorkbook.FullName33 ‘将用户名放置在活动工作表的页脚ActiveSheet.PageSetup.LeftFooter=erName34、‘两个关键字排序，相邻两列，B列为主关键字，A列为次关键字，升序排列ActiveSheet.Range("A:B").Sort Key1:=Columns("B"), Key2:=Columns("A"), _ Header:=xlYes 35、'开启数据记录单ActiveS heet.ShowDataForm工作簿1、定制自己的状态栏Application.StatusBar = "现在时刻: " & Time2、恢复自己的状态栏Application.StatusBar = false3、关闭屏幕更新Application.ScreenUpdate=False4、'打开屏幕刷新Application.ScreenUpdating=True5、删除一个文件kill "c:\1.txt"6、'退出EXCEL Application.Quit7、‘将文本写到状态栏Application.StatusBar=”请等待……”8、‘更新状态栏文本，以变量Percent代表完成的百分比Application.StatusBar=”请等待……”& Percent & “% Completed”9、MkDir "D:\Music" 建立文件夹的方法10、打开文件夹的方法ActiveWorkbook.FollowHyperlink Address:="D:\Music", NewWindow:=True11、'以本工作表名称另存文件到当前目录ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & & ".xls"12、新建Workbooks.Add打开Workbooks.Open "路径\" & "文件名 .xls"13、关闭同时保存Workbooks("filename.xls").Close savechanges:=True14、.关闭同时不保存Workbooks("filename.xls").Close savechanges:=False15、.Excel程序的关闭Application.Quit16、关闭Excel的警告提示。

Application.DisplayAlerts = False17、' 全屏显示Application.DisplayFullScreen = True18、不保存直接关闭当前的工作簿Workbooks("BOOK1.XLS").Close SaveChanges:=False19、不保存直接关闭EXCEL窗口(关闭所有的工作簿)的VBA语句Application.DisplayAlerts=False Application.Quit20、'保护工作簿ActiveSheet.Protect21、'取消保护工作簿ActiveSheet.Unprotect22、'给当前工作簿改名为"liu" = "liu"23、'增加一个工作簿Worksheets.Add24、'删除当前工作簿activesheet.delete25、'打开一个文件Workbooks.Open FileName:="C:\My Documents\Book2.xls"26、'关闭当前工作簿ActiveWindow.Close27、‘返回工作簿代码的名称ActiveWorkbook.CodeNameThisWorkbook.CodeName28、‘返回当前工作簿的路径(注:若未保存,则为空) ThisWorkbook.Path ActiveWorkbook.Path29、‘将状态栏重新设置成正常状态Application.StatusBar=False30、‘返回活动工作表的名称31、‘返回活动窗口的标题Application.ActiveWindow.Caption32、‘返回活动工作簿的名称33、去掉XLS文件头上菜单栏的“MIcrosoft EXCEL ”字样Application.Caption = "专用表格"34、设置15 秒后运行my_Procedure 过程，从现在开始计时。

Application.OnTime Now + TimeValue("00:00:15"), "my_Procedure"35、设定my_Procedure 这个宏在下午5 点开始执行。

Application.OnTime TimeValue("17:00:00"), "my_Procedure"36、以某一单元格中的值为文件名保存ActiveWorkbook.SaveCopyAs Str(Range("Sheet1!A1")) + ".xls"37、ThisWorkbook.Save '保存工作簿38、ActiveWorkbook.Sheets.Count '获取活动工作薄中工作表数39、 '返回活动工作薄的名称40、 ‘返回当前工作簿名称ThisWorkbook.FullName ‘返回当前工作簿路径和名称41、ActiveWindow.EnableResize=False ‘禁止调整活动工作簿的大小42、Application.Wind ow.Arrange xlArrangeStyleTiled ‘将工作簿以平铺方式排列43、ActiveWorkbook.WindowState=xlMaximized ‘将当前工作簿最大化44、‘返回当前工作簿的名称Dim fs, d, sSet fs = CreateObject("Scripting.FileSystemObject")Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(ThisWorkbook.P ath)))s = d.serialnumber '磁盘序列号If s = 要使用的电脑磁盘序列号Then Exit SubDim FirstDate, de, daysFirstDate = Datede = GetSetting("XXX", "YYY", "date", "") '从注册表取值If de = "" Then '如果取不到值SaveSetting "XXX", "YYY", "date", FirstDate '把日期保存到注册表MsgBox "本文件可使用120天，今天是第1次使用", , "提示"Elsedays = Date - CDate(de) '计算文件使用的天数If days > 120 Then '如果文件使用超过60天MsgBox "已超过使用期限，本文件将自杀", , "警告"ThisWorkbook.ChangeFileAccess xlReadOnly '改为只读属性Kill ThisWorkbook.FullName '自杀ThisWorkbook.Close False '关闭不保存End IfMsgBox "本文件已使用" & days & "天，还有" & 120 - days & "天可使用", , "提示"End If。