Pb de macro sur cellule protégée

[Hervé]

Bonjour,
Je inséré la date de la dernière modification de mon classeur avec la macro suivante :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, cancel As Boolean)
Sheets('Feuil1').Select
ActiveSheets.Unprotect
Sheets('Feuil1').Range('G23').Value = Now()
ActiveSheets.Protect
End Sub

Or, ça ne fonctionne pas vraiment, un message d'erreur apparait et précise que la cellule est protégée !!! C'est le cas mais la macro devrait parer à ce problème, non ?
Je sollicite donc votre avis quant à ce pb. Merci.
Hervé

 

[Papy Novice]

Bonjour Hervé
N'aurais-tu pas une protection avec mot de passe ?
Courage
Jean

 

[Hervé]

Bonjour Jean et merci. Non, je n'ai pas de mot de passe ...
Bonne journée.
Hervé

 

[_Thierry]

Bonjour à tous,

depuis mon réseau interne avec 4 pcs !!! lol en plein bordel !

enfin le Lan et le Wifi semble fonctionner alors je teste sur XLD !!!...

essaie comme ceci :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, cancel As Boolean)

With Sheets('Feuil1')
.Unprotect
.Range('G23').Value = Now()
.Protect
End With


End Sub

Je repasserai bien plus tard car maintenant je partage et sécurise !
@+Thierry

 

[Hervé]

Bonjour le Forum, Thierry,

Je te remercie de ton aide.
Aussi, c'est à se tirer les cheveux ... La macro que tu me proposes provoque le même résultat que la mienne. Je n'y comprend plus rien ...
Bonne journée et encore merci.

Hervé

 

[Hervé]

C'est encore moi ...
Une précision, le cellule 'G23' contien la formule := AUJOURD'HUI()
Le pb ne viendrait-il pas de là ?

 

[_Thierry]

Re bonjour

Vite fait je sors chercher des cables !!!

Mais je ne pense pas que ta formule y soit pour quelque chose (elle serait écrasée par la macro, c'est tout).

Non regarde si tu n'as pas plutot si tu n'as pas des cellules fusionnées des les parages de 'G23'

sinon poste un exemple de ce classeur avec cette fameuse feuille !!

Bonne fin d'aprèm
@+Thierry

Message édité par: _Thierry, à: 23/04/2005 16:38

 

[Hervé]

Re-bonjour Thierry,

Effectivement, la cellule 'G23 est fusionnée avec la 'H23'. Le pb viendrait-il de là ?
Merci.

Hervé