Protection d'une feuille

[swingy4522]

Bonjour à tous,

Cher(e)s Ami(e)s du forum, je suis à la recherche d'un apprenti sauveur du monde...
En effet, j'ai un casse tete qui pour vous ne le sera peut etre pas... mais bon, voili voilo :

Je souhaite protéger une feuille d'un classeur, jusque là j'y arrive, mais le probléme c'est que une fois protégé, je ne peux plus utiliser la "palette de couleur", et j'ai besoin de cette protection pour eviter que l'on vienne trifouiller mes formules magiques..

Avez vous une solution ami(e)s exceliens?

Au plaisir de vous lire )

Swingy

 

[HB]

Elaborer une macro qui vérouille et deverouille en fonction de vos besoins

 

[swingy4522]

Bonjour HB,

Merci de votre aide, je vais étudier cette posibilité, effectivement ça peut etre une solution, je n'y avais pas pensé, le probléme étant que je vais devoir ajouter autant de bouton+macro que je vais avoir besoin de couleur, l'autre probléme c'est que mon fichier pése déjà 2MO, j'ai peur de l'alourdir encore plus...

Merci encore mille fois de votre aide?

Eric

 

[rudy]

Bonjour, Swingy4522 et le forum

tu fais 2 macros , activer et désactiver

Option Explicit

Sub DebutActivite()

Dim Cel As Range

ActiveSheet.Unprotect
Set Cel = Range("B65536").End(xlUp).Offset(1, 0)
With Cel
.Value = Date
.NumberFormat = "d-mmm-yy"
.HorizontalAlignment = xlCenter
With .Offset(0, 1)
.Value = Now
.NumberFormat = "hh:mm"
.HorizontalAlignment = xlCenter
End With
End With
End Sub

Sub FinActivite()

Dim Cel As Range

Set Cel = Range("D65536").End(xlUp).Offset(1, 0)
With Cel
.Value = Now
.NumberFormat = "hh:mm"
.HorizontalAlignment = xlCenter
With .Offset(0, 1)
.FormulaR1C1 = "=RC[-1]-RC[-2]"
'.Value = Time
.NumberFormat = "hh:mm"
.HorizontalAlignment = xlCenter
End With
End With
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

s'il y a un probleme tu me fais signe @+ Rudy

 

[swingy4522]

Salut Rudy,

merci de ton aide,
je vais essayer ta méthode ..

merci encore de ton aide.

eric

 

[Jean-Marie]

Bonsoir,

Autre possibilité utiliser une feuille masquée par un code VBA, sur cette feuille tu places des "formules magiques".

@+Jean-Marie

 

[rudy]

bonjoir, swingy4522, jean-marie et le forum
effectivement jean-marie on peut utiliser des"formules magiques". C! une methode tres bien aussi swingy4522
@+ rudy