Fehler im Ablauf
27.10.2003 11:35:29
Valentino
Ich habe ein Problem, bei dem ich nicht mehr weiterkomme.
Ich bin so nah dran, aber es fehlt noch etwas.
Folgendes möchte ich erreichen!
Es erfolgt eine Abfrage über den Coputernamen.
Wenn beide genannten Computernamen indentifiziert sind, erfolgt eine MSGBox.
Bei gedrücktem Ja soll auf jeden Fall eine Speicherung erfolgen und eine NET-Nachricht gesendet
werden.
Bei gedrückten Nein soll eine Speicherung erfolgen, aber keine NET-Nachricht versendet werden.
Beiderseits soll das Arbeitsblatt geschlossen werden. Alles ohne Nachfrage.
Wenn die genannten Computernamen nicht entsprechen, erfolgt auf jeden Fall keine Speicherung und das ohne Nachfrage.
Wie kann ich zur gleichen Zeit 2 NET-Nachrichten zu unterschiedlichen PC-Benutzer versenden?
Hier mein Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Environ(5) = "COMPUTERNAME=LAPTOP" Or Environ(5) = "COMPUTERNAME=HomePC" Then
aus = MsgBox("Nachricht?", vbYesNo + vbQuestion + _
vbDefaultButton2, "Nachfrage")
If aus = vbYes Then
ActiveWorkbook.Save
Ergebnis = Shell("cmd /K net send laptop Text", 0)
End If
Else
If aus = vbNo Then
Application.DisplayAlerts = False
ActiveWorkbook.Save
ActiveWorkbook.Close
End If
Application.DisplayAlerts = False
ThisWorkbook.Close savechanges:=False
End If
End Sub
Zudem habe ich noch einen zweiten Code für die nicht indentifizierten.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Select Case Application.UserName
Case Is <> "User1", "User2"
Cancel = True
End Select
End Sub
Für eure Hilfe wäre ich sehr dankbar.
Gruß
Valentino