Gruppe
Menue
Problem
Wie kann ich die aktuellen Einstellungen der Menü- und Symbolleisten sichern?
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