文件定时自杀：PrivateSubWorkbook_Open()IfNow()>=#5/20/2010#ThenActiveWorkbook.ChangeFileAccessxlReadOnlyKillActiveWorkbook.FullNameApplication.QuitEndIfEndSub限制使用次数：PrivateSubWorkbook_Open()AAA=GetSetting(appname:="MyApp",section:="Atartup",key:="试用次数",Default:=1)MsgBox"你还可以使用的次数为："&(5-AAA)&"次，请珍惜！"IfAAA=20ThenDeleteStting"MyApp","Atartup"MsgBox"文件将被删除，感谢您的使用，谢谢！"ActiveWorkbook.ChangeFileAccessxlReadOnlyKillActiceWorkbook.FullNameThisWorkbook.CloseFalseEndIfAAA=AAA+1SaveSetting"MYaPP","Startup","使用次数",AAAEndSub限制在自己的电脑上使用：PrivateSubWorkbook_Open()Application.ScreenUpdating=FalseOnErrorGoTo100Workbooks.OpenThisWorkbook.Path&"/验证.xls"ExitSub100:MsgBox"你无法使用该文件"ThisWorkbook.CloseFalseApplication.ScreenUpdating=TrueEndSub当文件无法正常打开时，怎么办？可在该文件的同目录下创建一个Excel文件并添加一个模块，在模块中添加如下程序并运行：Sub破解()Application.enableevents=falseWorkbooks.open文件的完整路径Application.enableevents=trueEndsub如破解并打开本例提供的文件，可以添加一下程序并运行Sub破解()Application.enableevents=falseWorkbooks.openthisworkbook.path&“/验证.xls”Application.enableevents=trueEndsub合并多个表的数据PrivateSubCommandButton1_Click()DimyAsLongy=[a65536].End(xlUp).Row+1Range("a2:g"&y).ClearContentsSetconn=CreateObject("adodb.connection")Forx=1To3conn.Open"provider=microsoft.jet.oledb.4.0;extendedproperties=excel8.0;datasource="&ThisWorkbook.Path&"/"&x&".xls"Sql="select*from["&x&"]"[a65536].End(xlUp).Offset(1,0).CopyFromRecordsetconn.Execute(Sql)conn.CloseNextxSetconn=NothingEndSub