EXCELVBA文件封装成EXE的方法.docx

EXCEL? VBA文件?封装成EX?E的方法 XLS封装?成EXE制?作全攻略■ ldhyo?b??2003.12写出此文以?帮助关注那?张帖的版友?们能完全自?已独立完成?xls2e?xe的过程?，实现简单的?封装。首先申明，将xls做?成exe并?不是指就能?使您的VB?A工程受到?坚强的保护?，当然您可以?通过数种方?法来提高x?ls文档V?BA工程防?止查看的保?护几率，如屏蔽一些?系统热键、监控VBE?窗口的开启?、给文档加上?口令保护、加VBA口?令、使VBA“不可查看”、利用宏表4?.0来禁止用?户取消宏来?查看文档等?等，但“道高一尺，魔高一丈”，所以就没有?必要去追求?所谓的“完美”加密……关于这些保?护方法不属?本文叙述范?围，请版友在论?坛上查看相?关帖。? ?? ?假如您手头?已有一xl?s文档等待?封装，假如您机子?上已安装有?VB6开发?系统，那么请跟着?往下操作：? ?? ?一、用VB制作?EXE文件?头部分? ?? ?1、打开VB，“文件”-“新建工程”-“标准EXE?”；? ?? ?2、此时会出现?名为For?m1的默认?窗体编辑窗?口，Form1?将作为软件?启动封面窗?体，打开该Fo?rm1的属?性窗口，对如下属性?进行设置：Borde?rStyl?e=0，Start?UpPos?ition?=2，Icon与?Pictu?re属性设?置成你需要?的图标（这也将成为?你EXE的?图标）和设计好准?备使用的图?片（即软件封面?），窗体的大小?设置成您需?要的合适值?即可。? ?? ?3、往窗体中添?加一个时钟?控件tim?er1，并将其In?terVa?l属性设为?1000。? ?? ?4、双击窗体打?开代码编辑?窗口，录入以下代?码：Priva?te Decla?re Funct?ion SetWi?ndowP?os Lib user3?2 (ByVal? hwnd As Long, ByVal? hWndI?nsert?After? As Long, ByVal? x As Long, ByVal? y As Long, ByVal? cx As Long, ByVal? cy As Long, ByVal? wFlag?s As Long) As LongPriva?te Decla?re Funct?ion GetTe?mpFil?eName? Lib kerne?l32 Alias? GetTe?mpFil?eName?A (ByVal? lpszP?ath As Strin?g, ByVal? lpPre?fixSt?ring As Strin?g, ByVal? wUniq?ue As Long, ByVal? lpTem?pFile?Name As Strin?g) As LongPriva?te Decla?re Funct?ion GetTe?mpPat?h Lib kerne?l32 Alias? GetTe?mpPat?hA (ByVal? nBuff?erLen?gth As Long, ByVal? lpBuf?fer As Strin?g) As LongPriva?te Const? MAX_P?ATH = 260Priva?te Const? EXE_S?IZE = 81920? 本EXE实?际字节大小?Priva?te Type FileS?ectio?n??Bytes?() As ByteEnd TypePriva?te Type Secti?onedF?ile??Files?() As FileS?ectio?nEnd TypeDim StopT?ime As Integ?erPriva?te Sub Form_?Activ?ate()If Comma?nd() = Then Main1?End SubPriva?te Sub Form_?Load()On Error? Resum?e NextIf Comma?nd() = Then??Form1?.Visib?le = True??SetWi?ndowP?os Form1?.hwnd, -1, 0, 0, 0, 0, H2 Or H1 将封面置为?最顶层窗体?Else??Form1?.Visib?le = False???Form1?.Timer?1.Enabl?ed = TrueEnd IfEnd SubSub Main1?()Dim Start?XLSBy?te, I, J As LongDim AppPa?th, XlsTm?pPath? As Strin?gDim myfil?e As Secti?