Frage an Leo
31.07.2005 15:30:02
Uwe
der Code steht an der falschen Stelle.
Die Mappe Bestellen soll nur geschlossen werden wenn bei "Msg-Box Speichern " mit Nein oder Ja geantwortet wird.
Beim Abbrechen soll der Rückweg sprich die Mappe "Bestellen" schon noch offen bleiben.
Danke Uwe
Option Explicit
Sub Textfeld6_BeiKlick()
Dim Antwort
Dim fn
Sheets("Formular").Unprotect Password:="stern123"
Sheets("Formular").Copy
Cells.Copy
Cells.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
On Error GoTo ERRHANDLER
Sheets("Formular").Protect Password:="123"
'Drucken
Antwort = MsgBox("Blatt ""Formular"" drucken?", vbYesNoCancel)
If Antwort <> vbCancel Then
If Antwort = vbYes Then ActiveSheet.PrintOut
'Speichern
Antwort = MsgBox("Blatt ""Formular"" speichern?", vbYesNoCancel)
If Antwort <> vbCancel Then
If Antwort = vbYes Then
fn = Application.GetSaveAsFilename(ThisWorkbook.Path & "\Formular.xls", "Excel-Dateien (*.xls), *.xls")
If fn <> False Then 'Nicht "Abbrechen" gedrückt
On Error Resume Next
ActiveWorkbook.SaveAs Filename:=fn
If Err.Number > 0 Then MsgBox "Formular wurde nicht gespeichert!"
On Error GoTo 0
End If
End If
End If
End If
ERRHANDLER:
ActiveWorkbook.Close savechanges:=False
Sheets("Formular").Protect Password:="stern123"
If Err.Number > 0 Then MsgBox Err.Description, , "Fehler Nr. " & Err.Number
Thisworkbook.close False
End Sub