VBA封装成EE制作全攻略.docxVIP

XLS封装成EXE制作全攻略

首先申明，将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、双击窗体打开代码编辑窗口，录入以下代码：

PrivateDeclareFunctionSetWindowPosLibuser32(ByValhwndAsLong,ByValhWndInsertAfterAsLong,ByValxAsLong,ByValyAsLong,ByValcxAsLong,ByValcyAsLong,ByValwFlagsAsLong)AsLong

PrivateDeclareFunctionGetTempFileNameLibkernel32AliasGetTempFileNameA(ByVallpszPathAsString,ByVallpPrefixStringAsString,ByValwUniqueAsLong,ByVallpTempFileNameAsString)AsLongPrivateDeclareFunctionGetTempPathLibkernel32AliasGetTempPathA(ByValnBufferLengthAsLong,ByVallpBufferAsString)AsLong

PrivateConstMAX_PATH=260

PrivateConstEXE_SIZE=81920本EXE实际字节大小

PrivateTypeFileSectionBytes()AsByte

EndType

PrivateTypeSectionedFileFiles()AsFileSection

EndType

DimStopTimeAsInteger

PrivateSubForm_Activate()

IfCommand()=ThenMain1EndSub

PrivateSubForm_Load()

OnErrorResumeNextIfCommand()=ThenForm1.Visible=True

SetWindowPosForm1.hwnd,-1,0,0,0,0,H2OrH1将封面置为最顶层窗体Else

Form1.Visible=FalseForm1.Timer1.Enabled=TrueEndIf

EndSubSubMain1()

DimStartXLSByte,I,JAsLong

DimAppPath,XlsTmpPathAsStringDimmyfileAsSectionedFile

DimxlAppAsExcel.Application定义EXCEL类DimxlBookAsExcel.Workbook定义工件簿类DimxlsheetAsExcel.Worksheet定义工作表类AppPath=App.Path

XlsTmpPath=GetTempFile()取得XLS临时文件名（带路径）

IfVBA.Right(App.Path,1)=\ThenAppPath=VBA.Left(App.Path,VBA.Len(App.Path)-1)OpenAppPath\