如何把EXCEL设为只读(100)

H

hnzpeng

Unregistered / Unconfirmed
GUEST, unregistred user!
数据导入Excel后,如何把EXCEL设为只读 不能对数据进行修改
 
D

de410

Unregistered / Unconfirmed
GUEST, unregistred user!
这个与excel没有关系,需要用到filectrl单元,var attr: integer; filename: string; begin filename := 'files'; attr:= FileGetAttr(filename); attr := attr or faReadOnly; end;附文件属性常量 Constant Value Description faReadOnly $00000001 Read-only files 只读文件 faHidden $00000002 Hidden files 隐藏文件 faSysFile $00000004 System files 系统文件 faVolumeID $00000008 Volume ID files 卷标文件 faDirectory $00000010 Directory files 目录 faArchive $00000020 Archive files 归档文件 faAnyFile $0000003F Any file 任意文件
 
D

Delphizhou

Unregistered / Unconfirmed
GUEST, unregistred user!
进我笔记里看看。有好多关于这方面的资料。
 

草原骏马

Unregistered / Unconfirmed
GUEST, unregistred user!
就是 de410 的建议,把文件属性设为只读。
 
H

hnzpeng

Unregistered / Unconfirmed
GUEST, unregistred user!
如下面代码,数据导入Excel后,点击任一单元格,都不能修改,就是工作表被保护procedure TForm1.Button1Click(Sender: TObject);var i, j: integer; range,e_Print : variant; excel_Book,excel_sheet: OleVariant ;begin try try e_Print := createoleobject('excel.application'); e_Print.visible := true; e_Print.caption:='数据打印'; e_Print.application.workbooks.add; e_Print.application.visible:=true; e_Print.WorkSheets[1].Activate; excel_Book:=e_Print.application.workbooks[1]; excel_sheet:=excel_Book.worksheets.item[1]; except Showmessage('Excel 没有安装!'); end; excel_Sheet.cells[1, 1].Rows.RowHeight := 20; //设置行高 //第一行单元格为这个统计的标题 excel_Sheet.cells[1, 1] := '标题'; excel_Sheet.cells[1, 1].Characters.Font.Name := '宋体'; //字体 excel_Sheet.cells[1, 1].Characters.Font.FontStyle := '加粗'; excel_Sheet.cells[1, 1].Characters.Font.Size := 15; finally // wrap up e_Print.ActiveWorkBook.Saved := True; //放弃存盘: end; // try/finally
 
H

hnzpeng

Unregistered / Unconfirmed
GUEST, unregistred user!
也就是 在程序中设置Excel工作表保护
 
H

hnzpeng

Unregistered / Unconfirmed
GUEST, unregistred user!
也就是页面用密码保护搜一下以前的帖子,觉得下面一段代码应该没错,VExcel.worksheets['sheet1'].protect(password,true,true,true);使用时却有以下的错误提示Method 'worksheets' not supported by automation object.
 

菜鸟黄

Unregistered / Unconfirmed
GUEST, unregistred user!
H

hnzpeng

Unregistered / Unconfirmed
GUEST, unregistred user!
没试de410的方法,自己的解决办法是:ActiveSheet.Protect('3333',true,true,true)成功
 
H

hnzpeng

Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。
 
D

de410

Unregistered / Unconfirmed
GUEST, unregistred user!
通过Delphi代码对Excel工作表进行保护ExcelApp.ActiveWorkbook.Protectstructure:=True;ExcelApp.ActiveSheet.Protect(Password:='',DrawingObjects:=True,Contents:=True,Scenarios:=False,AllowFiltering:=True,AllowInsertingColumns:=False,AllowInsertingRows:=False,AllowInsertingHyperlinks:=False,AllowDeletingColumns:=False,AllowDeletingRows:=False,AllowSorting:=False,AllowFiltering:=False,AllowUsingPivotTables:=False);
 
顶部