請教各位前輩： 有辦法做到說... 我只要目前ActiveSheet可以編輯，其他Sheet都不可編輯，即保護狀態！ 因為無法知道共有幾個sheet，所以必須這樣做... 有辦法做到這樣嗎？ 謝謝

Hi, 之前的這篇應該是可以達到你要的功能: http://delphi.ktop.com.tw/topic.php?TOPIC_ID=29580    稍改一下即可:    

procedure TForm1.Button1Click(Sender: TObject);
var
  ex, wb, ws: variant;
  i: integer;
begin
  ex := CreateOleObject('Excel.Application');
  wb := ex.WorkBooks.Open('c:\file.xls');
  ex.visible := true;
  for i := 1 to wb.Sheets.Count do
  if wb.Sheets[i].Name <> wb.ActiveSheet.Name then
    wb.Sheets[i].Protect(DrawingObjects:=True, Contents:=True, Scenarios:=True);
end;

配合 wb.Sheets.Count 取出所有的 WorkSheets 數目, 再利用 wb.ActiveSheet 來進行現在使用中的 WorkSheet 名稱和所有名稱來進行比對, 若是現行 WorkSheet 則不保護, 其餘的全部保護即可, 試試看, 若有問題再問!

Hi,TimHuang,謝謝你！ 照你的方法是出來了~ 幫我解答過這麼多問題..^.^... Thank you very much！

引言: Hi, 之前的這篇應該是可以達到你要的功能: http://delphi.ktop.com.tw/topic.php?TOPIC_ID=29580 稍改一下即可:

procedure TForm1.Button1Click(Sender: TObject);
var
  ex, wb, ws: variant;
  i: integer;
begin
  ex := CreateOleObject('Excel.Application');
  wb := ex.WorkBooks.Open('c:\file.xls');
  ex.visible := true;
  for i := 1 to wb.Sheets.Count do
  if wb.Sheets[i].Name <> wb.ActiveSheet.Name then
    wb.Sheets[i].Protect(DrawingObjects:=True, Contents:=True, Scenarios:=True);
end;

配合 wb.Sheets.Count 取出所有的 WorkSheets 數目, 再利用 wb.ActiveSheet 來進行現在使用中的 WorkSheet 名稱和所有名稱來進行比對, 若是現行 WorkSheet 則不保護, 其餘的全部保護即可, 試試看, 若有問題再問!