worksheet_beforeunprotect

[falken]

Hallo Forum,
im web habe ich englischsprachigen Code gefunden, der das Ereignis abfängt, dass das Blatt „entschützt“ wird. Diesen wollte ich so anpassen, dass dann immer automatisch die ursprüngliche Sortierung hergestellt wird, wenn ich die Formeln ändern will, weil das sonst nicht passt.
Das Problem ist aber, dass der Code gar nicht erst gestartet wird
Ich glaube ja, dass es hier ein Übersetzungsproblem gibt, dass also der Code in einem englischen Umfeld laufen würde und ich nur ein paar Abfragen ändern müsste …
Vielleicht weiß ja Jemand, was und wie ( ? ).

Freundliche Grüße

Thomas

In einem Standardmodul soll stehen:
Public Sub Custom_Protect()
    On Error Resume Next
    With CommandBars.ActionControl
           If Not ActiveSheet.ProtectContents Then
                Application.Dialogs(xlDialogProtectDocument).Show
                ActiveSheet.Protect
                .Caption = „Un&amp:stuck_out_tongue_winking_eye:rotect Sheet…“
           ElseIf ActiveSheet.ProtectContents Then
                ActiveSheet.Unprotect
                If Err.Number 0 Then
                    MsgBox „Wrong Password ! - Try again“, vbCritical, „Unprotecting Sheet“
                    Err.Clear
                    Exit Sub
                End If
                If Not ActiveSheet.ProtectContents Then
                    .Caption = „&amp:stuck_out_tongue_winking_eye:rotect Sheet…“
                    MsgBox „You have unprotected the Sheet !“ & vbCr & _
                    „Be careful you don’t mess up the sheet layout !“, vbExclamation
                End If
           End If
    End With
End Sub

Im code des zu überwachenden Blattes:

Private Sub Worksheet_Activate()
'Change Built-In protection functionality
    On Error Resume Next
    With Application.CommandBars(1).Controls(„Tools“).Controls(„Protection“)
        .Controls(„UnProtect Sheet…“).OnAction = „Custom_Protect“
        .Controls(„Protect Sheet…“).OnAction = „Custom_Protect“
    End With
End Sub

Private Sub Worksheet_Deactivate()
’ Restore Built-in functionality for other sheets.
    On Error Resume Next
    With Application.CommandBars(1).Controls(„Tools“).Controls(„Protection“)
        .Controls(„UnProtect Sheet…“).Reset
        .Controls(„Protect Sheet…“).Reset
    End With
End Sub

[falken]

Problem umgangen
Hallo,
inzwischen habe ich ein einfaches „workaround“ für mein Problem gefunden indem ich das Register mit den Quelldaten durch Einfügen von Zeilen auf „gleiche Höhe“ gebracht habe wie das Zielblatt. Somit gibt es keinen Versatz mehr in den Bezügen und das Sortieren bringt Nichts durcheinander.

Falls doch noch Jemand sportlichen Ehrgeiz entwickelt ( immerhin wird in den deutschsprachigen Foren das Abfangen eines Ereignisses „Blattschutz aufheben“ als unmöglich bezeichnet, weil es ein solches Ereignis nicht gibt ), gebe ich die Fundstelle des Makros bekannt, das sich anscheinend auf die Betätigung des fest eingebauten Menüpunktes bezieht:
http://www.mrexcel.com/forum/excel-questions/135346-…

Habe die Einträge im Blattmodul auch „übersetzt“, es passiert jedoch leider immer noch nicht, was im
Standardmodul programmiert ist

Private Sub Worksheet_Activate()
'Change Built-In protection functionality

On Error Resume Next
With Application.CommandBars(1).Controls(„Überprüfen“).Controls(„Änderungen“)
.Controls(„Blattschutz aufheben“).OnAction = „Custom_Protect“
.Controls(„Blatt schützen“).OnAction = „Custom_Protect“
End With
End Sub

Private Sub Worksheet_Deactivate()
’ Restore Built-in functionality for other sheets.

On Error Resume Next
With Application.CommandBars(1).Controls(„Überprüfen“).Controls(„Änderungen“)
.Controls(„Blattschutz aufheben“).Reset ’ engl.:„Unprotect Sheet…“
.Controls(„Blatt schützen“).Reset ’ engl.:„Protect Sheet…“
End With
End Sub

Freundliche Grüße
Thomas