Suche Erweiterung zu Excel automatisch schliessen
30.10.2015 10:47:47
Patrick
ich bin auf der Suche nach einer Lösung, um den Code "altezeit = neuezeit" von Klaus-Martin für meine Zwecke zu erweitern.
Ich habe folgendes Problem:
Ich habe eine Excel auf einem Netzlaufwerk liegen, die von mehreren Personen mit Eingabe eines PW gleichzeitig bearbeitet werden kann. Es kommt jedoch immer mal wieder vor, dass trotz Freigabemodus, die Excel von einem User gesperrt ist und die Datei für alle anderen nur schreibgeschützt geöffnet werden kann. Komischerweise funktioniert die "Benachrichtigung" nicht und es wird auch ein User als Besitzen angezeigt, der nachweislich nicht am System angemeldet ist. Aber das ist ein anderes Thema ;)
Zudem nutzen weitere Personen die Excel als Informationsquelle und können diese nur im schreibgeschützten Modus öffnen, da Ihnen das PW fehlt.
Jetzt zu meinem Anliegen. Wie kann ich den Code erweitern, um:
a: Das Makro darf nur zu laufen beginnen, wenn ich mit dem PW angemeldet bin.
b: 1 Min. bevor die Excel autom. gespeichert und geschlossen wird, soll eine Info als Text ausgegeben werden, die mit OK geschlossen werden muss. Dabei sollte der Zähler für das Schließen der Excel im Hintergrund weiterlaufen.
Für die Textausgabe hab ich folgenden Code:
Public Sub Infotext_ausgeben()
Dim strText As String
MsgBox "Der Einsatzplan wird wegen Inaktivität geschlossen.", 64
End Sub
Vorab schon mal vielen Dank an alle Forumsunterstützer und natürlich denen, die sich hier mit Ihren Hilfestellungen engagieren.
Schöne Grüße
Patrick