Wieder mal brauche ich Hilfe:
Arbeitsmappe mit 6 Blättern.
Hier wird unterbunden dass mit der re. MT das Kontextmenü der Blätter aufgefunden werden kann.
Also kein Umbenennen und kein Löschen eines Blattes möglich.
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
With ThisWorkbook
Select Case Sh.Name
Case "Suchbutton", "PI 1", "PI 2", "PI 3", "PI 4", "PI 5"
Application.CommandBars("Ply").Enabled = False
End Select
End With
End Sub
Nach Schließen der Arbeitsmappe will ich es aber wieder - mit diesem Code - einschalten.
Private Sub Workbook_Deactivate()
Application.CommandBars("Ply").Enabled = True
End Sub
Leider scheint aber bei keiner Mappe das Kontextmenü mehr auf?mfg
STeve