Protection classeur

Pierrot93

XLDnaute Barbatruc

• 18 Juin 2007

• #2

Re : Protection classeur

Bonjour Spea

peut être une solution ci dessous, code à placer dans ThisWorkBook :

Code:

Private Sub Workbook_Open()
If Application.UserName = "Nom_Utilisateur_Autorisé" Then
    Sheets("nom_de_ta_feuille").Unprotect Password:="1234"
End If
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Sheets("nom_de_ta_feuille").Protect Password:="1234"
End Sub

bonne journée
@+

 

Vote positif 0 Vote négatif

S

SPEA

XLDnaute Occasionnel

• 18 Juin 2007

• #3

Re : Protection classeur

Bonjour Pierrot et merci pour ta reponse.

si je comprend bien le code, la macro enlève la protection de la feuille si
l'utilisateur entre le bon mot de passe et remet la protection à la fermeture du fichier.

Je cherche un code qui autorise mon collaborateur à modifier seulement quelques colonnes apres s'etre identifié en entrant ses initiales comme mot de passe.

En parallèle je dois pouvoir ouvrir le classeur en entrant mes initiales et avoir tous les droits pour modifier le classeur.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 18 Juin 2007

• #4

Re : Protection classeur

Re

non, cette macro déprotège une feuille à l'ouverture pour un utilisateur x, et reprotège avent sauvegarde. Donc si tu protèges ta feuille en déverrouillant les cellules accessibles pour les autres utilisateurs, tu devrais arriver au résultat escompté, enfin si j'ai bien compris...

@+

 

Vote positif 0 Vote négatif

S

SPEA

XLDnaute Occasionnel

• 19 Juin 2007

• #5

Re : Protection classeur

comment l'utilisateur s'identifie t'il ? Je dois créer un userform ?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 19 Juin 2007

• #6

Re : Protection classeur

Bonjour Spea

avec cette methode, l'utilisateur est automatiquement détecté par le nom déclaré dans => barre de menu => outils => option => onglet général => nom utilisateur, c'est cette ligne de code qui fait le distingo, ca évite un USF :

Code:

If Application.UserName = "Nom_Utilisateur_Autorisé" Then

@+

 

Vote positif 0 Vote négatif

S

SPEA

XLDnaute Occasionnel

• 19 Juin 2007

• #7

Re : Protection classeur

Bonjour Pierrot, merci pour ces precisions

Peux on ameliorer le code pour 2 utilisateurs differents, chacun ayant sont mot de passe.

- Utilisateur 1 autorisé à saisir seulement dans quelques colonnes, le reste du classeur verouillé (structure impossible à modifier)

- Utilisateur 2 accède au classeur non protégé, possibilité de modifier la structure des feuilles.

Pour l'utilisateur 1, une piste consiste peut être à proteger les feuilles et se servir de la propriété enableselection pour permettre de selectionner les cellules dont la propriété Locked est false (worksheets("nomdelafeuille").enableselection=xlunlockedcells...

qu'en penses tu ?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 19 Juin 2007

• #8

Re : Protection classeur

Re Spea

c'est bien ce que fait le code que je t'ai donné, ou alors il y a qulque chose que je ne comprends pas...

@+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Juin 2007

• #9

Re : Protection classeur

Re

-Pierrot93
Sauf erreur de ma part
Application.UserName

recupère le nom enregistré à l'installation d'Excel non?
cad le nom du propriétaire du pc


Je crois que SPEA veut identifier le nom d' utilisateur de la session en cours

Voila une macro qui le fait

Code:

' By Chris Rae, 14/6/99, 3/9/00.
Option Explicit
' This is used by GetUserName() to find the current user's
' name from the API
Declare Function Get_User_Name Lib "advapi32.dll" Alias _
                 "GetUserNameA" (ByVal lpBuffer As String, _
                 nSize As Long) As Long
Function GetUserName() As String
    Dim lpBuff As String * 25
 
    Get_User_Name lpBuff, 25
    GetUserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
End Function

Après relecture j'ai un doute
SPEA veut peut-etre créer une liste d'utilisateurs dans une feuille cachée
avec des droits différents avec identification dans USF à l'ouverture

Si c'est le cas un exemple ici
Lien supprimé

 

Dernière édition: 19 Juin 2007

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 19 Juin 2007

• #10

Re : Protection classeur

Re, bonjour Staple

oui staple, c'est bien le nom d'utilisateur office, pour l'utilisateur windws utiliser plutôt :

Code:

x = Environ("UserName")

bon après midi
@+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Juin 2007

• #11

Re : Protection classeur

Re

->Pierrot93

oneliner is simply the best

Pourquoi faire compliquer quand ...

 

Vote positif 0 Vote négatif

S

SPEA

XLDnaute Occasionnel

• 19 Juin 2007

• #12

Re : Protection classeur

Staple1600 à dit:

Re

-Pierrot93
Sauf erreur de ma part
Application.UserName

recupère le nom enregistré à l'installation d'Excel non?
cad le nom du propriétaire du pc


Je crois que SPEA veut identifier le nom d' utilisateur de la session en cours

Voila une macro qui le fait

Code:

' By Chris Rae, 14/6/99, 3/9/00.
Option Explicit
' This is used by GetUserName() to find the current user's
' name from the API
Declare Function Get_User_Name Lib "advapi32.dll" Alias _
                 "GetUserNameA" (ByVal lpBuffer As String, _
                 nSize As Long) As Long
Function GetUserName() As String
    Dim lpBuff As String * 25
 
    Get_User_Name lpBuff, 25
    GetUserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
End Function

Après relecture j'ai un doute
SPEA veut peut-etre créer une liste d'utilisateurs dans une feuille cachée
avec des droits différents avec identification dans USF à l'ouverture
Si c'est le cas un exemple ici
Lien supprimé

Cliquez pour agrandir...

Affirmatif c'est ce que je veux pour ce fichier car dans la 1° macro, n'importe qui ouvrant le fichier depuis le PC de l'utilisateur 1 a accés au classeur.

Si utilisateur 1 se log au fichier via USF avec son nom utilisateur et mdp, il a accés à la saisie sur des colonnes non protegées.

Si utilisateur 2 se log au fichier avec son nom utilisateur et mdp il a accés à toute la structure du fichier.

 

Vote positif 0 Vote négatif

S

SPEA

XLDnaute Occasionnel

• 20 Juin 2007

• #13

Re : Protection classeur

OK j'ai trouvé comment limiter l'accés à mon collaborateur, sur chaque feuille je dévérouille les colonnes auxquelles il doit avoir accés, ensuite dans worksheet change:

Sheets("Feuil1").EnableSelection = xlUnlockedCells
Sheets("Feuil1").Protect Contents:=True, UserInterfaceOnly:=True

Par contre je ne sais pas comment faire pour creer un USF dans lequel on tape un code ou des initiales, suivant le code saisi dans l'USF les feuilles sont protégées avec la methode au dessus ou la protection est otée.

 

Vote positif 0 Vote négatif

Kotov

XLDnaute Impliqué

• 20 Juin 2007

• #14

Re : Protection classeur

Bonjour à tous,

En complément de la question initiale de SPEA, voiçi une option que j'avais retenue sur un projet :

1. toutes les pages (à l'exception de la page d'accueil) sont cachées
2. sur la page d'accueil, un bouton qui déclenche l'apparition d'un USF avec demande d'un mot de passe (3 mots de passe pour 3 niveaux d'accès)
3. selon le mot de passe saisi, les feuilles "utiles" deviennent visibles
4. à la sortie du classeur, toutes les pages (à l'exception de la page d'accueil) sont de nouveau cachées

A mon sens l'USF est une solution simple. Faute de temps, je ne peux entrer dans les détails, mais avec Pierrot et Staple aux commandes, ca va rouler tout tout seul ! 😉

Bonne journée à tous
Kotov

 

Vote positif 0 Vote négatif