Tabellenblattmenü aus und einblenden
19.01.2018 15:43:07
STeve
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
mfg
STeve
Anzeige