Discussion :

[VELO1222]

Bonjour le Forum,
je souhaite ouvrir mon fichier par un mot de passe se trouvant dans un cellule
voici le code si vous pouviez m'aider

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Workbook_Open()
Application.ScreenUpdating = False
'ThisWorkbook.IsAddin = False
If Date > #1/5/2010# Then
Do Until c <> ""
c = InputBox("quel est votre mot de passe?", "accès restreint", "mot de passe SVP", 5500, 5000)
cpt = cpt + 1
If cpt > 3 Then ThisWorkbook.Close savechanges:=False
Loop
On Error Resume Next
R = Sheets("RENSEIGNEMENTS").Range("D1").Value
If c = R Then ThisWorkbook.Close savechanges:=False
End If
End sub

D'avance merci
Cdt

[helas]

Bonsoir,
cela ne protegera pas grand chose , de plus le code ouvre le classeur si le mot de passe est erroné.

[VELO1222]

Bonjour,
protegé! oui par un mot de passe pour l'ouverture du fichier mais mon probleme est que le mot de passe que j'ai saisie dans la cellule D1 n'ai pas reconu et de ce fait le fichier reste sur la page grise

[Theze]

Bonjour,

Teste ce qui suit mais bon, je ne crois pas que ceci est une grande efficacité, l'utilisateur n'a qu'à désactiver les macros et il aura accés au classeur !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
Private Sub Workbook_Open()
 
    Dim C As String
    Dim cpt As Integer
    Dim R As String
    Application.ScreenUpdating = False
    'ThisWorkbook.IsAddin = False
 
    If Date > #1/5/2010# Then
 
        R = Sheets("RENSEIGNEMENTS").Range("D1").Value
 
        Do
 
            C = InputBox("Quel est votre mot de passe?", _
                         "Accès restreint", _
                         "Mot de passe SVP", _
                         5500, _
                         5000)
 
            cpt = cpt + 1
 
        Loop Until C = R Or cpt > 3
 
        If C <> R Then ThisWorkbook.Close savechanges:=False
 
    End If
 
End Sub

Hervé.

[VELO1222]

OK merci beaucoup hervé ça fonctionne
Cdt