erwanhavre
XLDnaute Occasionnel
Bonjour à tous j’ai un classeur partagé je cherche un moyen de déprotéger (mot de passe 123) , exécuter ma macro, re protéger tout en laissant partager est-ce possible merci de votre aide
Sub OterProtection()
Application.DisplayAlerts = False
ActiveWorkbook.ExclusiveAccess 'retire le partage
ActiveSheet.Unprotect "123" 'mot de passe à adapter
End Sub
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