AW: Benutzdef. Symbolleiste auch bei kopierten Dateien
14.04.2007 17:40:28
happy-timo
Hallo Knut,
vielen Dank für Deine Antwort. Über OnAction habe ich schon gelesen, weiß es aber leider nicht richtig einzusetzen :-( In der Datei habe ich untenstehendes Workbook_Open Ereignis eingebaut. Die oberen Zeilen funktionieren in Office 2003 einwandfrei, in XP aber nicht. Macht auch nichts, da die Datei in meiner Firma über Office 2003 läuft und nur bei mir zuhause über XP. Weiter unten ist dann mein Problem mit der "Benutzerdefinierten Symbolleiste". Kann ich hier OnAction einbauen und wenn ja wie? Hoffentlich kann mir geholfen werden, denn sonst stehen mindestens 60 Stunden Arbeit auf dem Spiel.... :-((( Was hast Du eigentlich mit "Symbolleiste zur Laufzeit" gemeint?
Sub Workbook_Open()
Application.DisplayFormulaBar = False 'Diese Zeilen funktionieren in XP nicht
For Each TB In Toolbars 'Diese Zeilen funktionieren in XP nicht
TB.Visible = False 'Diese Zeilen funktionieren in XP nicht
Next TB 'Diese Zeilen funktionieren in XP nicht
Application.CommandBars("Worksheet Menu Bar").Enabled = False
Application.CommandBars("Benutzerdefiniert 1").Visible = True 'Diese Zeile _
funktioniert nicht
Range("A1").Select
Dim strAltName As String, strEingabe As String
Dim strMText As String
strAltName = Application.UserName
strMText = "Hallo, " & vbCr _
& vbCr _
& "Sie haben beim Öffnen dieser Datei 'Makros aktivieren' geklickt, vielen Dank! Bitte _
aktivieren Sie diese bei der Nutzung interner Service Center-Dateien immer! Es wird Sie bei Ihrer Arbeit unterstützen. " & vbCr _
& vbCr _
& "Bitte beachten Sie auch die Bemerkungen im Infoblatt. " & vbCr _
& vbCr _
& "" & strAltName & ", dieser Benutzername ist derzeit im System eingestellt. Sollte im _
unteren Eingabefeld nicht Ihr Name erscheinen, so tragen Sie ihn bitte jetzt ein! " & vbCr _
& vbCr _
& "Danke, Ihr Supervisorteam" & vbCr _
& vbCr _
& vbCr _
& "Version 1.5.01 "
strEingabe = InputBox(strMText, "Benutzerinformation und Identifikation!", _
strAltName)
If StrPtr(strEingabe) = 0 Then
MsgBox "Sie haben Abbrechen gedrückt! Die Datei wird nun geschlossen. " & vbCr _
& " Bitte versuchen Sie es erneut!"
ActiveWorkbook.Close
ElseIf strEingabe = "" Then
MsgBox "Sie haben nichts eingegeben! Die Datei wird nun geschlossen. " & vbCr _
& " Bitte versuchen Sie es erneut!"
ActiveWorkbook.Close
ElseIf strEingabe = "Firmenname Gruppe" Then
MsgBox "Sie sollten Ihren Namen eingeben und nicht die Firma! Die Datei wird nun geschlossen. _
Bitte versuchen Sie es erneut."
ActiveWorkbook.Close
ElseIf strEingabe = "Firmenname Gruppe" Then
MsgBox "Sie sollten Ihren Namen eingeben und nicht die Firma! Die Datei wird nun geschlossen. _
Bitte versuchen Sie es erneut."
ActiveWorkbook.Close
Application.UserName = strEingabe
End If
Sheets("Infoblatt").Select
Range("A1").Select
End Sub
Für Hilfe bin ich unendlich dankbar!! Bin schon echt begeistert, was für Profis hier im Forum zu finden sind. Das ist insgeheim schon immer mein Traum gewesen so etwas zu können. Meine Hochachtung!!
Viele Grüße von happy-timo