Übernimmt nicht den gewünschten Code
08.11.2013 10:01:03
Andreas
Wenn ich den unten aufgeführten Code in meine UserForm (diese Arbeitsmappe) eingebe dann kann ich leider die Funktion Arbeitsmappe freigeben nicht mehr ausführen.
Die UserForm wird von mehreren User gleichzeitig genutzt, darüber hinaus soll bei Schließung Excel ohne Aufforderung Speichern geschlossen werden.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Saved = True
ThisWorkbook.Close
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
End Sub
Hoffe ich kann Hilfe bekommen.
Ich danke euch im Voraus.
Gruß
Andreas