Schreibschutz in Excel

[Keldorn]

wie immer in solchen sachen: ein makro aufzeichnen

Delphi-Quellcode:

procedure TForm1.Button_ExcelSchutzClick(Sender: TObject);
Var flcid:Cardinal;
    _bool,_password:olevariant;
begin
  flcid:=GetUserDefaultLCID;
  try
    ExcelApplication1.Connect;
    ExcelApplication1.Visible[flcid]:=true;
    ExcelApplication1.UserControl:=true;

    ExcelWorkbook1.ConnectTo(ExcelApplication1.ActiveWorkbook);
    ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Sheets.Item[1] as ExcelWorkSheet);

    //excel-Tabellenblatt schützen, vieles ist optional, auch das password
    _bool:=true;
    _password:='Passwort';
    ExcelWorksheet1.Protect(_password,_bool,_bool,_bool);
    //oder, ohne die workbooks und worksheets (die beiden connects kannst du dir sparen)
    //(ExcelApplication1.ActiveSheet as ExcelWorkSheet).Protect(_password,_bool,_bool,_bool,emptyparam,flcid);
    //Schutz aufheben
    //ExcelWorksheet1.unProtect(_password);

    ExcelWorksheet1.Disconnect;
    ExcelWorkbook1.Disconnect;
    ExcelApplication1.Disconnect;
  except
  end;
end;

Mfg Frank