Office: Excel HILFE!!!

Guten Tag alle zusammen.

Ich hab ein Problem der ziemlich schei** ist.

Problembeschreibung...:

Normalerweise funktioniert das so:

Datei wird von BenutzerA geöffnet - alles gut
Datei wird gleichzeitig von Benutzer B geöffnet - dieser bekommt eine Meldung Die Datei wird von A bearbeitet, wollen Sie die Datei 1. schreibgeschützt öffnen 2. gar nicht öffnen 3. benachrichtigt werden, wenn Benutzer A fertig ist mit bearbeiten.
---> in diesem Fall kann nur A speichern, B höchstens unter einem anderen Namen.

So sollte es normalerweise sein.

Jetzt zu unserem Problem:

Benutzer A öffnet, ändert, speichert
Benutzer B öffnet, bekommt keine Meldung, ändert ahnungslos, weil er ja nicht wissen kann, dass A ebenfalls daran arbeitet, speichert auch und was immer jetzt auch gespeichert ist, es ist die Gefahr, dass die VErsion von B die von A überschreibt und alle Änderungen, die einer gemacht hat, weg sind.

Wie können wir das verhindern? Ist es eine Einstellung bei Excel? Gibt es eine andere Benachrichtigungsmöglichkeit?
Gibt es eine Möglichkeit, dass A speichert B speichert und sie werden zusammengeführt (die Versionen)?
Bzw. wenn das nicht möglich ist gibts die Möglichkeit das B benachrichtigt wird wenn A daran arbeitet?!

Vielleicht sollte ich dazu sagen das:

Unser verwaltungs PC (wo A und B drauf zu greifen) ist ein Mac Mini.
A benutzt ein Recher
und
B auch ein Mac Mini
das passiert auch bei weiteren PC´s und wenn unsere Cheffin mit ihren MacBook auch drauf zugreift.
Office Version auf der Verwaltung: Office 2004 (MacMini).

Ich danke sehr schon mal im voraus und hoffe auf schnelle Antwort =).

 

[Excel 2003] Schreibgeschützt öffnen

Hallo oliversheim,

ich weiss leider nicht wieso die Meldung schreibgeschützt nicht erscheint, aber es könnte evtl. mit der Arbeitsmappenfreigabe zusammenhängen???

Bei meinem Beispiel wird der Dialog Schreibgeschützt, Benachrichtigen, Abbrechen angezeigt und dann auf die Auswahl des Benutzers reagiert.

Vielleicht hilft es auch, wenn die Meldung NICHT erscheint??

Hier der Code:
Beim Workbook Open Ereignis, im VBA Editor bei Diese Arbeitsmappe folgenden Code eingeben

Private Sub Workbook_Open()
Application.DisplayAlerts = False
If ActiveWorkbook.ReadOnly = True Then
UserForm1.Show
Else
ActiveWorkbook.Worksheets("START").Activate
End If
Application.DisplayAlerts = True
End Sub

Wird die Datei schreibgeschützt geöffnet, kommt eine Userform, ansonsten die Tabelle Start.

Weiters habe ich eine Userform erstellt, mit einem Button und und einem Label. In die Userform folgenden Code:

Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
Label1.Caption = "Die Datei wird momentan bearbeitet!" & Chr(13) & "Die Datei wird daher geschlossen, versuchen Sie es bitte später nochmals!"
End Sub

'Fehlermeldung wenn das Schliesskreuz benutzt wird
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then
Cancel = 1
MsgBox "Bitte mit OK bestätigen!", vbOKOnly + vbInformation, "Schaltflächen verwenden"
End If

End Sub

Bei der Schaltfläche CommandButton1 - Caption "Hier Klicken" und folgenden Code hinterlegen:

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False

If Workbooks.Count > 1 Then
Application.DisplayAlerts = False
ActiveWorkbook.Saved = True
ActiveWorkbook.Close
Else
Application.DisplayAlerts = False
ActiveWorkbook.Saved = True
Application.Quit
End If
Application.DisplayAlerts = True
Unload Me
End Sub


LG charlykdk :!:

 

Vielen Dank. Versteh zwar kaum was habe aber einen Weg gefunden =).