AW: Symbolleiste Position
24.09.2010 18:03:38
Hajo_Zi
Hallo Burghard,
Option Explicit ' Variablendefinition erforderlich
'* H. Ziplies *
'* 20.08.10 *
'* erstellt von HajoZiplies@web.de *
'* http://Hajo-Excel.de/
' Variable Symbolleiste für bestimmte Personen
Dim BoWert As Boolean
Private Sub Workbook_Open()
' Von Jürgen Wenzel Benutzer feststellen für alle Betriebssysteme;
' bei NT, 2000 und höherer reicht Environ("Username")
' dieser Teil ist notwendig für Symbolleisten für bestimmte Personen
' bis einschl. Codezeile BoWert =True
Dim BName As String
Dim Buffer As String * 100
Dim BuffLen As Long
BuffLen = 100
GetUserName Buffer, BuffLen
BName = Left(Buffer, BuffLen - 1)
'If BName "Hajo_Zi" Then Exit Sub ' Symbolleiste nur Bei Benutzer Hajo_Zi einblenden
' nur damit Symbolleiste angezeigt wird
If BName BName Then Exit Sub
BoWert = True ' Symbolleiste eingeblendet
Dim CB As CommandBar ' Variable für Symbolleiste
Dim CBC As CommandBarButton ' Variable für Button
Dim I As Integer ' Variable für Schleife
' Fehlerbehandlung ausschalten
On Error Resume Next
Set CB = Application.CommandBars.Add(Name:="Symbolleiste", _
temporary:=True, Position:=msoBarTop)
' temporary:=True Symbolleiste ist flüchtig, wird beim Schließen von
' Excel gelöscht
' Oben Position:=msoBarTop
' Rechts Position:=msoBarRight
' Links Position:=msomsoBarLeft
' unten Position:=msoBarBottom