Mot de passe

[Sebastienh]

Bonjour,

Voici une macro :

'saisie du mot de passe1
If TextBox1 = "123" Or TextBox1 = "456" Or TextBox1 = "789" Then
ligne = Sheets("main_courante").Range("A65536").End(xlUp).Row + 1
Sheets("main_courante").Cells(ligne, 1) = Environ("USERNAME")
Sheets("main_courante").Cells(ligne, 2) = TextBox1.Value
Sheets("main_courante").Cells(ligne, 3) = Date
TextBox1 = ""
'Décharger l'userform
Unload PASSE
'Ouvrir la page d'accueil
Sheets("bd1").Visible = True
Sheets("bd3").Visible = True

Elle me permet d'ouvrir des feuilles verrouillées et d'avoir une main courant.

Je souhaiterais rajouter un mode de passe vide qui permet d'avoir la lecture seule uniquement afin de visualiser 2 feuilles.

Encore merci pour votre aide
A+
Seb

 

[jp14]

Re : Mot de passe

Bonjour

Une solution utiliser Select Case

'saisie du mot de passe1
select case TextBox1
            case "123" , "456" , "789"
ligne = Sheets("main_courante").Range("A65536").End(xlUp). Row + 1
Sheets("main_courante").Cells(ligne, 1) = Environ("USERNAME")
Sheets("main_courante").Cells(ligne, 2) = TextBox1.Value
Sheets("main_courante").Cells(ligne, 3) = Date
Sheets("bd1").Visible = True
Sheets("bd3").Visible = True
           case ""
                    
           case else
             exit sub
end select
Unload PASSE

A tester

JP

 

[Sebastienh]

Re : Mot de passe

Ne marche pas : erreur de compilation
Merci d'avance

 

[Sebastienh]

Re : Mot de passe

personne veut m'apporter une solution;;;

 

[Pierrot93]

Re : Mot de passe

Bonjour,

personne veut m'apporter une solution;;;

il faudrait plus de détails...
sur quelles ligne de code ce message...

Ne marche pas : erreur de compilation

bon après midi
@+

 

[hoerwind]

Re : Mot de passe

Bonjour, salut Pierrot,

Je n'emploie jamais de mot de passe sur mes fichiers, je ne peux donc être de grande utilité.

Je sais néanmoins que Ti a écrit une macro (voir zone de téléchargement sur ce site) qui semble, d'après ce que j'en ai lu, être assez efficace si le mot de passe n'excède pas huit caractères.

J'ai aussi lu qu'en ouvrant sur OOo (Calc) un fichier protégé sur Excel, fort souvent il s'ouvre sans se préoccuper du mot de passe.
A tester.

 

[Sebastienh]

Re : Mot de passe

sur Case ""

 

[Pierrot93]

Re : Mot de passe

Re, Bonjour hoerwind,

Aarf, j'ai pas l'impression que nous cherchons ici à "forcer" l'ouverture d'un fichier / feuille protégé sans connaître le mot de passe... Ou alors je n'ais pas tout compris.... fort possible du reste....

 

[Sebastienh]

Re : Mot de passe

merci d'avance

 

[Pierrot93]

Re : Mot de passe

sur Case ""

cette instruction semble valide chez moi... A voir dans le contexte....

 

[Sebastienh]

Re : Mot de passe

non, je ne cherche pas à forcer mais à partager un fichier excel avec plusieurs utlilisateurs qui ont plusieurs niveaux.

Merci pour votre aide

 

[hoerwind]

Re : Mot de passe

Salut Pierrot,

Tu as bien lu, moi par contre pas, car j'avais le message suivant en tête :
https://www.excel-downloads.com/threads/oter-protection-dune-feuille-sans-mot-de-passe.152630/
J'ai donc sonné à la mauvaise porte, avec mes excuses !

 

[Sebastienh]

Re : Mot de passe

Je vous joint mon fichier car cela ne fonctionne pas :


'################################
'VALIDATION DES MOTS DE PASSE
'################################

Private Sub CommandButton1_Click()
Dim i, ligne
'Ne pas beugguer sur une erreur
On Error Resume Next


'saisie du mot de passe1
Select Case TextBox1
Case "123", "456", "789"
ligne = Sheets("main_courante").Range("A65536").End(xlUp).Row + 1
Sheets("main_courante").Cells(ligne, 1) = Environ("USERNAME")
Sheets("main_courante").Cells(ligne, 2) = TextBox1.Value
Sheets("main_courante").Cells(ligne, 3) = Date
Sheets("bd1").Visible = True
Sheets("bd3").Visible = True
Case ""

Case Else
Exit Sub
End Select
Unload PASSE



'saisie du mot de passe2
If TextBox1 = "admin" Or TextBox1 = "1" Then
ligne = Sheets("main_courante").Range("A65536").End(xlUp).Row + 1
Sheets("main_courante").Cells(ligne, 1) = Environ("USERNAME")
Sheets("main_courante").Cells(ligne, 2) = TextBox1.Value
Sheets("main_courante").Cells(ligne, 3) = Date
TextBox1 = ""
'afficher bouton cacher
Me.CommandButton2.Visible = True



Else
'saisie du mot de passe3
If TextBox1 = "321" Or TextBox1 = "Cav" Or TextBox1 = "Car" Then
ligne = Sheets("main_courante").Range("A65536").End(xlUp).Row + 1
Sheets("main_courante").Cells(ligne, 1) = Environ("USERNAME")
Sheets("main_courante").Cells(ligne, 2) = TextBox1.Value
Sheets("main_courante").Cells(ligne, 3) = Date
TextBox1 = ""
'Décharger l'userform
Unload PASSE
'Ouvrir la page d'accueil
Sheets("bd3").Visible = True
Sheets("bd4").Visible = True
Sheets("bd5").Visible = True



Else
'Message d'erreur si mot de passe incorrect
MsgBox "Mot de passe invalide", vbOKOnly, "Password"
'Vider la textbox
TextBox1 = ""
End If
End If





End Sub

Private Sub CommandButton2_Click()
Sheets("accueil").Activate
Dim i
For i = 1 To Sheets.Count
If Sheets(i).Name <> "ACCUEIL" Then Sheets(i).Visible = True
Next

MsgBox "ONGLETS DEVERROUILLES", vbOKOnly, "Password"

Unload PASSE

End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub UserForm_INITIALIZE()
Me.CommandButton2.Visible = False

End Sub


mon but est d'avoir la possibilité de lecture sans mot de passe.
Je dis bien de lecture sans possibilité de modification

Encore merci de votre aide
A+

 

[jp14]

Re : Mot de passe

Bonsoir

Ci joint un exemple avec select case

A importer avec l'éditeur VBA (menu Fichier, Importer)

JP

 

[Sebastienh]

Re : Mot de passe

Bonsoir Jp 14,

Merci pour ton aide, l'idée est bonne mais cela met le fichier en lecture seul.
Or moi, je voudrais qu'une personne rentre dans le fichier sans mot de passe et puisse avoir accès aux données sans les modifier.

Merci d'avance