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
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