Sub Lancer()
OterProtection
MaMacro
Protection
End Sub
Sub OterProtection()
Application.DisplayAlerts = False
ActiveWorkbook.UnprotectSharing 'déverrouille le partage
On Error Resume Next
ActiveWorkbook.ExclusiveAccess 'retire le partage
ActiveSheet.Unprotect "123" 'mot de passe à adapter
End Sub
Sub Protection()
Application.DisplayAlerts = False
ActiveWorkbook.UnprotectSharing 'déverrouille le partage
On Error Resume Next
ActiveWorkbook.ExclusiveAccess ' 'retire le partage
ActiveSheet.Protect "123" 'mot de passe à adapter
ActiveWorkbook.ProtectSharing 'remet et verrouille le partage
End Sub
Sub MaMacro() 'cette macro ou une autre
[C3] = IIf([C3] = "Bonjour", "Au revoir", "Bonjour")
End Sub