Accés d'un classeur selon User

[WDAndCo]

Bonsoir le Forum

Je voudrais que l'accès d'un classeur soit réglementé à l'ouverture.
Soit l'USER 123456 et l'USER 654321 ont un accès normal
et que tout les autre ne soit qu'en lecture seul.

Votre avis cela est il possible ?

D'avance merci.
Cordialement.
Dominique

 

[kjin]

Re : Accés d'un classeur selon User

Bonsoir,

Soit l'USER 123456 et l'USER 654321 ont un accès normal
et que tout les autre ne soit qu'en lecture seul.

Peux tu expliciter, lecture seule avec mdp pour l'écriture ou classeur protégé par mdp
Dans le premier cas, il suffira d'enregistrer le classeur sous un nouveau nom pour permettre l'écriture, dans l'autre ce ne sera pas possible
A+
kjin

 

[Papou-net]

Re : Accés d'un classeur selon User

Bonsoir WDAndCo, Kjin,

Dans le premier cas, il suffira d'enregistrer le classeur sous un nouveau nom pour permettre l'écriture, dans l'autre ce ne sera pas possible

Re Kjin :

Je pense que dans le cas N°2 c'est également possible. En effet, dans le module Workbook_Open il suffit de tester le User et le cas échéant, d'ôter la protection du classeur pour l'utilisateur autorisé.

Ex:

Private Sub Workbook_Open()
Select Case Application.UserName
  Case "123456", "654321"
    ThisWorkbook.Unprotect
End Select
End Sub

Espérant avoir été utile.

Cordialement.

 

[kjin]

Re : Accés d'un classeur selon User

Re, bonsoir Papou 🙂,
Je me suis mal exprimé, je voulais dire mdp sur les feuilles du classeur bien sûr, Par ailleurs, notre ami n'est pas très explicite quant à la notion de USER
A+
kjin

 

[kiki29]

Re : Accés d'un classeur selon User

Salut,à priori je pense au nom de login windows et dans ce cas

     Environ("USERNAME")

car Application.UserName ne donne que le nom de "license d'utilisation accordée à"
du menu : ? / A Propos de Microsoft Excel

 

[WDAndCo]

Re : Accés d'un classeur selon User

Bonjour le Forum

Merci pour vos réponses.

Il est vrai que je n'est pas était des plus clair !

Je voudrais que l'accès d'un classeur soit réglementé à l'ouverture.
Soit l'USERNAM 123456 et l'USERAM 654321 ont un accès normal sans demande de MDP.
L'accès des USERNAM autorisés doit être transparents.

Mais pour les autres l'accès soit bloqué par la demande d'un MDP.

Cordialement.
Dominique

 

[tototiti2008]

Re : Accés d'un classeur selon User

Bonjour à tous,

Et je suppose qu'il ne faut absolument pas que les 2 User cités tapent un mot de passe... parce que sinon, ça existe déjà :

Menu Outils - Options
Onglet Sécurité
Mot de passe pour la modification

 

[kjin]

Re : Accés d'un classeur selon User

bonsoir,
Basique
Mdp : "Toto"
A+
kjin

 

[WDAndCo]

Re : Accés d'un classeur selon User

Bonjour le Forum

Je ne comprends pas, le dernier classeur du fil qui s'ouvre sans problème :
Sans que l'user soit le bon et surtout si on ferme l'userfom du MDP on est sur le classeur.

 

[kjin]

Re : Accés d'un classeur selon User

bonjour,

Je voudrais que l'accès d'un classeur soit réglementé à l'ouverture.
Soit l'USERNAM 123456 et l'USERAM 654321 ont un accès normal sans demande de MDP.
L'accès des USERNAM autorisés doit être transparents.

Tu ne comprends pas quoi ?!
Si la boite du mot de passe s'affiche c'est que nom d'USER n'est pas valide (123456 ou 654321), mais ça on s'en doutait
As tu au moins essayé de modifier le fichier sans mot de passe valide et sans nom d'USER valide ?
Le fichier s'ouvre normalement dans tout les cas
Tu n'as droit qu'à un seul essai pour le mot de passe; si tu entres "Toto", le fichier peut être modifié, sinon lecture seule autorisée (feuille et classeur protégés) et c'est bien ce que tu as demandé, non ?
A+
kjin

 

[WDAndCo]

Re : Accés d'un classeur selon User

Bonjour le Forum et kjin

Vu sous cette angle je mets ce code de coté pour une future utilisation. (Merci)

Moi, je pensé à une autre approche :
Que l'ouverture du Classeur soit possible aux USERNAME connus sans demande de MDP.
Et que l'ouverture de ce même classeur, pour tous les autres ne soit possible qu'après avoir donné le bon MDP.

Cordialement
Dominique

 

[kjin]

Re : Accés d'un classeur selon User

re,

Vu sous cette angle...

Moi, je pensé à une autre approche :
Que l'ouverture du Classeur soit possible aux USERNAME connus sans demande de MDP.
Et que l'ouverture de ce même classeur, pour tous les autres ne soit possible qu'après avoir donné le bon MDP.

Je voudrais que l'accès d'un classeur soit réglementé à l'ouverture.
Soit l'USER 123456 et l'USER 654321 ont un accès normal
et que tout les autre ne soit qu'en lecture seul.

Sans commentaire
kjin

 

[WDAndCo]

Re : Accés d'un classeur selon User

Re, oui bien sur mais un simple Alt F11 et le MDP est la :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
For i = 1 To Sheets.Count
    Sheets(i).Protect Password:="Toto"
Next
ActiveWorkbook.Protect Password:="Toto"
End Sub

Private Sub Workbook_Open()
If Environ$("username") = "123456" Or Environ$("username") = "654321" Then
    For i = 1 To Sheets.Count
        Sheets(i).Unprotect Password:="Toto"
    Next
    ActiveWorkbook.Unprotect Password:="Toto"
    Exit Sub
End If
UserForm1.Show
    End Sub

Alors que si le "Classeur n'est pas encore ouvert" cela devient plus dur (Je parle pour moi ! Bien sur)

Donc si il est vrai que j'ai parlé de "lecture seule" je préfère maintenant que le classeur ne s'ouvre avec un MDP pour les autres, et un accès sans MDP pour les USERNAME connus.

Dominique

 

[kjin]

Re : Accés d'un classeur selon User

re,
Mouais !🙄
Et si je désactive les macros ?!
Si tu ne protèges pas ton code (et encore que...)

Dans le module de Thisworkbook

Private Sub Workbook_Open()
If Environ$("username") = "123456" Or Environ$("username") = "654321" Then Exit Sub
UserForm1.Show
End Sub

Dans le module du formulaire

Private Sub TextBox1_Change()
If Len(TextBox1) < 4 Then Exit Sub
If TextBox1 = "Toto" Then
    Unload Me
    Exit Sub
End If
ActiveWorkbook.Close False
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then ActiveWorkbook.Close False
End Sub

kjin