Einzelnes Tabellenblatt vor löschen schützen

[elamigo]

Moin Leute, ich suche einen Code mit dem ich bestimmte Tabellenblätter vor dem löschen schützen möchte. Ich habe derzeit aktuellen Code welchen ich in "Diese Arbeitsmappe" habe

Code:

Option Explicit
Private Sub Workbook_Open()
Call b_name
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Call b_name
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Call b_name
End Sub
Private Sub b_name()
If ActiveSheet.Name = "Tabelle1" Then
  ThisWorkbook.Protect Structure:=True, Password:="a"
Else
  ThisWorkbook.Unprotect Password:="a"
End If
End Sub

Wie kann ich den Code erweitern das ich mehrere Arbeitsblätter schützen kann. Hat jemand eine andere Idee wie ich bestimmte! Tabellenblätter vor dem löschen schützen kann? 

Wenn ich bei dem obigen Code Tabelle1 kopiere und dann umbennen ist diese dann auch geschützt oder nicht?

[elamigo]

Lösung läuft über ElseIf

trotzdem danke an alle Mitdenker.