(word完整版)EXCEL-VBA文件封装成EXE的方法.doc

(word完整版)EXCELVBA文件封装成EXE的方法
(word完整版)EXCELVBA文件封装成EXE的方法
(word完整版)EXCELVBA文件封装成EXE的方法
EXCELVBA文件封装成EXE的方法

XLS封装成EXE制作全攻略■ldhyob2003.12写出此文以帮助关注那张帖的版友们能完全自已独立完成xls2exe的过程,实现简单的封装。首先申明，将xls做成exe并不是指就能使您的VBA工程受到坚强的保护，当然您可以通过数种方法来提高xls文档VBA工程防止查看的保护几率,如屏蔽一些系统热键、监控VBE窗口的开启、给文档加上口令保护、加VBA口令、使VBA“不可查看”、利用宏表4。0来禁止用户取消宏来查看文档等等，但“道高一尺，魔高一丈”，所以就没有必要去追求所谓的“完美”加密……关于这些保护方法不属本文叙述范围，请版友在论坛上查看相关帖。假如您手头已有一xls文档等待封装，假如您机子上已安装有VB6开发系统，那么请跟着往下操作：一、用VB制作EXE文件头部分1、打开VB,“文件”—“新建工程”-“标准EXE”;2、此时会出现名为Form1的默认窗体编辑窗口，Form1将作为软件启动封面窗体,打开该Form1的属性窗口，对如下属性进行设置：BorderStyle=0,StartUpPosition=2，Icon与Picture属性设置成你需要的图标（这也将成为你EXE的图标）和设计好准备使用的图片（即软件封面），窗体的大小设置成您需要的合适值即可。3、往窗体中添加一个时钟控件timer1，并将其InterVal属性设为1000。4、双击窗体打开代码编辑窗口，录入以下代码：PrivateDeclareFunctionSetWindowPosLib”user32"(ByValhwndAsLong，ByValhWndInsertAfterAsLong，ByValxAsLong，ByValyAsLong,ByValcxAsLong，ByValcyAsLong,ByValwFlagsAsLong）AsLongPrivateDeclareFunctionGetTempFileNameLib"kernel32”Alias”GetTempFileNameA”（ByVallpszPathAsString,ByVallpPrefixStringAsString，ByValwUniqueAsLong，ByVallpTempFileNameAsString)AsLongPrivateDeclareFunctionGetTempPathLib”kernel32”Alias”GetTempPathA"（ByValnBufferLengthAsLong,ByVallpBufferAsString)AsLongPrivateConstMAX_PATH=260PrivateConstEXE_SIZE=81920'本EXE实际字节大小PrivateTypeFileSectionBytes（)AsByteEndTypePrivateTypeSectionedFileFiles（）AsFileSectionEndTypeDimStopTimeAsIntegerPrivateSubForm_Activate（)IfCommand(）=""ThenMain1EndSubPrivateSubForm_Load（)OnErrorResumeNextIfCommand（）=””ThenForm1。Visible=TrueSetWindowPosForm1。hwnd,—1,0,0,0,0,＆H2Or&H1’将封面置为最顶层窗体ElseForm1。Visible=FalseForm1.Timer1。Enabled=TrueEndIfEndSubSubMain1（)DimStartXLSByte，I,JAsLongDimAppPath，XlsTmpPathAsStringDimmyfileAsSectionedFileDimxlAppAsExcel.Application'定义EXCEL类DimxlBookAsExcel.Workbook'定义工件簿类DimxlsheetAsExcel.Worksheet’定义工作表类AppPath=App。PathXlsTmpPath=GetTempFile（）’取得XLS临时文件名（带路径）IfVBA.Right（App.Path,1)="\"ThenAppPath=VBA。Left（App.Path，VBA.Len（App.Path)—1）OpenAppPath&”\"&App.EXEName&".exe”ForBinaryAs#1ReDimmyfile。Files(1）ReDimmyfile。Files(1）。Byt