Hallo,
das kannst du so machen, wie du dir das vorstellst. Definiere dazu im
Namensmanager den Namen pw und gib im Feld "bezieht sich auf" die folgende Formel ein:
=ZEICHEN(ABRUNDEN(ZUFALLSZAHL()*94;0)+33)
Dann kannst du wie gewünscht =pw&pw&pw usw. verwenden.
Mit der Formel deckst du allerdings nur die Sonderzeichen ab, welche du auch auf amerikanischen Tastaturen findest. Wenn du nicht auch lokale Sonderzeichen wie ä, ö, ü, ß, & usw. einschließen, oder bestimmte Zeichen ausschließen willst, empfiehlt sich eine Benutzerformel über VBA. Gib dazu in einem Standardmodul (Menü Einfügen -> Modul) den folgenden Code ein.
für die Auswahl aus bestimmten Zeichen:
Function Passwort(anz As Long)
Dim valide As Boolean
Randomize Timer
Liste = Array("!", "[#]", "[$-~]", "&", "ä", "Ä", "ö", "Ö", "ü", "Ü", "ß", "&", "€")
For i = 1 To anz
Do
zchn = Chr(Int(Rnd * 255))
For l = 0 To UBound(Liste)
If zchn Like Liste(l) Then valide = True
Next l
Loop Until valide
valide = False
Passwort = Passwort & zchn
Next i
End Function
um ein Zeichen auszuschließen stelle ein Ausrufezeichen davor, setze das Ganze in eckige Klammern und füge das der Liste hinzu. "[!A]" schließt z.B. den Großbuchstaben A aus der Liste möglicher Zeichen aus. nähere infos gibt's
hier.
Für ein siebenstelliges Passwort gibst du dann nur noch die Formel =Passwort(7) ein.
Aber ob du dir das kryptische Chaos merken kannst ist fraglich. Einfacher ist es sich einen Spruch auszudenken. Sowas wie: "
meine
Mutter
ist
die
Beste
der
Welt" und davon nur die Anfangsbuchstaben zu verwenden. Ggf. ergänzt mit einer Zahl und ein bis drei Sonderzeichen an beliebiger Stelle. Wenn dann Zahl, Zeichen und Position von diesen regelmäßig wechseln ist der Spruch relativ sicher.
PS: Exakt dieses Passwort wir von mir natürlich nirgends verwendet sondern dient nur als Beispiel.
Gruß Mr. K.