Protection onglet
Résolu
juer31
Messages postés
114
Date d'inscription
Statut
Membre
Dernière intervention
-
juer31 Messages postés 114 Date d'inscription Statut Membre Dernière intervention -
juer31 Messages postés 114 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
j'ai un ficher avec 4 onglet (hrs entrepreneur, saisie, matériels et procèdure)
j'ai masquer mon onglet "hrs entrepreneur) et installer une macro dans l'onglet saisi pour pouvoir permettre l'affichage et ouverture de l'onglet avec la saisi d'un mot de passe.
mon problème c'est que l'on peu afficher l'onglet a partir de l'option afficher et masque les onglet et que si je protège le classeur ma macro plante.
Est-ce qu'il y a moyen de régler ce problème?
Merci
Voici ma macro
Dim mdp As String, testmdp As String
mdp = "XXXXX"
reco:
testmdp = InputBox("Introduisez le mdp pour passer en mode administrateur")
If testmdp = mdp Then
Sheets("Hrs entrepreneur").Visible = True
ElseIf testmdp <> "" Then
MsgBox "Mot de passe erroné" & Chr(10) & "Réessayez pour passer en mode Administrateur" & Chr(10) & "ou laissez vide pour rester en mode normal"
GoTo reco
End If
'
Sheets("Hrs entrepreneur").Select
Range("b9").Select
End Sub
j'ai un ficher avec 4 onglet (hrs entrepreneur, saisie, matériels et procèdure)
j'ai masquer mon onglet "hrs entrepreneur) et installer une macro dans l'onglet saisi pour pouvoir permettre l'affichage et ouverture de l'onglet avec la saisi d'un mot de passe.
mon problème c'est que l'on peu afficher l'onglet a partir de l'option afficher et masque les onglet et que si je protège le classeur ma macro plante.
Est-ce qu'il y a moyen de régler ce problème?
Merci
Voici ma macro
Dim mdp As String, testmdp As String
mdp = "XXXXX"
reco:
testmdp = InputBox("Introduisez le mdp pour passer en mode administrateur")
If testmdp = mdp Then
Sheets("Hrs entrepreneur").Visible = True
ElseIf testmdp <> "" Then
MsgBox "Mot de passe erroné" & Chr(10) & "Réessayez pour passer en mode Administrateur" & Chr(10) & "ou laissez vide pour rester en mode normal"
GoTo reco
End If
'
Sheets("Hrs entrepreneur").Select
Range("b9").Select
End Sub
A voir également:
- Protection onglet
- Raccourci rouvrir onglet fermé - Guide
- K9 web protection - Télécharger - Contrôle parental
- Protection cellule excel - Guide
- Onglet disposition excel ✓ - Forum Word
- Excel : l'onglet Création (Outils de tableau) n'apparaît pas ! ✓ - Forum Excel
3 réponses
Bonjour,
mon problème c'est que l'on peu afficher l'onglet a partir de l'option afficher
Tu veux de la protection et tu mets une clé à ta feuille : normal tu as beaucoup de richesse dans ton classeur.
Tu veux de la protection et tu mets une clé à ta porte : normal tu as beaucoup de richesse dans ta maison.
Dans les 2 cas si le jeu en vaut la peine, le cambrioleur trouvera le moyen de rentrer avec une différence tout de même. Si l'on rentre dans ta maison tu constateras la disparition des biens mais dans ton classeur l'on peux emporter son contenu sans que tu le saches.
Tout cela pour te dire que ce n'est pas avec une macro basique que l'on peut outrepasser facilement que tes données seront protégées. Pour que ta macro ne plante pas tout de même, sache qu'il te faut protéger ton classeur par macro avec les bons paramètres qui sont très bien expliqués dans l'aide de la fonction sous excel.
mon problème c'est que l'on peu afficher l'onglet a partir de l'option afficher
Tu veux de la protection et tu mets une clé à ta feuille : normal tu as beaucoup de richesse dans ton classeur.
Tu veux de la protection et tu mets une clé à ta porte : normal tu as beaucoup de richesse dans ta maison.
Dans les 2 cas si le jeu en vaut la peine, le cambrioleur trouvera le moyen de rentrer avec une différence tout de même. Si l'on rentre dans ta maison tu constateras la disparition des biens mais dans ton classeur l'on peux emporter son contenu sans que tu le saches.
Tout cela pour te dire que ce n'est pas avec une macro basique que l'on peut outrepasser facilement que tes données seront protégées. Pour que ta macro ne plante pas tout de même, sache qu'il te faut protéger ton classeur par macro avec les bons paramètres qui sont très bien expliqués dans l'aide de la fonction sous excel.
Bonjour,
Pour régler le souci d'affichage, au lieu de juste masquer la feuille... il faut la rendre "veryhidden"
C'est normal.
Pour pouvoir te servir de ta feuille dans tes macros, tu dois d'abord (comme l'indique gbinforme) la déprotéger par macro, puis la re-protéger lorsque tu as terminé.
Et de façon à ce que les utilisateurs ne puissent pas voir les éventuelles manipulation que tes macros réalisent sur cette feuille, tu place au début de ton code
Puis tu le remets à true une fois les traitements terminés.
mon problème c'est que l'on peu afficher l'onglet a partir de l'option afficher et masque les onglet
Pour régler le souci d'affichage, au lieu de juste masquer la feuille... il faut la rendre "veryhidden"
Sheets("Hrs entrepreneur").Visible = xlVeryHidden
et que si je protège le classeur ma macro plante.
C'est normal.
Pour pouvoir te servir de ta feuille dans tes macros, tu dois d'abord (comme l'indique gbinforme) la déprotéger par macro, puis la re-protéger lorsque tu as terminé.
Et de façon à ce que les utilisateurs ne puissent pas voir les éventuelles manipulation que tes macros réalisent sur cette feuille, tu place au début de ton code
Application.ScreenUpdating = False
Puis tu le remets à true une fois les traitements terminés.