Workbook_BeforeClose
27.08.2014 08:12:05
Ludwig
Ichgebe auf, brauche Hilfe! Möchte beim Verlassen des workbooks eine schöne Meldung zeigen. Funktioniert auch solange kein weiteres workbook offen ist. sobald eins offen ist stürzt Excel ab und alles ist dahin! Hat jemand einen guten Rat wo der Fehler liegt?
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim TB1 As Worksheet
Dim objWB As Workbook
Dim bolQuit As Boolean
Set TB1 = Worksheets("H-MENÜ")
TB1.Visible = xlSheetVisible
TB1.Activate
ActiveWorkbook.Close False
Dim WsShell ' Variable für Copyright
Dim LoI As Long
Set WsShell = CreateObject("WScript.Shell")
LoI = WsShell.Popup(" ...und Tschüss sagt: " _
& "" & vbCrLf & vbCrLf & " schöne Meldung! " _
& "" & vbCrLf _
& "" & vbCrLf & vbCrLf & vbCrLf _
& Chr(169) & " 2010", 1, "Copyright-Hinweis")
'Unload Me
bolQuit = True
For Each objWB In Application.Workbooks
If objWB.Name Me.Name Then
'If objWB.Windows(1).Visible = True Then
objWB.Windows(1).Activate
bolQuit = False
Exit For
'End If
End If
Next objWB
If bolQuit = True Then Application.Quit
End Sub
Vielen Dank im Voraus.