XL 2010 Classeur partagé et protégé

E

erwanhavre

XLDnaute Occasionnel

• 21 Septembre 2018

• #2

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

 

Vote positif 0 Vote négatif

E

erwanhavre

XLDnaute Occasionnel

• 21 Septembre 2018

• #3

@job75 Bonjour pourriez vous essayé de voir svp

 

Vote positif 0 Vote négatif

E

erwanhavre

XLDnaute Occasionnel

• 22 Septembre 2018

• #4

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 22 Septembre 2018

• #5

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+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 22 Septembre 2018

• #6

Re,

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

Code:

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

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 22 Septembre 2018

• #7

Re,

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

Code:

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+

 

Vote positif 0 Vote négatif

E

erwanhavre

XLDnaute Occasionnel

• 22 Septembre 2018

• #8

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 22 Septembre 2018

• #9

Hors de question.

Que pensez-vous de ma solution ?

 

Vote positif 0 Vote négatif

E

erwanhavre

XLDnaute Occasionnel

• 22 Septembre 2018

• #10

Merci pour votre solution elle fonctionne

 

Vote positif 0 Vote négatif