Gruppe
Menue
Bereich
Bar
Thema
Symbolleiste sichern
Problem
Wie kann ich die aktuellen Einstellungen der Menü- und Symbolleisten sichern?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub SaveCommandBars()
Dim sPath As String, sFile As String
sPath = Range("B1").Value
If Right(sPath, 1) <> "\" Then
sPath = sPath & "\"
End If
sFile = Range("B2").Value
FileCopy sPath & sFile, sPath & "Backup.xlb"
End Sub