Entwickler-Ecke :: Thema anzeigen - Excel-Datei mit Kennwort öffnen und entsperren

Webo - Do 11.02.10 20:13
Titel: Excel-Datei mit Kennwort öffnen und entsperren

Wie im Titel schon zu lesen ist, suche ich eine Möglichkeit um eine Excel-Datei zu öffnen, welche mit einem Kennwort in Excel selbst versehen ist. Dabei soll die Datei natürlich nicht nur geöffnet werden, sondern auch entsperrt werden, also soll mein Programm das Kennwort eingeben.
Bei meinen Überlegungen bin ich auf 2 Möglichkeiten gekommen:

Excel per Parameter zu starten. Die Datei selbst ist ja nicht das Problem, aber dann das Kennwort zu übergeben (bin durch Google aber auch nicht schlauer geworden, ob das so geht)
Excel fernsteuern per OLE (?) Ob und wie das geht, ein großes :?:

Webo

Webo - Fr 12.02.10 18:30

Ich hab es jetzt (vorerst) hinbekommen, denn ich weiß noch nicht, ob das so funktioniert, wie mein Vater sich das vorgestellt hat.

Hier meine Lösung:

Erstmal die Excel-TypenBiblios installiert *g*
Folgende 3 Komponenten auf die Form gezogen: TExcelApplication, TExcelWorkbook, TExcelWorksheet

Folgenden Code zum "Verbinden" genutzt:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

var flcid:Cardinal;
    _bool,_password:olevariant;
    Filename: OleVariant;

begin
    Filename := 'E:\Test.xls';

    flcid:=GetUserDefaultLCID;
  try
    ExcelApplication1.Connect;
    ExcelApplication1.Visible[flcid]:=true;
    ExcelApplication1.UserControl:=true;
    ExcelApplication1.Application.Workbooks.Open(Filename, EmptyParam, EmptyParam,
                                EmptyParam, EmptyParam, EmptyParam,
                                EmptyParam, EmptyParam,EmptyParam,
                                EmptyParam,EmptyParam,EmptyParam,
                                EmptyParam,EmptyParam,EmptyParam, 
                                fLCID);
    //Warum hier so viele Parameter benötigt werden, keine Ahnung, hab dieses Beispiel mit den leeren Parametern irgendwo gefunden

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

Und zum Aufheben des Kennworts folgenden Code:

Delphi-Quelltext

1:
2:
3:
4:
5:

  _bool:=true;
  _password:='Passwort';
    
  ExcelWorksheet1.unProtect(_password); 
  ExcelWorkbook1.Unprotect(_password);

Und falls man das Kennwort wieder setzen will:

Delphi-Quelltext

1:
2:

  ExcelWorksheet1.Protect(_password,_bool,_bool,_bool);
  ExcelWorkbook1.Protect(_password,_bool,_bool);

Anschließend müsste man Excel noch wieder schließen, was ich aber in meinem Beispiel nicht brauche / nicht gewollt ist

Delphi-Quelltext

1:
2:
3:

  ExcelWorksheet1.Disconnect;
  ExcelWorkbook1.Disconnect;
  ExcelApplication1.Disconnect;

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!