Sub Such_xlb()
If Dir(Environ("Userprofile") & "\Anwendungsdaten\Microsoft\Excel\Excel" & Int(Val(Application. _
_
Version)) & ".xlb") = "" Then
MsgBox ("Die Datei: Excel" & Int(Val(Application.Version)) & ".xlb ist nicht im vorgesehenen _
Verzeichnis:" & Chr$(13) & _
Environ("Userprofile") & "\Anwendungsdaten\Microsoft\Excel")
Else
MsgBox "Die Datei liegt im Verzeichnis: " & Environ("Userprofile") & "\Anwendungsdaten\ _
Microsoft\Excel"
End If
End Sub
Sub Wiederherstellen()
Application.CommandBars("Chart Menu Bar").Visible = True
Application.CommandBars("Worksheet Menu Bar").Enabled = True
Application.CommandBars("Worksheet Menu Bar").Visible = True
End
Sub
Sub auch_Bearbeitungszeile_etc()
' __________
' "Bearbeitungszeile" (am oberen Rand )
Application.DisplayFormulaBar = True
' "Statusszeile" (am unteren Rand__________)
Application.DisplayStatusBar = True
' die meistens angezeigten Symbolleisten
Application.CommandBars("Standard").Visible = True
Application.CommandBars("Formatting").Visible = True
' von Entwicklern zeitweise auch gebraucht
Application.CommandBars("Control Toolbox").Visible = True
End
Sub
Alles von Manfred Bartak / aus Wien
Gruß SP