AW: Teile der Untermenüs aktivieren/deaktivieren
24.01.2008 11:01:00
Oliver
Hallo Knut,
ein berechtiger Einwand! :-)
Sub Menü_aktivieren()
'*******Variablen-Deklaration*******
Dim CB As CommandBar '***
Dim M_G() As Variant, CBB As Variant '***
Dim i1 As Long, S_i1 As Long '***
'*******Variablen füllen*******
ReDim M_G(0) '***
'*******CB füllen*******
For Each CB In Application.CommandBars
For Each CBB In CB.Controls
If IsEmpty(M_G(0)) = False Then
ReDim Preserve M_G(UBound(M_G) + 1) '***
End If
Set M_G(UBound(M_G)) = CBB
Next CBB
Next CB
ID_füllen:
For i1 = S_i1 To UBound(M_G)
M_G(i1).Enabled = True
If M_G(i1).Type >= 10 And M_G(i1).Type
Sub Menü_deaktivieren()
'*******Variablen-Deklaration*******
Dim CB As CommandBar '***
Dim M_G() As Variant, CBB As Variant, CBB_ID As Variant '***
Dim i1 As Long, S_i1 As Long '***
'*******Variablen füllen*******
S_i1 = 0 '***
ReDim M_G(0) '***
Variable.Variablen_Menü CBB_ID
'*******Abbruch*******
If BE_G = "AD" Then
Menü_aktivieren
GoTo Abschluss
End If
'*******CB füllen*******
For Each CB In Application.CommandBars
For Each CBB In CB.Controls
If CB.Name "Stückliste" Then
If IsEmpty(M_G(0)) = False Then
ReDim Preserve M_G(UBound(M_G) + 1) '***
End If
Set M_G(UBound(M_G)) = CBB
End If
Next CBB
Next CB
ID_füllen:
For i1 = S_i1 To UBound(M_G)
If IsError(Application.Match(M_G(i1).ID, CBB_ID, 0)) = True Then
M_G(i1).Enabled = False
End If
If M_G(i1).Type >= 10 And M_G(i1).Type
In der Variablen CBB_ID werden die IDs der verschiedenen zu deaktivierenden Menüpunkte geladen!
Gruß,
Oliver.