vba erkennen/verhindern Zeilen löschen von Schnellzugriffsleiste

Question

I-Code geschrieben, die Zeilen in einem Arbeitsblatt in anoteher verstecktes Blatt gelöscht Archiv:

Application.CommandBars("Row").FindControl(ID:=293).OnAction = "ArchiveRow" 

Leider Reihen durch Rechtsklick-Menü funktioniert dies nur, wenn das Löschen.

Gibt es eine Möglichkeit, Zeilen über die Symbolleiste für den Schnellzugriff oder mithilfe einer Tastenkombination zu erkennen oder zu verhindern?

Answer 1

Eine mögliche Problemumgehung für dieses Problem besteht darin, die Verknüpfungen und die Symbolleiste für den Schnellzugriff zu deaktivieren, wenn die Arbeitsmappe aktiviert wird, und sie dann wieder zu aktivieren, wenn sie deaktiviert wird. Obwohl, wenn Sie die Symbolleiste für andere Dinge benötigen, kann dies nicht die beste Option sein:

In Thisworkbook Objekt:

Private Sub Workbook_Activate() 

    Application.ScreenUpdating = False 
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)" 

    With Application 
     .OnKey "^-", "" 
    End With 

    Application.ScreenUpdating = True 

End Sub 

Private Sub Workbook_Deactivate() 

    Application.ScreenUpdating = False 
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)" 

    With Application 
     .OnKey "^-", "^-" 
    End With 

    Application.ScreenUpdating = True 

End Sub 

Answer 2

kann ich Ihnen die folgende Abhilfe bieten:

• Vergewissern Sie sich, dass Sie Ihr Arbeitsblatt zu sperren, und wenn Sie es sperren, Sie nicht zulassen, Löschen von Zeilen und Spalten.

• Wenn Sie Ihr Makro verwenden möchten, setzen Sie einen Trigger irgendwo, der das Blatt wie folgt ungeschützt - Sheets("Sheet1").Unprotect "mypassword".

• Dann am Ende des Makros, können Sie das Blatt wieder mit diesem Schutz: Sheets("Sheet1").Protect "mypassword"

Es wird funktionieren, aber ich bin nicht sicher, ob dies ist, was Sie wollen.