Re: Lösung gefunden
05.05.2002 18:59:06
Wolfram
Hallo,
Für mein erstes Problem habe ich eine Lösung zusammengebastelt.
Bestimmt gibt's was besseres, aber wenns jemand mal braucht:'ausblenden;deaktivieren
Sub Symbol_SpeichernAusblenden()
Dim objBtn As CommandBarButton
Set objBtn = Application.CommandBars("Standard"). Controls ("Speichern")
With objBtn
.Visible = False 'für ausblenden
'enabled=false 'für deaktivieren
End With
End Sub
'einblenden;aktivieren
Sub Symbol_SpeichernEinblenden()
Dim objBtn As CommandBarButton
Set objBtn = Application.CommandBars("Standard").Controls("Speichern")
With objBtn
Visible = True 'für einblenden
'.Enabled = True 'für aktivieren
End With
End Sub
Gruß
Wolfram