VBA Code erweitern "Befehle ausschalten"
29.11.2007 21:02:05
Armin
habe mir folgenden Code im Archiv gesucht, und konnte ihn in meine Tabelle Einbauen.
nun will ich ihn mit den Kontextbefehlen "kopieren" und "einfügen" noch erweitern.
Bisher blieb es ohne erfolg nur Fehler beim kompilieren.
Es wäre auch nicht schlecht wenn er nur in einer Tabelle gehen würde und nicht in der Gesamten Mappe.
geht sowas oder bin ich ganz auf dem Holzweg?
Danke im Voraus
Armin
Der Code:
Option Explicit
Private Sub prcControlEnableDisable(intId As Integer, bolStatus As Boolean)
Dim myCommandBar As CommandBar, myCommandBarControl As CommandBarControl
For Each myCommandBar In CommandBars
Set myCommandBarControl = myCommandBar.FindControl(ID:=intId, Recursive:=True)
If Not myCommandBarControl Is Nothing Then myCommandBarControl.Enabled = bolStatus
Next
End Sub
Public Sub prcOff()
Call prcControlEnableDisable(21, False)
End Sub
Public Sub prcOn()
Call prcControlEnableDisable(21, True)
End Sub