Re: Ja ' OT
16.02.2003 21:53:35
udo nochmals
Hallo Hajo, du ich habs bereits hinbekommen und zwar mit folgendem Makro
dass ich auf eine Autoform gelegt habe, Vielen Dank nochmals, Gruß udo
Sub Schaltfläche1_BeiKlick()
If Application.CommandBars("Worksheet Menu Bar").Enabled = True Then
Application.CommandBars("Worksheet Menu Bar").Enabled = False
Else
Application.CommandBars("Worksheet Menu Bar").Enabled = True
End If
Dim i As Byte
For i = 1 To CommandBars(1).Controls.Count
CommandBars(1).Controls(i).Visible = True
Next
End Sub