ich brauche bitte eure Hilfe.
Ich habe eine Vorlage gebastelt in der folgender Code nur in der .xlt Version durchgeführt werden soll.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
pw = InputBox("Bitte geben sie Ihr Passwort ein")
If Not pw = "8228" Then
Cancel = True
MsgBox "Sie haben kein oder ein falsche Passwort eingeben"
Else
Cancel = False
With Sheets("Protokoll")
Dateiname = .[d10] & Format(.[d8], "_DD.MM.YYYY") & ".xls"
End With
Application.EnableEvents = False
Application.Dialogs(xlDialogSaveAs).Show Dateiname
Cancel = True
Application.EnableEvents = True
End If
End Sub
(Den Code habe ich gefunden und etwas angepasst)
Meine VBA Kenntnisse sind leider ehr bescheiden bis gar nicht vorhanden.
Kann mir jemand helfen?
Grüße
Stefan