Aide blocage à entrée feuille Excel

Bonjour,

je voudrais mettre différents mots de passe pour plusieurs utilisateurs pour entrer dans un même fichier excel. Jai vu quil y avait deja plusieurs aides sur internet mais je narrive pas à adapter à mon fichier.

je débute

est ce que quelquun pourrait maider?

merci

a+

Salut le forum

Mokia, sans fichier avec juste un bout de code, tu crois vraiment recevoir de l'aide.

On n'a pas envie de créer un fichier pour essayer de trouver d'ou vient le problème.

Mytå

Bonjour,

J'attends un complément d'informations

Le sujet est intéressant..

Question 1 : Es-tu en réseau?

Pour être précis, dans l'affirmative des mots de passe deviennent "inutiles". Chaque personne dispose d'un login et cette situation implique des droits ou des non-droits pour un classeur, des feuilles ou encore des plages de cellules.

A méditer

en fait oui mais peu importe

mettre des mots de passe pour laccès a mon classeur excel n'est que la 1ere étape

ensuite je voudrais qu'ils aient accès uniquement aux cellules qui les concernent sur chage feuille excel de mon classeur, et bloquer les autres cellules pour quils ne les modifient pas

je fais par étape car ca fait longtemps ke jai pas fait de macro donc je fais pas à pas

Bonsoir,

Peux-tu commencer par répondre aux questions posées

Sinon lien ci-dessous, pour t'aider à appréhender ta question :

http://boisgontierjacques.free.fr/pages_site/protection.htm

A bon entendeur.

Cdlt

voila un exemple de ce que je voudrais

jai bien essayé avec ton lien mais etant tres peu initié au VBA, cest tres difficile et surtout ca ne marche pas

peux tu me donner une piste plus simple ?

Bonjour,

Ci-joint ton fichier modifié.

Apparemment la propriété "ScrollArea" ne fonctionne pas avec des plages discontinues.

Sur la page "Mots de passe", lister les logins des utilisateurs (le nom ne commence pas par un chiffre et ne comporte pas d'espaces)

La plage "Table" récupère en colonne A les utilisateurs. A partir de des noms d'utilisateurs, on définit les plages distinctes pour chaque utilisateur.

Pour toi, à l'ouverture du classeur, tu sera dirigé vers la cellule A1 de le feuille "Table". Lances la procédure "AfficheToutesColonnes()"

et regardes la structure de la feuille.Tu mets ensuite ton login en Cellule A2 de la feuille "Mots de passe". Tu enregistres, tu quittes puis tu ouvres à nouveau ton classeur.

Cdlt.

Private Sub Workbook_Open()
    On Error Resume Next
    'On affiche le login de l'utilisateur
    MsgBox "Bonjour : " & Environ("username")
    'On rédéfinit les plages nommées par login
    Call Définition_ScroolArea
    'Cette propriété renvoie ou définit la plage dans laquelle le _
    défilement est permis sous la forme d'une référence de plage de type A1. _
    Il est impossible de sélectionner les cellules situées hors de la zone de défilement.
    Worksheets("Table").ScrollArea = Environ("username")
    'Si le login n'est pas connu, on selectionne la cellule A1
    If Err <> 0 Then Worksheets("Table").ScrollArea = "A1"
End Sub

Public Sub Définition_ScroolArea()
Dim sH As Worksheet
Dim Plage As Range
Dim Nom As Variant
Dim derLigne As Integer
Dim i As Integer

    Application.ScreenUpdating = False

    Set sH = Worksheets("Table")
    'On supprime tous les champs nommés par sécurité
    On Error Resume Next
        For Each Nom In ActiveWorkbook.Names
            Nom.Delete
        Next
    On Error GoTo 0

    With sH
        'Numéro de la dernière ligne de la colonne B
        derLigne = Range("B" & Rows.Count).End(xlUp).Row
        'On boucle et on attribue le nom de la personne au champ sélectionné
        For i = 2 To derLigne Step 2
        Range(Cells(i, 3), Cells(i + 1, 7)).Select
        ActiveWorkbook.Names.Add Name:=Cells(i, 1).Value, _
            RefersToR1C1:=Range(Cells(i, 3), Cells(i + 1, 7))
        Next i
    End With
End Sub

Re,

Après multiples essais, fichier modifié

Cdlt

merci de m'avoir aidé

ca a lair pas mal compliqué en fait, ca me fait peur

Re,

J'ai l'impression que nous avons un problème de vocabulaire "Excel".

Je ne suis peut-être pas clair dans mes explications.

Si Dan lit ce message, ou encore Amadéus ou une autre personne, faire un commentaire sur mes explications ou le code

Cdlt.

non non t'inquiete pas, c'est moi qui suit nulle

le fait que tu réarranges les lignes (chaque personne se voit attribuer 2 lignes) est une contrainte ? ou alors c'était pour que l'écriture de la macro soit plus directe ?

Re,

Pour simplifier car :

Apparemment la propriété "ScrollArea" ne fonctionne pas avec des plages discontinues.

Cdlt