Discussion :

[patrick55]

Bonjour,

j'ai un classeur dans lequel je voudrais donner des droits particulier..

Pour l'admin:
Tous le droits

Pour le visiteur
Modifications Non autorisées
Ecriture autorisée seulement dans les cellules vides avec uniquement
la possibilité de mettre un texte que j'aurais identifié au préalable...

Peux t'on m'indiquer une piste pour démarage
Merci

[ouskel'n'or]

Bonjour Patrick,
Ton problème peut se régler de plusieurs manières et demande plusieurs solutions.
Déjà, tu peux protéger ton classeur en empêchant les modifications manuelles de données mais les autorisant par macro.
Ensuite, tu peux verrouiller ou déverrouiller les cellules dans une feuille protégée.
Par défaut, toutes les cellules sont verrouillées et empêchent la saisie dans une feuille protégée.
Mais tu peux sélectionner d'un seul coup d'un seul toutes les cellules vides pour les déverrouiller avant de protéger la feuille.
Tu peux aussi identifier le "User" qui, s'il n'est pas l'admin, ne pourra pas accéder aux données verrouillées.
Tu peux automatiser la déprotection si l'admin est le "user"
Tu peux aussi protéger les macros.

Dans ces options, lesquelles t'intéressent ?
A+

[ouskel'n'or]

Comme je vais passer à autre chose, quelques indications

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub DeverrouillerCellulesVides()
Dim utilisateur as string
    utilisateur = Environ("USERNAME")
    'déprotection de la feuille si Utilisateur = Nom de l'admin
    If utilisateur = "admin" Then 'remplace par ton nom d'utilisateur
        Worksheets("Feuil1").Unprotect "admin"
        'déverrouillage des cellules vides
        Worksheets("feuil1").Cells.SpecialCells(xlCellTypeBlanks).Locked = False
        'protection de la feuille autorisant les modifications par macro
        Worksheets("feuil1").Protect Password:="admin", DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True
    End If
End Sub

où UserInterfaceOnly:=True permet aux macros de modifier les cellules verrouillées dans une feuille protégée
A plus tard

[patrick55]

Salut ouskel'n'or et merci pour ta réponse
j'ai utilisé le code il fonctionne trés bien mais résoud en partie ma recherche..

Pour essayer de résumer..
j'aimerai que les visiteurs puissent saisir dans une feuille protégée
1 Uniquement dans les cellules vides
2 Uniquement la valeur "CP" par exemple.

Le possesseur aurait bien sur tous les droits..

Je cherche...

Merci pour l'aide, c'est une base, et en même temps si on peut avancer ensemble ça sera volontiers

Merci
Patrick

[ouskel'n'or]

Je te propose une solution simpliste à placer dans la feuille de code de la feuille de calculs

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target <> "" And Target <> "CP" Then
        Target = ""
        Target.Select
    End If
End Sub

En partant de là on devrait pouvoir trouver "quelque chose"
A+

PS - pour faire ça, il faut interdire l'accès aux cellules verrouillées (Contents:=True dans Protect)