XL 2013 gerer l'extension au sauvegarde

[Amrane]

Cher forum,
ja'aimrai avoir votre conseil pour mon soucis lors de sauvgarde

je veux garder l'extension"XLSB" pendant le sauvegarde, pur eviter de perder le code en cas de sauvegarde en format "XLSX" par exemple,...
j'ai trouvee le code ci-dessou, mais il produit une dialoge-fenetre sans-fin,..

merci d'avance pour votre support:
Code debut ###:

Option Explicit
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim FD As FileDialog, FTyp As Long
Dim folderpath As String, MyWbName As String

Cancel = True

folderpath = Application.ActiveWorkbook.Path
MyWbName = Application.ActiveWorkbook.FullName

' reference a SaveAs Dialog
Set FD = Application.FileDialog(msoFileDialogSaveAs)
With FD
.FilterIndex = 3

.InitialFileName = MyWbName
.Title = "Save As"
End With

FD.Show

If FD.SelectedItems.Count = 0 Then
Exit Sub
Else
' check for proper extension
If Right(FD.SelectedItems(1), 4) = "xlsb" Then '= "xlsm" Then

FTyp = 50

Application.EnableEvents = False
Me.SaveAs FD.SelectedItems(1), FTyp
Application.EnableEvents = True

Else
MsgBox "selected wrong file format ... not saving"
End If
End If

End Sub

Code fin ###:

 

[Amrane]

Cher forum,
je suis toujours en attente de votre support, mais entre temps j'ai pense a une autre idees,
aura t-il un possibilit de lier le boutton" Save" en fonction d'un choix d'un type de ficher determiner au preallable, c'est a dire:
ref ( photo en attachement):
si le type de ficher est "xlsb", authoriser la sauvegarde

merci monsieur pour votre support,
Amrane