VB 关于EXCEL的连接

来源：百度知道 编辑：UC知道 时间：2024/05/25 09:38:33
自己已经写了一点了 碰到一点问题 求助
Dim VBExcel As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Set VBExcel = CreateObject("Excel.Application")
Set xlbook = VBExcel.Workbooks.Open(App.Path & "\" & "temp" & "\" & "abc" & ".xls", Password:="111", writerespassword:="111")
Set xlsheet = xlbook.Worksheets(1)
VBExcel.Visible = True
到上面位置 我所需要的EXCEL已经打开了
但是 我需要讲EXCEL设定成只能有软件来关闭 就是说EXCEL不能被手动关闭
当EXCEL被打开时 按钮 1、2、3都不能用
要按下关闭按钮 并确认EXCEL被关闭
按钮1、2、3回复 请问怎么写

追40分 等待好答案
昨天的好心人 我点太快忘记追分了
不是故意 只要你来答了 哪怕是乱写 我都把分给你
一会我重开问题就好
EXCEL的开和关 就好能由一个开关来实现

自己写的Excel操作类模块 读写

'注 ： 调用本模块时 工程必须 引用 Microsoft Excel 11.0 Object library
' 模块 名称 ExcelClass
'模块作者：武汉佳诚科技（刘杰）
'QQ：25070202
' 完成日期：2009-02-03
Option Explicit
Private mvarSheetsCount As Long '局部复制
Private mvarRowsCount As Long '局部复制
Private mvarColumnsCount As Long '局部复制
Private objExcelFile As Excel.Application
Private objWorkBook As Excel.Workbook
Private objImportSheet As Excel.Worksheet
Private intLastColNum As Long
Private intLastRowNum As Long
Public Event BatchOut(TextOut() As Variant)
'读取 指定 行 列 范围内的内容 ，参数忽略则读取所有 返回Public WithEvents mExcel As ReadExcel
Public Function BatchRead(Optional ByVal Columns As Long = 0, Optional ByVal Rows As Long = 0) As Boolean
On Error GoTo Eri
Dim Counti As Long
Dim Inti As Long
Dim Str() As Variant
ReDim Str(1 To mvarRowsCount, 1 To mvarColumnsCount) As Variant
For Counti