我希望，我產生一份EXCEL，固定欄寬，但是可以自訂內容，調整列高我打算用工作業保護的方式做處理，看了一些excel.protect的範例


varExcelApp:variant;
i:integer;
begin
//建立
ExcelApp:=CreateOleObject('Excel.Application');
ExcelApp.Visible:=false;
ExcelApp.Caption:='ApplicationuseMicrosoftExcel';
ExcelApp.WorkBooks.Add;
//設定欄寬
for i:= 65 to 80 do
ExcelApp.ActiveSheet.Columns[chr(i)].ColumnWidth:=(imod5 1)*5;
//整體字型
ExcelApp.Cells.Font.Name:='微軟正黑體';
ExcelApp.Cells.Font.size:=8;
//保護
ExcelApp.ActiveSheet.Protect(Password:='123',Contents:=False,AllowFormattingRows:=True);
//存檔
ExcelApp.ActiveWorkBook.SaveAs('c:\0330.xlsx',51);
//釋放
ExcelApp.WorkBooks.Close;
ExcelApp.Quit;
VarClear(ExcelApp);
ExcelApp:=unassigned;

ShellExecute(Handle,nil,'c:\0330.xlsx',nil,nil,SW_SHOWNORMAL);



ExcelApp.ActiveSheet.Protect(
Password:='123',<<密碼
Contents:=False,<<內文保護(不要)
AllowFormattingRows:=True<<允許控制列高
);

我並沒有設定允許欄寬(AllowFormattingColumns)但是很明顯的匯出的EXCEL可以控制欄寬

實驗2
把Contents改成TRUE內文保護後很神奇的列高能控制，欄寬無法控制<<這是我要的但事只差內文不能輸入。

不知道有沒有人預過類似狀況

編輯記錄