Mot de passe sur une feuille

bonjour a tous

je cherche dans le fichier joint a ce que la feuil3(DataBl) soit masquer et que l'on ne puisse y accéder (s'afficher) que par saisi sur l'userform jaune si le mot de passe et ok

je sais que ce n'est pas d'une protection parfaite mais cela devrais me suffire .

amicalement

Bonjour

Tu écris :

je cherche dans le fichier joint...

Quel fichier joint ?

A te lire

bye !

re

petit oubli lolll

le voici

amicalement

Bonjour,

A tester.

Nota : Tus un problème avec la croix de fermeture Excel. elle fait apparaître le Userform2

Dans le module ThisWorkbook :

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    Worksheets("DataBL").Visible = False
    On Error GoTo 0
End Sub
Private Sub Workbook_Open()
    Application.Goto Worksheets("Modèle").Cells(1, 1)
End Sub

Dans le module de Userform2 :

Option Explicit
Private Sub CommandButton1_Click()
    If TextBox1.Text = "290164" Then
        Unload UserForm2
        Load UserForm2
        With Worksheets("DataBL")
            .Visible = True
            .Activate
            .Cells(1, 1).Select
        End With
    Else
        MsgBox "Le mot de passe est invalide."
        TextBox1 = ""
        TextBox1.SetFocus
    End If
End Sub
Private Sub CommandButton2_Click()
  TextBox1 = ""
  Unload UserForm2
End Sub

re

merci la feuille s'affiche bien si elle et masquer

mais reste accessible par le click droit puis afficher alors que je recherche a ne l'afficher que si on a le mot de passe sinon masqué

amicalement

Bonjour

Dans le code de Jean-Eric, modifies la ligne correspondante

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    Worksheets("DataBL").Visible = xlSheetVeryHidden
    On Error GoTo 0
End Sub
Private Sub Workbook_Open()
    Application.Goto Worksheets("Modèle").Cells(1, 1)
End Sub

Bonjour

Une possibilité

Dans le module "ThisWorkbook" masqué la feuille "DataBl" à l'ouverture du fichier

Private Sub Workbook_Open()

If Worksheets("DataBl").Visible = True Then

Worksheets("DataBl").Visible = False

Worksheets("Modèle").Activate

End If

End Sub

Dans le module "Userform2"

Option Explicit

Private Sub CommandButton1_Click()

If TextBox1.Text = "290164" Then

Worksheets("DataBl").Visible = True

Worksheets("DataBl").Activate

Unload Me

Else

MsgBox "Le mot de passe est invalide."

End If

End Sub

Private Sub CommandButton2_Click()

Unload Me

End Sub

Private Sub UserForm_Click()

End Sub

Cordialement

merci beaucoup

la solution de banzai fonctionne très bien

amicalement et bonne fin d'après midi