如果不让这个提示弹出来？
ObjExcel.ActiveWorkbook.Password = '123123'
ObjExcel.Quit()
如果我在quit前用save的话，又会提示：是否替换已经存在的文件？
我该如何做呢？
-
等级
本版专家分：0结帖率 98.51% -
打开工作簿，对xls文件设置密码保护后，退出时提示： 是否保存修改？
如果不让这个提示弹出来？
ObjExcel.ActiveWorkbook.Password = '123123'
ObjExcel.Quit()
如果我在quit前用save的话，又会提示：是否替换已经存在的文件？
我该如何做呢？展开阅读全文
-
等级
本版专家分：50
-
用saveas()
先将原文件移到其他目录，操作完成，saveas目标文件：
int i,li_ret
long ll_cell
int li_colcount
string ls_pathname
//string ls_filename
int li_row
int li_rowCount
string ls_data
long ll_currow
long ll_cellrow
string ls_tmpfile
ls_pathname = as_path //ProfileString ("smp.ini", "filepath", "input1","")
li_colcount = integer(idw_dw.object.datawindow.column.count) //ai_colcount //25 // dw列数
if li_colcount < 1 then return
ls_tmpfile = gs_app_path+"\tmp.sys"
if FileExists(ls_tmpfile) then
if filedelete(ls_tmpfile) then
f_write_filelog("3","删除临时文件：" +ls_tmpfile+ "失败")
return
end if
end if
if filemove(ls_pathname,ls_tmpfile) < 1 then return
OLEObject excelole
excelole = CREATE OLEObject
li_ret = excelole.ConnectToNewObject("Excel.Application")
if li_ret <> 0 then
MessageBox('Excel error','Excel cannot connect,error number:' + string(li_ret))
excelole.disconnectobject()
DESTROY excelole
return
end if
setpointer(Hourglass!)
excelole.visible = 0
excelole.Workbooks.Open(ls_tmpfile,3, false, 1, '123123','123123') //打开密码保护的文件
excelole.Worksheets[1].activate
//li_rowCount=excelole.Application.ActiveWorkbook.ActiveSheet.UsedRange.Rows.Count
li_rowCount = idw_dw.rowcount()
for li_row = 1 to li_rowCount
ll_cellrow = al_filerowcount + li_row
for i = 1 to li_colcount
ls_data = string(idw_dw.object.data[li_row,i]) //= adw_data.Describe(ls_colname[i] +'_t' + '.text')
excelole.cells(ll_cellrow,i).value = ls_data
next
next
excelole.ActiveWorkbook.Saveas(ls_pathname)
excelole.Workbooks.close
excelole.application.quit()
excelole.disconnectobject()
DESTROY excelole
setpointer(Arrow!)
FileDelete(ls_tmpfile)
return
- 忘记Excel文件保护密码，怎么解？
公众号“中国黑客联盟”曾经发布过一个三分钟视频，名为“禁止别人复制你的Excel表格只需一步， 99%的...网上有不少方法，比如用第三方软件 Office Password Remover， 又或者通过VBA的宏进行反复猜测，原理就是bru...
- VBA解密工具
去除VBA编码保护Sub MoveProtect() Dim FileName As String FileName = Application.GetOpenFilename("Excel文件（*.xls & *.xla）,*.xls;*.xla", , "VBA破解") If FileName = CStr(False) Then Exit Sub E
- Excel-常用宏技巧（5）
以下是将打印情况写入工作表的宏Sub 打印信息() Application.ScreenUpdating = False 关闭屏幕更新 Dim Y 声明变量 Y = ActiveSheet.Name 判定活动工作表名称 Sheets("打印信息").Select X = 3 从第3行开始 Do While...
- 各种Excel VBA的命令
本示例为设置密码窗口 (1) If Application.InputBox("请输入密码：") = 1234 Then [A1] = 1 密码正确时执行 Else: MsgBox "密码错误，即将退出！" 此行与第2行共同设置密码 End If 本示例为设置密码窗口 (1) X = ...
- Excel-常用宏技巧
本示例为设置密码窗口 (1) If Application.InputBox("请输入密码：") = 1234 Then [A1] = 1 密码正确时执行 Else: MsgBox "密码错误，即将退出！" 此行与第2行共同设置密码 End If 本示例为设置密码窗口 (1) X = ...
- VBA，工作簿workbook相关操作，workbooks.add workbooks.save workbooks.saveas 等等
1 Workbooks.Add 方法 1.1 语法 新建一个工作表。新工作表将成为活动工作表。 语法 表达式.Add(Template) 表达式 一个代表 Workbooks 对象的变量。... Template 可选 Variant 确定如何创建新工作簿。...
- EXCEL VBA编程基础
PS：建议从“二)、基本概念”开始看起，前面的大部份人都知道了。Excel 最重要的应用就是利用公式进行计算。无论输入是纯粹的数字运算，还是引用其他单元格计算，只要在一个单元格中输入公式，就能得到结果。...
- 搜集各种Excel VBA的命令供参考！
本示例为设置密码窗口 (1) If Application.InputBox("请输入密码：") = 1234 Then [A1] = 1 密码正确时执行 Else: MsgBox "密码错误，即将退出！" 此行与第2行共同设置密码 End If 本示例为设置密码窗口 (1) X = ...
- VBA常用命令
各种Excel VBA的命令 本示例为设置密码窗口 (1) If Application.InputBox("请输入密码：") = 1234 Then [A1] = 1 密码正确时执行 Else: MsgBox "密码错误，即将退出！" 此行与第2行共同设置密码 End If 本示例为...
- Excel+VBA+之快速上手
第一章 VBA语言基础 第一节 标识符 一．定义 标识符是一种标识变量、常量、过程、函数、类等语言构成单位的符号，利用它可以完成对变量、常 量、过程、函数、类等的引用。 二．命名规则 1） 字母打头，由字母...
- 用DELPHI操作EXCEL
在DELPHI中显示EXCEL文件，可用以下简单代码做到。但要实用，则需进一步完善。 var Form1: TForm1; EApp:variant;implementationuses ComObj, OleServer,Excel2000;{$R *.dfm}procedure TForm1.Button1Click...
- 我在CSDN参与的3000个帖子
今日偶然翻到，感慨万千 1：申述：版主，是否扣了我的专家分？ 2：100分急求，随机输出十个小写字母，但是，要求这十个字母不相同 3：求Sn=a+aa+aaa+…+aaa…a（n个a）之值 4：数组题 望高手帮忙！... 6：VBA请教怎
- 在线office编辑 iWebOffice系列的交互操作
office 控件编辑 基本介绍 iWebOffice系列文档控件，是江西金格网络科技有限责任公司经过两年的完全...全国率先提出并实现文档在线编辑的梦想和构架，产品开发完成后，已经得到了广大客户的认可，成为许多软件开发
- qt与excel 一去二三里整理
Visual Basic for Applications（VBA）是一种Visual Basic的一种宏语言，主要能用来扩展Windows的应用程式功能，特别是Microsoft Office软件。也可说是一种应用程式视觉化的Basic Script。1994年发行的Excel 5.0...
- VBA语言
第一章 VBA语言基础 第一节 标识符 一．定义 标识符是一种标识变量、常量、过程、函数、类等语言构成单位的符号，利用它可以完成对变量、常 量、过程、函数、类等的引用。 二．命名规则 1） 字母打...
- VBA快速上手－常用对象之使用
第一节 文件的操作 1) Excel 文件 1.1 新建与打开 一.新建 Workbooks.Add 二.打开 Workbooks.Open "路径/" & "文件名.xls" 三
- 使用c++开发excel插件 (第2章深入excel)
关于excel的功能相信大家都比较了解，而且介绍如何使用excel的书籍在市场也是随处可见，这里就不再多说了。...工作表是保存数据的第一级结构，每个工作表是一个二维表格，其中中包含许216行28列共6
- VBA学习
第一章 VBA语言基础 第一节 标识符 一．定义 标识符是一种标识变量、常量、过程、函数、类等语言构成单位的符号，利用它可以完成对变量、常 量、过程、函数、类等的引用。 二．命名规则 1） 字母打...
- Windows系统及应用技巧二十六篇
四：如何防范恶意网站 五：win2000/xp忘记密码的方法 六：Windows XP 自带小工具 七：windows中有关网络的几命令 八：了解你的windows目录和系统文件 九：低级格式化的主要作用 十：封杀
- WEB开发文档2 总结
http://blog.donews.com/lvjiyong/archive/2006/06/29/931071.aspx 怎样将后台生成的在内存中的图象显示到客户端 Microsoft IE WebControls下载地址 如何在DATAGRID中使用JAVASCRIPT脚本控制 DataGrid中连接到...
- 流氓软件的完全卸载的一些方法
1.3721的卸载 首先，用3721自带的卸载功能卸载3721，但是这个3721网络实名插件是使用Rundll32.exe调用连接库的，系统无法终止Rundll32.exe进程，所以我们必须重新启动计算机，按 F8 进入安全模式（F8 只能按一次，...
- Delphi与Word之间的融合技术
问题：Delphi与Word之间的融合技术 ( 积分：0, 回复：325, 阅读：37835 )分类：OLE/Automation ( 版主：g622, satanmonkey ) 来自：yzhshi, 时间：2001-11-18 17:52:00, ID：737517[显示：小字体 | 大字体] ...
- VFP全面控制EXCEL
VFP和Excel都可以用来进行处理数据库表格，如果巧妙地将二者的优点结合起来，将会大大方便我们的工作。比如我们可以利用VFP进行处理数据，而利用Excel的预览打印功能进行报表打印。这就需要我们在VFP中直接来控制...
- 金格插件使用心得
金格科技-iWebOffice2009全文批注实例 if (vIndex==1){ WebOpenLocal(); //打开本地文件 } if (vIndex==2){ ... //保存本地文件 } if (vIndex==3){ SaveDocument(); //保存
- VBA 常用的VBA短句（带注释）
带解释的 VBA 短句 [VBA起步]常用的、带解释的 VBA 短句 [A65536].End(xlUp).Row 'A列末行向上第一个有值的行数 [A1].End(xlDown).Row 'A列首行向下第一个有值之行数 [IV1].End(xlToLeft).
- Excel使用技巧
Excel使用技巧在工作当中用电子表格来处理数据将会更加迅速、方便，而在各种电子表格处理软件中，Excel以其功能强大、操作方便著称，赢得了广大用户的青睐。虽然Excel使用很简单，不过真正能用好Excel的用户并不多，...
- EXCEL宏代码大全
本文件部分文章来源于网络，文章版权归原作者所有，如果本站转载的文章侵犯了您的权益请及时联系我们，我们将尽快妥善处理。本站除部分特别声明禁止转载的专稿外，其他文章可以自由转载，但请务必注明原出处和作者。...
- VB中对EXCEL的各种操作
全面控制 Excel 首先创建 Excel 对象，使用ComObj: Dim ExcelID as Excel.Application Set ExcelID as new Excel.Application 1) 显示当前窗口： ExcelID.Visible := True; 2) 更改 Excel 标题栏： ...
- excel 问题，vba
Excel问题集合
- 个人简历模板
优质简历模板，目前最前全的模板收藏，需要换工作的小伙伴们可以试试