Hallo zusammen,

ich habe mir mal 2 Makros zusammenstellen lassen. Jetzt meine Frage:

Kann ich diese beiden Makros zusammenfassen, sodas ich mit einem Befehl das alte Passwort lösche und gleichzeitig ein neues Passwort vergebe?

Sub Passwort_auf_alle_Blätter_löschen()
Dim Tabz As Integer
Dim i As Integer
Tabz = ActiveWorkbook.Worksheets.Count
For i = 1 To Tabz
Sheets(i).Protect DrawingObjects:=False, _
Contents:=False, _
Scenarios:=False, Password:="freitag"
Next i
End Sub

Sub Passwort_auf_alle_Blätter_setzen()
Dim Tabz As Integer
Dim i As Integer
Tabz = ActiveWorkbook.Worksheets.Count
For i = 1 To Tabz
Sheets(i).Protect DrawingObjects:=True, _
Contents:=True, _
Scenarios:=True, Password:="gestern"
Next i
End Sub

Entweder machst du eine neue Sub wo du die beiden anderen mit Call aufrufst, oder du packst einfach den ganzen Code in nur eine Sub.