Discussion :

[funambule74]

Bonjour,

Je viens de m'inscrire, et de me présenter sur le forum, après l'avoir longtemps utilisé via la fonction recherche.
Mais cette fois, je viens solliciter directement votre aide car je n'ai pas trouvé ce qu'il me faut, ou pas tout à fait ...
Voilà, j'ai un classeur excel qui représente le planning annuel de mon équipe (professionnelle). Dans ce classeur, il y a plusieurs onglets :
un onglet "planning", un onglet "saisie polyvalence", et des onglets portant les noms de mes collègues "manu", "gabi", "sam", etc.

Je souhaiterais, à l'aide de mots de passe différents, modifier l'accès à ce classeur.
1-Tout d'abord, un accès en lecture seul de l'onglet "planning" pour les opérateurs de mon équipe. Les autres onglets restent masqués.
2-Un accès par mot de passe à ce même onglet "planning" mais en autorisant les modifications. C'est pour mon remplaçant pendant mes vacances (je suis la chef ). Les autres onglets restent masqués.
3-un accès par un autre mot de passe, qui me donne accès à tous les onglets en modification.

Bonus, si je peux me permettre ...
Dans les deux premiers cas, avec l'affichage de l'onglet "planning" seulement, que ce soit en lecture seule ou en modification, je souhaiterais cacher les formules. B1 oui, je ne peux pas révéler tous les secrets de la gestion de planning de mon équipe

Si quelqu'un sait comment faire ça en VBA, je le remercie mille fois à l'avance !!!

Bonne journée.

[jijie]

Bonjour,

Alors je ne sais pas si j'ai bien compris mais avec un userform qui contient un textbox et un bouton et :

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
Private Sub CommandButton1_Click()
'Me.InputBox.PasswordChar = "*"
Dim b As String
b = TextBox1
 
If b = "AAA" Then ' autorise toute modification sur tout le classeur
'on ouvre toutes les feuilles et on enlève la protection
Dim LaFeuille As Worksheet
For Each LaFeuille In ActiveWorkbook.Worksheets
      LaFeuille.Unprotect Password:="741"
Next
 
 
Dim MaFeuille As Worksheet
' ici on affiche toutes les feuilles en visible
For Each MaFeuille In ActiveWorkbook.Worksheets
     MaFeuille.Visible = xlSheetVisible
 
Next
 
' on montre les onglets et barre défilement
With ActiveWindow
        .DisplayHorizontalScrollBar = True
        .DisplayWorkbookTabs = True
        .DisplayVerticalScrollBar = True
    End With
 
End If
 
If b = "BBB" Then ' autorise
' on enlève la protection
For Each LaFeuille In ActiveWorkbook.Worksheets
      LaFeuille.Unprotect Password:="741"
Next
 
 
 
 
' on montre les onglets et barre défilement
With ActiveWindow
        .DisplayHorizontalScrollBar = True
        .DisplayWorkbookTabs = True
        .DisplayVerticalScrollBar = True
    End With
 
End If
 
 If b = "CCC" Then ' ici on cache selon son choix
 
 
 
Feuil4.Visible = xlSheetHidden 'ici les feuilles sont caché mais reste accessible pour macro par exemple
Feuil5.Visible = xlSheetHidden
Feuil6.Visible = xlSheetHidden
Feuil9.Protect Password:="741"
Feuil7.Protect Password:="741"
 
 
' on cache les onglets et barre défilement
With ActiveWindow
        .DisplayHorizontalScrollBar = False
        .DisplayWorkbookTabs = False
    End With
 
 
Else
 
 
End If
 
 
 
Unload Me
 
End Sub
 
Private Sub textbox1_Change()
 
End Sub
 
 
Private Sub UserForm_Initialize()
 
  Me.TextBox1.PasswordChar = "*"
 
End Sub

Donc dans cette version de un de mes fichier, avec le code CCC les onglets ne sont pas visibles mais une partie peuvent être rendu visibles en allant sur option du classeur ou en codant BBB, par contre feuil4 feuil5 feuil6 elles ne pourront être visibles que en déclenchant AAA!

Bien-sur il faut adapter en fonction de ton classeur!

[parmi]

Dans le cas où tu laisses la feuille en modification, il te faudrait tout de même verrouiller les cellules avec des formules...

Code :

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

MaPlage.Locked = True

Si tu ne veux pas que les formules soient lisibles

Code :

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

MaPlage.FormulaHidden = True

et finalement pour que le tout fonctionne bien, tu dois protéger ta feuille
(AllowFiltering:=True si tu veux permettre l'utilisation de filtres, sinon... laisse tomber)

Code :

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

ActiveSheet.Protect "Mot de passe", AllowFiltering:=True

Si tu as des macros et que tu ne veux pas que les utilisateurs puisse passer par le menu Macros pour les activer, inscris en début de module standard, au même niveau que Option Explicit, si tu utilises (et tu devrais...)

Code :

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

Option Private Module