habe folgendes gefunden, es Funktioniert auch wie es soll.
Wenn man die Excel Mappe speichert, sieht man bein tippen das Passwort.
Besteht die möglichkeit, das die Buchstaben oder zahlen als * angezeigt werden,
so das keiner das Passwort sehen kann.
Vielen Dank schon einmal im voraus & ein schönes Wochenende
Bernd
Option Explicit
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim speichern As String
speichern = InputBox("Speichern ist nur nach Eingabe" & Chr(10) & "eines Passworts möglich !")
If speichern = "Bernd" Then
Exit Sub
Else
MsgBox ("Falsches Passwort bzw. Speicherung abgebrochen !")
Cancel = True
End If