Impossible d'annuler le partage d'un classeur

Bonjour a tous,

J'ai créer un fichier excel avec plusieurs feuilles, du code VBA ainsi que la possibilité de s'identifier avec login et MDP grâce à "protection-pratique" (qui est très bien fait conçu au passage).

Seul souci lorsque je fait "partager le classeur" afin qu'on soit plusieurs à l'utiliser en même temps, si je veux faire des modifications dans le code vba je clic sur Annuler le partage du classeur afin de pouvoir modifier le code vba et ça ne fais rien... je clic plusieurs fois et toujours rien... il reste en fichier partagé...

J'ai fais un autre teste avec un autre fichier et la c'est encore pire (ou pas en remarque) quand je clic sur partager le classeur ça fonctionne mais le bouton "Annuler le partage" reste grisé... donc impossible de clic dessus...

Heureusement j'ai fais des sauvegardes avant de vouloir partager mon fichier....

Quelqu'un a une idée d’où cela pourrait provenir?

Rebonjour à tous,

Bon alors j'ai fais des essaies et j'ai isolé le souci du partage de classeur, le bug vient du code BeforeSave. Or j'ai besoin de ce code pour se que je compte faire. Lorsqu'on clic sur "Partager le classeur" celui-ci nous annonce qu'il va sauvegarder en temps normal pour pouvoir le partager. Or avec le code ci-dessous ça ne demande rien et ça plante.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
On Error Resume Next
If test_fermeture = Empty Then
Application.ScreenUpdating = False
Dim f As Worksheet
f_visibles = ""
f_active = ActiveSheet.Name
For Each f In Worksheets
If f.Visible = -1 Then
If f_visibles = "" Then
f_visibles = f.Name
Else
f_visibles = f_visibles & "/" & f.Name
End If
End If
Next
Set f = Nothing
Sheets("MACROS").Visible = -1
ActiveWindow.DisplayWorkbookTabs = False
Dim feuille As Worksheet
For Each feuille In Worksheets
If feuille.Name <> "MACROS" Then feuille.Visible = 2
Next
Set feuille = Nothing
If Sheets("ADMIN").Range("F2") = 0 Then
securite "excel-pratique.com", True
test_enreg_admin = True
End If
If Val(ThisWorkbook.FileFormat) = 52 Then
ThisWorkbook.SetPasswordEncryptionOptions PasswordEncryptionProvider:= _
"Microsoft RSA SChannel Cryptographic Provider", _
PasswordEncryptionAlgorithm:="RC4", PasswordEncryptionKeyLength:=128, _
PasswordEncryptionFileProperties:=True
End If
End If
If test_fermeture = Empty Then
If SaveAsUI = False Then
Cancel = True
Application.DisplayAlerts = False
test_fermeture = True
ThisWorkbook.Save
test_fermeture = Empty
Else
after_save = True
If Val(Application.Version) < 14 Then dd = MsgBox("Après avoir enregistré ce fichier, cliquez sur l'image pour réafficher les feuilles de ce classeur ..." & Chr(10) & Chr(10) & "(Nécessaire avec " & Chr(34) & "Enregistrer sous ..." & Chr(34) & " et votre version d'Excel)", 64, "Afficher les feuilles")
Exit Sub
End If
If Not test_close = Empty And ThisWorkbook.Saved = True Then
test_close = Empty
If Sheets("ADMIN").Range("G2") = 1 Then
historique "excel-pratique", 4, "", 0, 0
Application.DisplayAlerts = False
test_fermeture = True
ThisWorkbook.Save
test_fermeture = Empty
If Val(Application.Version) = 12 Or Val(Application.Version) = 15 Then
Application.Quit
Else
Application.ThisWorkbook.Close
End If
Else
If Val(Application.Version) = 12 Or Val(Application.Version) = 15 Then
Application.Quit
Else
Application.ThisWorkbook.Close
End If
End If
Else
If ThisWorkbook.Saved And Sheets("ADMIN").Range("G2") = 1 Then
historique "excel-pratique", 3, "", 0, 0
Application.DisplayAlerts = False
test_fermeture = True
ThisWorkbook.Save
test_fermeture = Empty
Application.DisplayAlerts = True
End If
If Not test_enreg_admin = Empty Then securite "excel-pratique.com", False
Sheets(f_active).Visible = -1
Sheets(f_active).Activate
Application.ScreenUpdating = False
tab_f = Split(f_visibles, "/")
For Each ff In tab_f
If ff <> f_active Then Sheets(ff).Visible = -1
Next
Sheets("MACROS").Visible = 2
ActiveWindow.DisplayWorkbookTabs = True
ActiveWindow.ScrollWorkbookTabs , xlFirst
If f_active <> "MACROS" Then Sheets(f_active).Activate
End If
test_enreg_admin = Empty
End If
End Sub

Je suis qu'un pauvre débutant en VBA et donc j'arrive pas à savoir quel ligne fait bugué le partage du fichier , si quelqu'un peut me donner un coup de main ça serait top svp. Je vous remercie d'avance et je vous souhaite une bonne après midi.