Peut-on protéger certaines colonnes d'un fichier ?

Bonsoir à toutes et à Tous,

https://www.excel-pratique.com/~files/doc/Clt_Randotop_ORIGINAL.xls

Dans ce fichier mis au point par Nad Dan, je souhaiterai empêcher l'effacement des formules des colonnes à en-tête en rouge alors que celui des autres colonnes pourrait se faire,...

Possible ? Impossible ???

Amicalement et admirativement

capture avie 3 capture avie 2

Bonjour !

Il suffit de sélectionner les colonnes dont l'en tête n'est pas rouge, tu vas dans format de cellule, onglet Verrouillage, et tu décoches la case Cellule Verouillée.

Ensuite, tu protèges ta feuille avec ou sans mot de passe.

Merci et bonsoir,

J'ai fait ce que tu m'as expliqué mais je peux toujours effacer le contenu des cellules verouillées,..

Cordialement

1avie-fichier.xlsm (313.94 Ko)

Bonjour c'est plus compliqué que cela :

Lorsque j'ai rempli les colonnes B,C,D,E,F l'heure de départ s'affiche automatiquement : c'est bon !

Si j'entre une heure d'arrivée j'obtiens une boîte de dialogue :

4ZcIgErreur 1004

Si je clique "Déboguage" j'ai ceci :

Deboguage

Que faire ?

Effectivement, c'est embêtant... Là, il faut voir avec l'auteur de la macro ce qui bug, car ça fonctionne très bien sans verrouiller les cellules, mais dès que tu protèges, c'est fini, le debogeur se met en route... Nad-Dan, heeeeeelp !!!

Merci de ton appel à l'aide...

Nad Dan entendez l'appel du pauvre igorant que je suis !!!

Merci d'avance

Amicalement

Bonjour

Mon truc à moi, c'est surtout les formules

Sur le classeur joint, j'ai dévérouillé les cellules des colonnes A à H, puis, j'ai protégé la Feuille, mot de passe jjm.

J'ai ensuite ajouté à la Macro, une ligne pour enlever la protection avant le tri et une autre pour la remettre après le tri.

Sub Tri()
Dim LastRow As Integer
 ActiveSheet.Unprotect "jjm"
LastRow = ActiveSheet.Range("G65536").End(xlUp).Row
Range("B2:M" & LastRow).Sort Key1:=Range("L2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
ActiveSheet.Protect "jjm"
End Sub

https://www.excel-pratique.com/~files/doc2/Clt_Randotop_ORIGINAL.xls

Cordialement

Bonjour,

jjm a écrit :

https://www.excel-pratique.com/~files/doc/Clt_Randotop_ORIGINAL.xls

Evite les liens colorés stp, cela empêche les membres d'accéder directement à ton fichier.

Cordialement,

0base-scolarite.zip (52.75 Ko)

Merci Amadéus (ce que c'est d'avoir un pseudo de génie tout de même !!!)

C'est exactement ce que je voulais

OK Sébastien j'ai pris bonne note et appliquerai la règle (je pensais juste amener de la gaité dans ce monde de brutes !!!)

Bien amicalement

Salut le forum

Pas besoin de dé-proteger la feuille.

Sub Tri()
Dim LastRow As Integer
 ActiveSheet.Protect Password:="jjm", UserInterfaceOnly:=True
LastRow = ActiveSheet.Range("G65536").End(xlUp).Row
Range("B2:M" & LastRow).Sort Key1:=Range("L2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
  • UserInterfaceOnly
    Argument de type Variant facultatif. Cet argument a la valeur True pour protéger l'interface utilisateur, mais pas les macros.
    Si cet argument n'est pas spécifié, la protection s'applique à la fois aux macros et à l'interface utilisateur.

Mytå

Merci et bonjour Mytå,

Pour moi c'est du mais je te crois,... et je pense que les Honorables Omniscients t'auront compris !!!

Bonne journée et embrasse la Belle Province pour moi.

Amicalement

Rechercher des sujets similaires à "proteger certaines colonnes fichier"