Hilfe verzweifle mit Form u. sicheres öffnen.Danke
23.06.2008 14:28:00
chris
ich kämpfe heute nun schon fast den ganzen tag mit einer Datei herum und finde keine Passende Lösung.
Ich versuche nun noch einmal das Problem zu schildern und nehme mir dafür etwas Zeit.Ich hoffe mir kann jemand helfen wenn ich es genauer erkläre.
Aktueller zustand ist:
Ich habe 3 Exceldateien.
Der aufbau dieser ist:
Datei1 = Exceldatei mit einer(meheren) Userformen
Datei2 und 3 sind Exceltabellen mit Daten.
Das ganze wird aber erst kompliziert weil mann nur über Datei1 mit der Userform auf die Daten zugreifen können darf.
Ich habe schon alles probiert z.b
(Exceldatei ausblenden).Bringt nichts weil die evtl. ein aderer Benutzer einblenden kann.
Das ganze mit createobject. und einer neuen Instanz von Excel.
geht auch nicht weil dann alles der ganze zugriff auf die Daten sehr langsam ist.
Ich weiß einfach nicht weiter.
Momentan habe ich es so gelöst.
die beiden Datenbanken habe ich erst mit einem Passwort geschützt über Extras - schutz und dann Arbeitsmappe schützen.
dort habe ich gesagt er soll auch den Aufbau der Mappe schützen.
Davor habe ich beide Dateien komplett kleingezogen mit der Maus so das man von den Daten nichts mehr sehen kann.
Danach habe ich die beiden Dateien freigegeben mit Freigabeschutz.
Das alles klappt auch gut bis auf 1 Problem.Immer wenn ich die Datenbanken öffne,das passiert wenn ich Datei1 mit der Userform state habe ich 2 minimierte kleine Excelfenster irgendwo rumstehen.
habe dann auch noch versucht diese beiden fenster(mit Passwort) auszublenden dann kommt die Meldung passwort eingeben.
Das muss ich und die anderen user dann immer Manuell machen aber es darf ja nicht jeder das passwort kennen.
Wenn ich dann versuche das Passwort mit sendkeys zu übergeben klappt das nicht.(bzw. Manachmal trägt er das passwort ein aber manchmal nicht.ich weiß einfach nicht weiter.
Gibt es vielleicht eine möglichkeit die ihr mir empfehlen könnt ?
Ich bin wirklich am verzweifeln und würde mich über Hilfe sehr freuen.
Vielen dank an alle !!!!!
gruß Chris
So starte ich momentan meine beiden Datenbanken:
Set Obj_Datenbank_Oracle = Workbooks.Open(PfadDatenbank_Oracle, False, , , "dbpass","dbpass")
Set Obj_Datenbank_User = Workbooks.Open(PfadDatenbank_User, False, , , "dbpass","dbpass")
und so in dieser art schreibe ich die daten auf die Form:
main_project_form.beauftragter_datum.Value = Obj_Datenbank_Oracle.Worksheets(1).Cells(X_Oracle, 4)
und so in der Art schreibe ich die daten von der Userform in die exceldatenbank:
Obj_Datenbank_User.Worksheets(1).Cells(X_User, 20) = main_project_form.datum_leiter.Value