请问 如何 用代码 控制 excel 中某个单元格 或 选中 区域单元格 设置成只读不能修改!!
请问 如何 用代码 控制 excel 中某个单元格 或 选中 区域单元格 设置成只读不能修改!! 问题点数：40、回复次数：13Top
1 楼xthmpro_cn（[可人]）回复于 2005-06-24 21:16:29 得分 0
Execl自己都不能控制，别说Delphi了!Top
2 楼fsqman（q）回复于 2005-06-24 21:24:28 得分 0
谁说不能 ， execl 可以这样设置的。
就是已经创建了excel对象后：
excel:= CreateOleObject('Excel.Application');
如何 用代码 控制 excel 中某个单元格 或 选中 区域单元格 设置成只读不能修改!!
Top
3 楼lovend（颓废之吻）回复于 2005-06-25 22:08:25 得分 0
帮你顶Top
4 楼darkliu（钢铁工人甲）回复于 2005-06-26 20:49:04 得分 0
选定需要保护的单元格-->设置单元格格式-->保护-->加上[锁定]的勾-->工具-->保护-->保护工作表-->设置密码-->Save-->OK.
Top
5 楼fsqman（q）回复于 2005-06-28 21:33:43 得分 0
版主 帮帮忙吧Top
6 楼CloneCenter（复制中心）回复于 2005-06-30 10:03:28 得分 0
这个真的没有做过啊，不好意思了！Top
7 楼z3h（zhaohonghui）回复于 2005-06-30 10:17:10 得分 0
excel 中提供了单元个保护的功能。查查excel的开发文档，里面有办法的。Top
8 楼abc3000（想想就烦）回复于 2005-07-01 12:23:17 得分 0
想想有什么可以代替的方法没有
直接修改真的很难啊Top
9 楼xthmpro_cn（[可人]）回复于 2005-07-01 13:10:03 得分 0
Execl功能中没有，保护单个单元格不能修改的功能，只能保护单个工作表或者工作簿，
如果楼主认为可以，请提供操作方式，我保证给你正确的代码！Top
10 楼fsqman（q）回复于 2005-07-01 18:26:32 得分 0
TO: ： xthmpro_cn(安徽农民*在外打工)
方法如下：
先选中所有单元格，设置单元格格式->保护的锁定去掉
然后选只读的单元格或区域，设置单元格格式->保护的锁定选中。
工具——>保护——>保护工作表，输完密码后完成Top
11 楼xthmpro_cn（[可人]）回复于 2005-07-02 08:48:24 得分 0
上午没有空，下午给代码!Top
12 楼xthmpro_cn（[可人]）回复于 2005-07-02 17:51:58 得分 40
代码来了：
先将下面的拷贝到窗体上：
object ExcelApplication1: TExcelApplication
AutoConnect = False
ConnectKind = ckRunningOrNew
AutoQuit = False
Left = 200
Top = 424
end
object ExcelWorksheet1: TExcelWorksheet
AutoConnect = False
ConnectKind = ckRunningOrNew
Left = 232
Top = 424
end
object ExcelWorkbook1: TExcelWorkbook
AutoConnect = False
ConnectKind = ckRunningOrNew
Left = 264
Top = 424
end
代码如下：
ExcelApplication1.Connect;
ExcelApplication1.Visible[0]:=true;
ExcelApplication1.Workbooks.Add(null,0);
Excelworkbook1.ConnectTo(ExcelApplication1.workbooks[ExcelApplication1.Workbooks.count]);
Excelworksheet1.ConnectTo(ExcelWorkbook1.Sheets[1] as _worksheet);
// ExcelWorkSheet1.Unprotect('fxfzp');
ExcelWorkSheet1.Cells.Locked:=false;
ExcelWorkSheet1.Range['B3', 'M20'].Locked:=true;
ExcelWorkSheet1.Protect('fxfzp');
//最后断开连接
Excelworksheet1.Disconnect;
Excelworkbook1.Disconnect;
ExcelApplication1.Disconnect;
效果是B3到M20的矩形单元格被保护。
Top
13 楼fsqman（q）回复于 2005-07-02 18:53:33 得分 0
强阿！！
Top
