How protect Excel Sheet using Delphi ?

bestlong

How protect Excel Sheet using Delphi ?
Answer:

1. unit UTesteProtect;
   
2. 
   
3. interface
   
4. 
   
5. uses
   
6. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComObj;
   
7. 
   
8. type
   
9. TForm1 = class(TForm)
   
10. Button1: TButton;
    
11. procedure Button1Click(Sender: TObject);
    
12. procedure FormDestroy(Sender: TObject);
    
13. private
    
14. { Private declarations }
    
15. public
    
16. { Public declarations }
    
17. end;
    
18. 
    
19. var
    
20. Form1: TForm1;
    
21. ExcelApp: OleVariant;
    
22. 
    
23. implementation
    
24. 
    
25. {$R *.dfm}
    
26. 
    
27. procedure TForm1.Button1Click(Sender: TObject);
    
28. const
    
29. // SheetType
    
30. xlChart = -4109;
    
31. xlWorksheet = -4167;
    
32. // WBATemplate
    
33. xlWBATWorksheet = -4167;
    
34. xlWBATChart = -4109;
    
35. // Page Setup
    
36. xlPortrait = 1;
    
37. xlLandscape = 2;
    
38. xlPaperA4 = 9;
    
39. // Format Cells
    
40. xlBottom = -4107;
    
41. xlLeft = -4131;
    
42. xlRight = -4152;
    
43. xlTop = -4160;
    
44. // Text Alignment
    
45. xlHAlignCenter = -4108;
    
46. xlVAlignCenter = -4108;
    
47. // Cell Borders
    
48. xlThick = 4;
    
49. xlThin = 2;
    
50. var
    
51. ColumnRange: OleVariant;
    
52. begin
    
53. { Start Excel }
    
54. 
    
55. // By using GetActiveOleObject, you use an instance o
    
56. // f Word that's already running,
    
57. // if there is one.
    
58. try
    
59. // If no instance of Word is running, try to Create a new Excel Object
    
60. ExcelApp := CreateOleObject('Excel.Application');
    
61. except
    
62. ShowMessage('Cannot start Excel/Excel not installed ?');
    
63. Exit;
    
64. end;
    
65. 
    
66. // Add a new Workbook, Neue Arbeitsmappe offnen
    
67. ExcelApp.Workbooks.Add(xlWBatWorkSheet);
    
68. 
    
69. // Open a Workbook, Arbeitsmappe offnen
    
70. ExcelApp.Workbooks.Open('c:\pasta1.xls');
    
71. 
    
72. 
    
73. // Rename the active Sheet
    
74. ExcelApp.ActiveSheet.Name := 'Pasta1';
    
75. 
    
76. // Rename
    
77. ExcelApp.Workbooks[1].WorkSheets[1].Name := 'Pasta1';
    
78. 
    
79. // Insert some Text in some Cells[Row,Col]
    
80. ExcelApp.Cells[1, 1].Value := 'Test';
    
81. ExcelApp.Cells[2, 1].Value := 'http://www.delphi3000.com';
    
82. ExcelApp.Cells[3, 1].Value := FormatDateTime('dd-mmm-yyyy', Now);
    
83. 
    
84. // Setting a row of data with one call
    
85. //ExcelApp.Range['A2', 'D2'].Value := VarArrayOf([1, 10, 100, 1000]);
    
86. 
    
87. // Setting a formula
    
88. // ExcelApp.Range['A11', 'A11'].Formula := '=Sum(A1:A10)';
    
89. 
    
90. // Change Cell Alignement
    
91. // ExcelApp.Cells[2, 1].HorizontalAlignment := xlright;
    
92. 
    
93. // Change the Column Width.
    
94. ColumnRange := ExcelApp.Workbooks[1].WorkSheets[1].Columns;
    
95. ColumnRange.Columns[1].ColumnWidth := 20;
    
96. ColumnRange.Columns[2].ColumnWidth := 40;
    
97. 
    
98. // Change Rowheight / Zeilenhohe andern:
    
99. ExcelApp.Rows[1].RowHeight := 15.75;
    
100. 
     
101. // Merge cells, Zellen verbinden:
     
102. ExcelApp.Range['B3:D3'].Mergecells := True;
     
103. 
     
104. // Apply borders to cells, Zellen umrahmen:
     
105. ExcelApp.Range['A14:M14'].Borders.Weight := xlThick; // Think line/ Dicke Linie
     
106. ExcelApp.Range['A14:M14'].Borders.Weight := xlThin; // Thin line Dunne Linie
     
107. 
     
108. // Set Bold Font in cells, Fettdruck in den Zellen
     
109. 
     
110. ExcelApp.Range['B16:M26'].Font.Bold := True;
     
111. 
     
112. // Set Font Size, Schriftgro?e setzen
     
113. ExcelApp.Range['B16:M26'].Font.Size := 12;
     
114. 
     
115. //right-aligned Text, rechtsbundige Textausrichtung
     
116. ExcelApp.Cells[9, 6].HorizontalAlignment := xlright;
     
117. 
     
118. // horizontal-aligned text, horizontale Zentrierung
     
119. ExcelApp.Range['B14:M26'].HorizontalAlignment := xlHAlignCenter;
     
120. 
     
121. // left-aligned Text, vertikale Zentrierung
     
122. // ExcelApp.Range['B14:M26'].VerticallyAlignment := xlVAlignCenter;
     
123. 
     
124. 
     
125. { Page Setup }
     
126. 
     
127. ExcelApp.ActiveSheet.PageSetup.Orientation := xlLandscape;
     
128. 
     
129. // Left, Right Margin (Seitenrander)
     
130. ExcelApp.ActiveSheet.PageSetup.LeftMargin := 35;
     
131. ExcelApp.ActiveSheet.PageSetup.RightMargin := -15;
     
132. 
     
133. // Set Footer Margin
     
134. ExcelApp.ActiveSheet.PageSetup.FooterMargin := ExcelApp.InchesToPoints(0);
     
135. 
     
136. // Fit to X page(s) wide by Y tall
     
137. ExcelApp.ActiveSheet.PageSetup.FitToPagesWide := 1; // Y
     
138. ExcelApp.ActiveSheet.PageSetup.FitToPagesTall := 3; // Y
     
139. 
     
140. // Zoom
     
141. ExcelApp.ActiveSheet.PageSetup.Zoom := 95;
     
142. 
     
143. // Set Paper Size:
     
144. // ExcelApp.PageSetup.PaperSize := xlPaperA4;
     
145. 
     
146. // Show/Hide Gridlines:
     
147. ExcelApp.ActiveWindow.DisplayGridlines := False;
     
148. 
     
149. // Set Black & White
     
150. ExcelApp.ActiveSheet.PageSetup.BlackAndWhite := False;
     
151. 
     
152. // footers
     
153. ExcelApp.ActiveSheet.PageSetup.RightFooter := 'Right Footer / Rechte Fu?zeile';
     
154. ExcelApp.ActiveSheet.PageSetup.LeftFooter := 'Left Footer / Linke Fu?zeile';
     
155. 
     
156. // Show Excel Version:
     
157. ShowMessage(Format('Excel Version %s: ', [ExcelApp.Version]));
     
158. 
     
159. // Show Excel:
     
160. // ExcelApp.Visible := True;
     
161. 
     
162. // Save the Workbook
     
163. //ExcelApp.SaveAs('c:\filename.xls');
     
164. 
     
165. // Save the active Workbook:
     
166. // ExcelApp.ActiveSheet.Protect.Password := 'Teste';
     
167. ExcelApp.ActiveSheet.Protect(Password:='Teste', DrawingObjects:=True, Contents:=True, Scenarios:=True);//;
     
168. //Contents:=True, Scenarios:=True
     
169. ExcelApp.ActiveWorkBook.SaveAs('c:\filename.xls');
     
170. end;
     
171. 
     
172. procedure TForm1.FormDestroy(Sender: TObject);
     
173. begin
     
174. // Quit Excel
     
175. if not VarIsEmpty(ExcelApp) then
     
176. begin
     
177. ExcelApp.DisplayAlerts := False; // Discard unsaved files....
     
178. ExcelApp.Quit;
     
179. end;
     
180. 
     
181. end;
     
182. 
     
183. end.

複製代碼

資料來源 http://delphizine.blogspot.com/2 ... ng-delphi_6285.html