VBA-Sortieren trotz VBA-Blattschutz geht nicht
08.10.2018 09:22:57
Werner
ich habe in meiner Geburtstagsliste ein Sortierung und Blattschutz s.u.
wenn ich den Blattschutz ausführe, kann ich nicht mehr sortieren.
Wie kann man es anpassen?
Sub SortiereSpalteAufsteigend()
Dim Sortierspalte As String
Dim Bereich As String
Bereich = "C11:L200"
Sortierspalte = "G"
ActiveSheet.Range(Bereich).Sort _
Key1:=Range(Sortierspalte & "1"), Order1:=xlAscending, _
Header:=xlGuess, MatchCase:=False, _
Orientation:=xlTopToBottom
End Sub
und Blattschutz:Option Explicit ' Immer zu empfehlen
Sub BlattSchutz()
' kennwort Makro
' Tastenkombination: Keine
Dim myPwd As String, myPwd2 As String
Dim wks As Worksheet
myPwd = Application.InputBox("Passwort eingeben")
myPwd2 = Application.InputBox("Wiederholung")
If myPwd2 = myPwd Then
For Each wks In ActiveWorkbook.Worksheets
wks.Protect Password:=myPwd, DrawingObjects:=True, _
Contents:=True, Scenarios:=True, AllowFormattingCells:=True, _
AllowFormattingColumns:=True, AllowFormattingRows:=True
Next wks
Else
MsgBox "Passwort falsch"
End If
End Sub
Sub freigeben()
' kennwort Makro
' Tastenkombination: Keine
Dim myPwd As String, myPwd2 As String
Dim wks As Worksheet
myPwd = Application.InputBox("Passwort eingeben")
myPwd2 = Application.InputBox("Wiederholung")
If myPwd2 = myPwd Then
For Each wks In ActiveWorkbook.Worksheets
wks.Unprotect Password:=myPwd
Next wks
Else
MsgBox "Passwort falsch"
End If