Office: passwortgeschützte Datei öffnen

Hi,

ich sitze schon seit Tagen an einem Problem und komme nicht wirklich weiter. Ich hoffe ihr könnt mir helfen, denn diverse Foren und Google haben mir keine Lösung gezeigt.

Problem:
Ich möchte eine verschlüsselte Datei so öffnen das der Nutzer diese nicht sieht, bedeutet das die darin enthaltenen Daten im Hintergrund ausgelesen werden.

Dazu habe ich mir schon so einige Gedanken gemacht:
1. GetObject
Leider kann ich hiermit nur unverschlüsselte Datein verwenden.

2. CreatObject - Open
Bei diesem Versuch wurde ein Fehler ausgelöst, sobald ich auf die Datei zugreifen wollte.

Sollten noch fragen sein, so hoffe ich sie euch beantworten zu können. Ansonsten danke ich für jede Idee, die mich ein Stück weiter bringen kann.

Grüße
Michael

:)

 

Hallo Micheal,

eine Möglichkeit.

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Private objWbHidden As Workbook

Sub verstecktOeffnen()
On Error GoTo ErrExit
Application.ScreenUpdating = False

Set objWbHidden = Workbooks.Open("datei.xls", Passwort:="passwort")

objWbHidden.IsAddin = True

ErrExit:

Application.ScreenUpdating = True
End Sub

Sub schliessen()
On Error GoTo ErrExit
Application.ScreenUpdating = False

If Not objWbHidden Is Nothing Then

objWbHidden.IsAddin = False

objWbHidden.Close True

End If

ErrExit:

Application.ScreenUpdating = True
End Sub

Sub test()
If Not objWbHidden Is Nothing Then
.Sheets(1).Range("A1") = Now

MsgBox .Sheets(1).Range("A1").Text
End If
End Sub


Gruß Sepp

 

http://www.herber.de/forum/messages/1196465.html