kann irgendwie verhindert werden dass eine Excel-Datei durch den Schliessen Befehl (oben rechts) geschlossen werden kann?
kann der Knopf deaktiviert werden?
gruss, daniele
gruss, daniele
Code in Tabelle einfügen:
Private Sub CommandButton1_Click()
TextBox1.Value = True
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=fname
TextBox1.Value = False
End Sub
Code in "dieseArbeitsmappe" einfügen
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
faname = ActiveWorkbook.Name
speichernja = Workbooks(faname).Worksheets("Tabelle1").TextBox1.Value
If speichernja = False Then
MsgBox "Zum speichern den Button drücken!"
Cancel = True
End If
Workbooks(faname).Worksheets("Auflistung").TextBox1.Value = False
End Sub
mfg Robert
nun, prinzipiell ist dies ein cleveren Ansatz, jedoch bekomme ich eineige Probleme mit "fname": muss ich da den Dateinamen eingeben?