AW: Zweite Datei starten für bestimmte Benutzer ?
04.09.2008 09:45:00
Selma
Hallo Hajo,
es funktioniert.
Eine Frage noch: Ich habe den Code jetzt wie folgt....
Option Explicit
Private Sub Workbook_Open()
Select Case UCase(Environ("Username"))
Case "ADMINISTRATOR", "SELMAM", "ANDREAB"
Workbooks.Open ("M:\pers\Stammdaten.xls")
End Select
Windows("Daten.xls").Activate
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim wks As Variant
For Each wks In Workbooks
If wks.Name = "Stammdaten.xls" Then
Workbooks("Stammdaten.xls").Activate
ActiveWorkbook.Close SaveChanges:=False
Exit For
End If
Next
Me.Saved = True
End Sub
Die Datei "Stammdaten.xls" soll beim Schließen der Datei "Daten.xls" ohne Speichern mitgeschlossen werden. Wenn ich die Datei "Daten.xls" editiert / modifiziert habe, und anschließend die Datei schließe werden die Änderungen nicht gespeichert. Woran liegt es ?
Liebe Grüße,
Selma