Datei schliessen
Lothar
ich hab' da mal ein Problem.
Ich wollte eine Exceldatei, die von mehreren Leuten genutzt werden soll, nur per Makro schliessen lassen
und das Schliessenkreuz in der rechten oberen Ecke deaktivieren.
Habe da auch im Netz einen passenden Code von Hajo gefunden.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Bozu = False Then
Cancel = True
MsgBox "Bitte benutzen Sie den Schliessen Button"
End If
End Sub
Hab' versucht mit
...ActiveWorkbook.Close
...ActiveWindow.Close
...Workbooks("Test.xls").Close
...Application.Quit
leider ohne Erfolg.
Vielleicht kann mir ja jemand den richtigen Code verraten.
Dieser soll in einem Commandbutton einer Userform liegen.
Vielen Dank für Eure Hilfe
Gruß Lothar
Anzeige