Office: Blatt schützen vor Löschen und Umbennen

Hallo,

ich möchte bei einem Tabellenblatt verhindern, dass dieses gelöscht und umbenannt wird. In der Arbeitsmappe soll aber weiterhin die Möglichkeit bestehen Tabellenblätter einzufügen. Ich habe diesem Tabellenblatt schon ein bisschen Blattschutz zukommen lassen (einzelne Zellen sind geschützt und manche nicht u.s.w.)

Wie ist dieses möglich?

Danke und LG

 

Hallo!

Ich wusste haargenau, dass ich vor kurzem etwas Ähnliches beantwortet hatte, aber ich konnte den verfl...xten Beitrag nicht mehr finden...
Wer ahnt denn auch, dass es im Thread "Urlaubsliste" war!

Meine Fähigkeiten übersteigt es, aber hier scheint (zumindest was das Löschen betrifft) eine funktionierende Lösung zu sein.
Ich hab's aber nicht ausprobiert.

 

Hallo,

ich habe mir den Beitrag unter h i e r mal angesehen und den Code in DieseArbeitsmappe eingefügt.


In DieseArbeitsmappe:

Code:


Option Explicit

Dim loeschen As CommandBarControl

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Tabelle1" Then
For Each loeschen In Application.CommandBars.FindControls(ID:=847)
loeschen.Enabled = False
Next
End If
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
If Sh.Name = "Tabelle1" Then
For Each loeschen In Application.CommandBars.FindControls(ID:=847)
loeschen.Enabled = True
Next
End If
End Sub


Was muss ich noch tun, damit es funktioniert? Bei mir will er immer ein Makro erstellen, wenn ich es ausführen möchte.

Jetzt weiß ich nicht so recht weiter, da dieser Code auch teilweise meine Fähigkeiten übersteigt. Was bewirkt denn dieses außerhalb der Prozedur stehende 'Option Explicit' ?

Kann mir bitte jemand helfen.
Danke
LG