VBA Code für mehrere Worksheets
27.07.2022 10:22:27
Boris.S.
Ich habe einen VBA Code, darin steht auch das er die Excelseite wieder mit einem Passwort sperrt, nachdem er seinen Job ausgeführt hat.
Private Sub Workbook_Open()
Worksheets(1).Activate
Dim wks As Worksheet
Set wks = Worksheets(1)
With wks
.Unprotect Password:="SCF"
.Range("B5:K500").Sort Key1:=.Range("C5"), order1:=xlAscending, Header:=xlGuess
.Protect Password:="SCF", AllowFiltering:=True, AllowSorting:=True
End With
End Sub
Ich hätte aber gerne das er alle Blätter in dieser Excel immer beim beenden mit diesem Passwort versieht. (falls man mal was ändert und vergisst es wieder zu sperren) Habe mich schon an verschiedenen Lösungen probiert aber es klappt nicht.
Liebe Grüße Boris