Nun möchte ich, bei der schreibgeschützten Variante, angezeigt bekommen, wenn sich etwas geändert hat. Das klappt soweit über den Vergleich von FileDateTime und Öffnungszeit, welche ich beim Öffnen in das Tabellenblatt Bemerkungen Zelle A1 schreibe. If adOnly And Sheets("Bemerkungen")("A1") < FileDateTime( & "***") Then
Dim res As Long' res = MsgBox(" Es ist etwas geändert worden! Den Plan erneut öffnen? ", vbQuestion + vbYesNo, "Achtung Änderung! Kabelbinder für Hochtemperaturanwendungen bis +240 °C PT2A (118-00032) | HellermannTyton. Letzte Speicherung: " & Sheets("Bemerkungen")("A1"))
Select Case res
Case vbYes
Sheets("Bemerkungen")("A1") = FileDateTime( & "***") ' neue Zeit setzen, beim erneuten öffnen =>liegt hier vielleicht der Fehler
= True
& "***", ReadOnly:=True, Password:="0815"
Case vbNo
'Tunix
End Select
Das Problem, wenn ich daraufhin die Mappe neu öffnen lasse, bleibt ja der Vergleich immer noch wahr (Öffnungszeit kleiner FileDateTime)
Die neu geöffnete schreibgeschützte Mappe müsste quasi in die Zelle A1 das neue Speicherdatum schreiben. Irgendwie macht der das aber nich beim erneuten Öffnen
Leider habe ich das nicht hinbekommen und ich denke ich seh den Wald vor lauter Bäumen nich ^^'
Habt ihr da eine Idee?
Bundesliga: Im Spiel - Umweltaktivisten Ketten Sich In Frankfurt Ans Tor - Welt
171 m³
Zollwarentarif Nr.
39269097
Fragen Sie Ihr individuelles Angebot an
Was Russlands Krieg Für Den Klimaschutz Weltweit Bedeutet | Br24
Ein kaputter Reißverschluss kann im Notfall noch gerettet werden: Den Kabelbinder durch das Verschlussloch ziehen und den Reißverschluss oben fixieren
Kabelbinder Für Hochtemperaturanwendungen Bis +240 °C Pt2A (118-00032) | Hellermanntyton
Sie seien unverzichtbar. "Hier ist Bayern": Der BR24 Newsletter informiert Sie immer montags bis freitags zum Feierabend über das Wichtigste vom Tag auf einen Blick – kompakt und direkt in Ihrem privaten Postfach. Hier geht's zur Anmeldung!
Seminarraum
Die beiden Seminarräume Dublin und Trappes bieten kleineren Gruppen eine passende Lernumgebung. Messeraum
Erleben Sie unsere Produktvielfalt und Marktkompetenz im variabel nutzbaren Messeraum. Werkstatt
Das Gelernte kann in unserer ACADEMY Werkstatt, ausgestattet mit all unseren Produkten, praktisch umgesetzt werden. Cateringbereich
Im Cateringbereich wird nicht nur für Ihr leibliches Wohl gesorgt, vielmehr ist hier der ideale Platz für Ihr Networking. Unser gemeinsames Ziel: Erfolg durch Wissen
Erfolg vermehrt sich, wenn man Wissen teilt
Die ACADEMY sorgt für einen weltweiten Austausch in allen Bereichen und auf allen Ebenen. Jeder ist eingeladen, sein Wissen aktiv einzubringen, um gemeinsam erfolgreicher zu sein. Bundesliga: Im Spiel - Umweltaktivisten ketten sich in Frankfurt ans Tor - WELT. In speziell entwickelten Trainings, die auf Ihre Bedürfnisse zugeschnitten sind, bieten wir Ihnen die Möglichkeit, sich über unsere Produkte und Neuentwicklungen sowie deren Anwendung in den unterschiedlichsten Märkten zu informieren. Als unser Kunde gehören Sie zur ACADEMY und nur durch Sie kann die ACADEMY wachsen und so auch zu Ihrer erfolgreichen Geschäftsentwicklung beitragen!