Microsoft Excel

Herbers Excel/VBA-Archiv

Tabellenblattmenü aus und einblenden


Betrifft: Tabellenblattmenü aus und einblenden von: STeve
Geschrieben am: 19.01.2018 15:43:07

Hallo liebe Helfer.

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

  

Betrifft: AW: Tabellenblattmenü aus und einblenden von: mumpel
Geschrieben am: 19.01.2018 16:42:45

Hallo!

Ich befürchte dass "SheetActivate" und "Workbook_Deactivate" miteinander kollidieren. Versuch es mal zusätzlich über "Workbook_BeforeClose".

Gruß, René


  

Betrifft: Hi Mumpel.. von: STeve
Geschrieben am: 19.01.2018 18:05:50

...danke für deine schnelle Antwort.....habe die Idee mit WBK SheetActivate und WBK Deactivate aus dem Netz (aus einem Lehrbuch)..aber fcs sein Code funzt eh.

Danke an dich und noch schönen Tag


  

Betrifft: AW: Tabellenblattmenü aus und einblenden von: fcs
Geschrieben am: 19.01.2018 16:49:25

Hallo Steve,

ich hab deine Makros jetzt mal getestet und etwas ergänzt.

Wenn die Funktion der rechten Maustaste bei allen Blättern nicht möglich sein sollen reicht evtl. auch die Struktur der Arbeitsmappe zu schützen, dann sind die meisten Funktionen deaktiviert.

Gruß
Franz

'Alle Makros unter DieseArbeitsmappe

Private Sub Workbook_Activate()
    Call Workbook_SheetActivate(Sh:=ActiveSheet)

End Sub

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
             Case Else
             Application.CommandBars("Ply").Enabled = True
       End Select
End With


End Sub


'Vor dem Schließen der Arbeitsmappe will ich es aber wieder - mit diesem Code - einschalten.

Private Sub Workbook_Deactivate()
  
  Application.CommandBars("Ply").Enabled = True

End Sub



  

Betrifft: Danke Franz....... von: STeve
Geschrieben am: 19.01.2018 18:07:38

....hallo fsc......dein Code funzt....somit alles bestens.
Danke dir und noch einen schönen Tag.

mfg STeve


Beiträge aus dem Excel-Forum zum Thema "Tabellenblattmenü aus und einblenden"