Wie erkennen Sie, wenn ein Benutzer ein Arbeitsblatt mit Strg-Klick in Excel erstellt?

Question

Gibt es eine Möglichkeit in Excel VBA zu erkennen, wenn ein Benutzer ein Arbeitsblatt erstellt, indem er Strg gedrückt hält und auf eine Registerkarte klickt und dann zieht?

Das newsheet Ereignis erscheint nicht ausgelöst werden, wenn dies so geschieht frage mich, ob es eine andere Möglichkeit, dies zu erkennen ...

Answer 1

Der einzige Weg, ich weiß, wie man um das Problem ist Verfolgen Sie die Anzahl der Blätter.

Sie können dies tun, indem Sie einem Modul eine öffentliche Variable hinzufügen, z.

Public SheetCount As Integer 

Und dann fügen Sie die folgenden Event-Handler in Thisworkbook

Option Explicit 

Private Sub Workbook_Open() 
    SheetCount = ThisWorkbook.Sheets.Count 
End Sub 

Private Sub Workbook_SheetActivate(ByVal Sh As Object) 

    Dim newCount As Integer 
    newCount = ThisWorkbook.Sheets.Count 

    If newCount > SheetCount Then 
     SheetCount = newCount 
     MsgBox "sheet added" 
    End If 

End Sub 

Private Sub Workbook_SheetBeforeDelete(ByVal Sh As Object) 
    SheetCount = SheetCount - 1 
End Sub 

Die MsgBox ist nur für Testzwecke, natürlich.