Re: Ausblenden von Commandbars
12.05.2003 12:57:47
Anugyan
Hi Carsten,
ich hätte da was für dich, zusammengestöpselt von deinem Ansatz und meinen Sachen, allerdings nicht als ganzes getestet.Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Application.DisplayFullScreen = True
Application.CommandBars("Full Screen").Visible = False
Application.CommandBars("Worksheet Menu Bar").Enabled = False
MaButt_K 'Nur ein Beispiel wie ich noch die MenuBar verändere
End Sub
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
With Application
.DisplayFullScreen = False
.CommandBars("Full Screen").Visible = True
.CommandBars("Worksheet Menu Bar").Enabled = True
End With
End Sub
Sub MaButt_K()
With Application
.DisplayFullScreen = True
.MoveAfterReturn = True
.MoveAfterReturnDirection = xlToRight
.CellDragAndDrop = False
.EditDirectlyInCell = True
.DisplayCommentIndicator = xlCommentIndicatorOnly
.CommandBars("Worksheet Menu Bar").Reset
.CommandBars.LargeButtons = True
.DisplayFormulaBar = True
With .CommandBars("Worksheet Menu Bar").Controls
.Add Type:=msoControlButton, ID:=3, Temporary:=True
' .Add Type:=msoControlButton, ID:=109, Temporary:=True
.Add Type:=msoControlButton, ID:=19, Temporary:=True
' .Add Type:=msoControlSplitDropdown, ID:=128, Temporary:=True
.Add Type:=msoControlButton, ID:=370, Temporary:=True
.Add Type:=msoControlButton, ID:=1605, Temporary:=True
End With
End With
Set myCtrl = CommandBars("Worksheet Menu Bar").Controls _
.Add(Type:=msoControlButton, ID:=2949, Temporary:=True)
With myCtrl
.Caption = "&Mail"
.TooltipText = "Mail an Buchhaltung"
.Style = msoButtonIconAndCaptionBelow
.FaceId = 45
.OnAction = "MaMail_K"
End With
End Sub
Sub MaMail_K()
ActiveWorkbook.SendMail Recipients:="xy@t-online.de", Subject:="mail-Kasse "
End Sub
Gruss Anugyan