PC-HELP.CZ

Zdravím,
prosím o pomoc. Potřeboval jsem deaktivovat tlačítko "smazat..." v nabídce při kliknutím pravého tl. myši.
Použil jsem následující makro, které ho však smazalo úplně:

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim cmdBCntrl As CommandBarControl
Dim pos As Integer
On Error Resume Next
Sh.Protect UserInterFaceOnly:=True
With Application.CommandBars("Cell")
pos = .Controls("Delete...").Index
Set cmdBCntrl = .Controls.Add(Before:=pos, Temporary:=True)
.Controls("Delete...").Delete
End With
On Error GoTo 0
End Sub

Potřeboval bych však toto tlačítko opět zobrazit, ale nemůžu nikde najít, jak toto provést.
Přikládám obrázek, kde toto tlačítko chybí.
Předem děkuju za odpověď.

Pokud se nepletu, tak stačí zastavit tu rutinu VBA.

To makro už v tom sešitu vůbec nemám. Nepomohlo ani přeinstalování MS Office.

Zkuste nejdřív

Možná ti pomůže tento návod (v angličtině), anebo tento a další na netu - je jich tam spousta.

xlnc píše:Zkuste nejdřív

Kód: Vybrat vše

Application.CommandBars("Cell").Reset

Děkuji mnohokrát. Pomohlo. Označuji za vyřešené.