Oui c'est possible. Regarde les discussions en bas à gauche de ton fil, ou fait une recherche sur "coffre fort" .J'ai un fichier excel avec une dizaine d'onglet, j'ai des collaborateurs qui ont besoin des données seulement tout le monde ne peut pas tout voir !
Alors est il possible selon un mot de passe défini de ne faire apparaitre uniquement les onglets nécessaire ?
Private Sub Workbook_Open()
Dim mdp As String, w As Worksheet
mdp = InputBox("Entrez votre mot de passe", "Mot de passe")
If mdp = "" Then Exit Sub 'ou Me.Close
For Each w In Worksheets
If w.[A1] = mdp Then w.Visible = True
Next
Me.Saved = True
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim test As Boolean, w As Worksheet
test = Me.Saved
Sheets("Accueil").Visible = True
For Each w In Worksheets
If w.Name <> "Accueil" Then w.Visible = xlVeryHidden
Next
Me.Saved = test
End Sub
Private Sub Workbook_Open()
Dim mdp As String, w As Worksheet
mdp = InputBox("Entrez votre mot de passe", "Mot de passe")
If mdp = "" Then Exit Sub 'ou Me.Close
For Each w In Worksheets
If w.[A1] = mdp Then w.Visible = True
Next
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim w As Worksheet
Sheets("Accueil").Visible = True
For Each w In Worksheets
If w.Name <> "Accueil" Then w.Visible = xlVeryHidden
Next
[COLOR="Red"]Me.Save[/COLOR]
End Sub
Private Sub Workbook_Open()
Dim mdp As String, w As Worksheet, flag As Boolean
1 mdp = InputBox("Entrez votre mot de passe", "Mot de passe")
If mdp = "" Then Exit Sub 'ou Me.Close
For Each w In Worksheets
If mdp = "toto" Or w.[A1] = mdp Then w.Visible = True: flag = True 'toto = mot de passe administrateur
Next
If Not flag Then GoTo 1
End Sub
J'ai un fichier excel avec une dizaine d'onglet, j'ai des collaborateurs qui ont besoin des données seulement tout le monde ne peut pas tout voir !
Alors est il possible selon un mot de passe défini de ne faire apparaitre uniquement les onglets nécessaire ?