Ich benötige eine Prozedur, die bei Mausbewgung
oder click den Passwortschutz automatisch generiert bzw. aktiviert.
Wer kann mir behilflich sein?
Private Sub passwort()
Dim i As Integer
For i = 1 To Worksheets.Count
Sheets(i).Protect "xy"
Next i
End Sub