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?
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen