Hallo,
ich habe den Thread derzeit nicht gelesen und gebe meinen Senf nur zu der unten aufgeführten Aussage kund.
Ob es paßt, passen könnte oder eben nicht. das kann ich mit meinem jetzigen Halbwissen ohnehin nicht entscheiden.
Also, ich schreibe was nur hierzu:
Zitat:ich habe es umgeschrieben wie von dir vorgeschlagen, die Amis kriegen weiterhin immer die Abfrage nach dem Passwort
(manuelle EIngabe). Ich gebs jetzt auf, muessen die Amis halt zusehen wie sie klarkommen, bei mir laeuft es einwandfrei
Mein Vorschlag wäre es, eine Abfrage einzubauen. Alles was in die USA geht, bekommt vor dem Ende des Codes zusätzlich
eine Zeile mit Aufhebung des Passwortes verpaßt.
Ob das das Problem lösen kann, muß vor Ort entschieden werden.
(13.12.2016, 14:11)Kuwer schrieb: [ -> ]Hallo Christian,
vielleicht haben die Kollegen auch einfach nur andere Dateien mit anderen Passwörtern? :17:
Gruß Uwe
Nein, das kann nicht sein weil sie auf dieselben Datein auf den selben sharedrive zugreifen.
Wenn die manuelle passwort Abfrage kommt (was nicht sein sollte) geben die Alis genau das password ein wie es das Makro enthaelt und die Datei oeffnet sich..
(13.12.2016, 14:25)Käpt schrieb: [ -> ]Hallo,
ich habe den Thread derzeit nicht gelesen und gebe meinen Senf nur zu der unten aufgeführten Aussage kund.
Ob es paßt, passen könnte oder eben nicht. das kann ich mit meinem jetzigen Halbwissen ohnehin nicht entscheiden.
Also, ich schreibe was nur hierzu:
Mein Vorschlag wäre es, eine Abfrage einzubauen. Alles was in die USA geht, bekommt vor dem Ende des Codes zusätzlich
eine Zeile mit Aufhebung des Passwortes verpaßt.
Ob das das Problem lösen kann, muß vor Ort entschieden werden.
Das waere vielleicht ein moegliches "Workaround", hast du auch den code dazu? ich bin naemlich ueberhaupt erst seit 3 wochen mit Makros beschaeftigt und verstehe nicht mal die Haelfte.
Was ich gemacht habe ist, ich habe hier in Europa die file erstellt, das Makro mit grosser Hilfe von Kuwer eingebaut - laeuft wie geschmiert - habe den Pfad zum sharedrive eingebaut (welcher natuerlich aus aus Sicht der Amis der gleiche ist) und habe die file an die Amis gesendet.
Ziel: Amerika und Europa kann sich wann immer gewuenscht die aktuellen Daten vom sharedrive ziehen.
PS: Wenn das Unternehmen mal Geld fuer ein TMS ausgeben wuerde, braeuchte man sich nicht mit Excel rumschlagen fuer solche daily work tasks :@
Gruss
(13.12.2016, 14:10)snb schrieb: [ -> ]Ich fürchte die Funktion 'holepasswort' mangelt bei deinen Kollegen.
Dann fragst du deine Kollegen das Ergebnis von:
Code:
c00 = "\\corporate treasury\Daily Reporting Receipts & Disbursement\"
c01 = Dir(c00 & "*.xlsm")
Do While c01 <> ""
c02=HolePasswort(c01)
msgbox c02
with Workbooks.Open(c00 & c01, c02)
.ChangeLink c01, c01, xlExcelLinks
.Close -1
end with
c01 = Dir
Loop
Danke fuer deine Antwort, ich kann aber nicht folgen.
wenn du sagst: die funktion "holepassword" mangelt bei den Kollegen, heisst es funktioniert nicht weil das funktions addin fehlt?
Zusatzinfo:
Manchmal klappt es bei den Kollegen - d.h. das Makro laeuft sauber durch ohne Abfrage der manuellen password Eingabe - aber in ueber 70% der Faelle klappt es nicht sauber
(13.12.2016, 14:44)FR-CGI schrieb: [ -> ]Danke fuer deine Antwort, ich kann aber nicht folgen.
wenn du sagst: die funktion "holepassword" mangelt bei den Kollegen, heisst es funktioniert nicht weil das funktions addin fehlt?
Der code funktioniert nicht, er oefnet nicht das workbook
Code:
Sub Makro4()
c00 = "\\corporate treasury\Daily Reporting Receipts & Disbursement\"
c01 = Dir(c00 & "*.xlsm")
Do While c01 <> ""
c02 = HolePasswort(c01)
MsgBox c02
With Workbooks.Open(c00 & c01, c02)
.ChangeLink c01, c01, xlExcelLinks
.Close -1
End With
c01 = Dir
Loop
End Sub
Private Function HolePasswort(c01) As String
Select Case strDatei
Case "BENL_Masterfile.xlsm": HolePasswort = "Orange1839"
End Select
End Function
Hallöchen,
in HolePasswort kann wohl nix passieren ...
Code:
Private Function HolePasswort(c01) As String
Select Case strDatei
Case "BENL_Masterfile.xlsm": HolePasswort = "Orange1839"
End Select
End Function
Wenn Du die Function mal der Reihe nach durchgehst, merkst Du es.
Private Function HolePasswort(c01) As String
--> hier erhält die der Funktion übergebene Variable den Namen c01
Select Case strDatei
--> hier erfolgt eine Entscheidung entsprechend der Variable strDatei
Hm, aber wo kommt die her?
Schreibe das mal so:
Private Function HolePasswort(strDatei) As String