Office: Zwingende Eingabe in einer Vorlage

Will eine Vorlage erstellen, in der der Klientenname in E5 eingegeben werden muss.
Prinzipiell moeglich mit kleinem VBA.

Jedoch: wenn ich das Ding dann als leere Vorlage dh ohne Namen in E5 abspeichern will, muss ich dort etwas hineinschreiben. Das ist dann aber keine jungfräuliche Vorlage mehr.

 

Code:

Option Explicit

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If Right(ThisWorkbook.Name, 4) <> "XTM" Then
        If Cells(1, 5).Value = "" Then
            MsgBox "Bitte Namen eingeben (E5)"
            Cells(1, 5).Select
            Cancel = True
        End If
    End If
End Sub

 

Hallo Hajo_Zi, mit diesem Code bin ich einen Schritt weiter, aber noch nicht ganz am Ziel.

Zuerst bin ich ueber XTM gestolpert; das ist doch kein Excel File-Typ!? ich hab das dann auf xltm geaendert und als Macro-Enabled Template abgespeichert und dann klappts. DANKE!

Jetzt aber die naechste Herausforderung: Wenn mein Benutzer nun ein neues Dokument mit diesem Template erstellt und dann speichern will, bekommt er den Templatenamen als Dateiname & 1 und xls (Excel 97-2003) als Dateityp vorgeschlagen.
Ist es moeglich, den Dateinamen auf <leer> und den Dateityp auf xlsb vor-einzustellen?

 

mit XLTM hast Du recht.
Mit dem speichern kann ich Dir nicht helfen mein vorschlag ist XLSM.

Gruß Hajo

 

unter, Datei, Optionen, Speichern einstellen als XLSB speichern.

Gruß Hajo

 

Danke!