Protèger une feuille

Bonjour à tous, j'aimerais savoir s'il est possible d'empêcher la lecture d'une seule feuille dans un document excel. C'est à dire que j'aimerais disposer d'un mot de passe pour accéder à la feuille en question mais que toutes les autres feuilles soient disponible ?

Merci

Martin

Bonsoir

masquer la feuille en question et protéger le classeur avec mot de passe.

mais attention un mot de passe fait par excel est très facilement "crackable" suffit de faire une recherche avec ton moteur de recherche préféré, et tu verras qu'il existe des utilitaires pour casser les mots de passe

fred

Damn...

On peut faire ça ?!

EDIT : Ah ben non. La proposition suivante permet de ne pas protéger le classeur entier, semble donc plus flexible et ne demande à l'utilisateur qu'un clic et une saisie de mot de passe ^^ Par contre s'il change de feuille, il est marron : doit retaper son pass. Si jamais, on peut laisser la feuille déprotéger pendant X minutes pour permettre de naviguer facilement

Ben du coup, je poste quand même..

Option Explicit
Private Sub Worksheet_Activate()

Static BlockedWs As String, ws As Worksheet
Dim n As Integer
Dim Pass As String

If ws Is Nothing Then Set ws = ActiveSheet
If BlockedWs <> "OK2" Then
    ws.Visible = False

    Pass = InputBox("Please enter password")
        If Pass = "blabla" Then
            ws.Visible = xlSheetVisible
            MsgBox "Access granted ! Ouaiii"
            BlockedWs = "OK2"
            ws.Activate
        Else
            MsgBox "Pass non valide !"
            BlockedWs = "KO"
            ws.Visible = True

            For n = 1 To Sheets.Count
            If Not ws.Name = Sheets(n).Name Then
                Sheets(n).Activate
                Exit For
            End If
            Next n

            Exit Sub
        End If
Else
    BlockedWs = ""
    Exit Sub
End If

End Sub

(J'ai l'impression de m'être bien fait chier pour rien )

EDIT : Mea culpa, j'avais pas envoyé le bon code. C'est réctifié

salut

une proposition :

tu peux mettre un bouton dans une feuille visible par tous qui te donne accès à la feuille caché à ceux qui ont le mot de passe

bouton avec le code :

Password = InputBox("Tapez le code d' Acces", "")

If Password <> "TON MOT DE PASSE" Then Exit Sub

Sheets("NON DE LA FEUILLE A CACHER").Visible = True

ET UN BOUTON RETOUR pour revenir à la feuille de ton choix par exemple

avec le code :

Sheets("feuille de ton choix").Visible = True

Sheets("feuille de ton choix").select

à tester ....