XL 2010 Classeur partagé et protégé

[erwanhavre]

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

 

[erwanhavre]

BOnjour
Ce n’est pas possible ? Est ce qu’il vous faut d’autres éléments ?

 

[erwanhavre]

@job75 Bonjour pourriez vous essayé de voir svp

 

[erwanhavre]

@Lone-wolf bonjour avez vous une idée ?

 

[job75]

Bonjour erwanhavre,

Il suffit de tester pour voir ce qui est possible.

Chez moi sur Excel 2013 si le classeur est partagé il faut retirer le partage pour ôter la protection d'une feuille.

A+

 

[job75]

Re,

Cette macro retire le partage puis ôte la protection de la feuille :

Sub OterProtection()
Application.DisplayAlerts = False
ActiveWorkbook.ExclusiveAccess 'retire le partage
ActiveSheet.Unprotect "123" 'mot de passe à adapter
End Sub

A+

 

[job75]

Re,

Pour faire ce que vous demandez au post #1 essayez cet enchaînement de macros :

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

La cellule C3 est bien sûr verrouillée.

A+

 

[erwanhavre]

bonjour @job75 puis je vous contacter par mail svp j'ai un fichier à vous transférer qui nécessite votre expertise

 

[job75]

Hors de question.

Que pensez-vous de ma solution ?

 

[erwanhavre]

Merci pour votre solution elle fonctionne