Hallo Forum,
ich habe vor kurzem Hilfe von Rudi und Sepp bezgl. meines o. g. Themas bekommen.
https://www.herber.de/forum/archiv/1276to1280/t1279711.htm
Der folgende Code wurde mir von Rudi freundlicherweise zur Verfügung gestellt:
<pre>Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim vntID, arrID
arrID = Array(847, 848, 889, 945)
With Application.CommandBars("Ply")
For Each vntID In arrID
.FindControl(ID:=vntID).Enabled = Not Sh Is Sheets("Sekof Umlage")
Next
End With
End Sub</pre>
Dummerweise sind die Funktionen nun dauerhaft abgeschaltet.
Wie kann ich bei verlassen der Arbeitsmappe die Funktionen wieder einschalten?
Vielen Dank im Voraus für eine Rückmeldung.
Viele Grüße
Ralf