J'ai honte

Arcangeli

XLDnaute Occasionnel
Bonjour le forum,
Je n'arrive plus et pourtant j'ai su le faire, adapter ma macro pour pouvoir changer le format de cellule lorsque le classeur est protégé par une macro.
J'ai mis un explemple en pièce jointe.
Déjà merci pour votre aide.
 

Pièces jointes

  • Protect.xls
    29 KB · Affichages: 57
  • Protect.xls
    29 KB · Affichages: 53
  • Protect.xls
    29 KB · Affichages: 62

mth

XLDnaute Barbatruc
Re : J'ai honte

bonjour,

Je ne sais si c'est la même instruction sous 2003 (mais tu la retrouveras facilement avec l'enregistreur de macros), donc peut-être un complément à la ligne de protection, à tester:

Code:
Worksheets(i).Protect Password:="yes", [B]AllowFormattingCells:=True[/B]

Bon après-midi,

mth

Edit: :) Bonjour CBernardT
 
Dernière édition:

CBernardT

XLDnaute Barbatruc
Re : J'ai honte

Bonjour Arcangeli, mth,

modifie le code comme suit :

Sub Protéger()
For i = 1 To Worksheets.Count
With Worksheets(i)
.EnableSelection = xlUnlockedCells
.Protect Password:="yes", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True
End With
Next
End Sub