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