Sylvie_076
XLDnaute Nouveau
Bonjour à Toutes et à Tous,
Je viens de reprendre un Classeur Excel (prenant en charge les macros).
Ce Classeur est composé de 3 feuilles.
Sur la Feuil1, un bouton avec mot de passe me permet d'afficher la Feuil2 masquée à l'ouverture du Classeur.
Actuellement, les 3 feuilles sont protégées en écriture.
Les utilisateurs peuvent enrichir uniquement les cellules non verrouillées des Feuil1 et Feuil3.
Les personnes chargées de l'administration enrichissent la Feuil2.
A la fermeture et l’enregistrement du classeur, la Feuil2 est automatiquement masquée.
Mon problème est le suivant : Je souhaite que le Classeur soit protégé :
- Protéger avant l’affichage de la Feuil2,
- Protéger pendant l’affichage de la Feuil2
- Protéger automatiquement à la fermeture du classeur en même temps que la Feuil2 est masquée.
J’ai essayé d’inclure les instructions ci-dessous dans le ThisWorbook ou dans le Userform1.
ActiveWorkbook.Unprotect " mot de passe "
ActiveWorkbook.Protect "mot de passe"
Un message d’erreur s’affiche :
Erreur d’exécution ‘1004’
Impossible de définir la propriété Visible de la classe Worksheet
/*****************************************/
Le Code dans This Workbook est le suivant :
Private Sub Workbook_Open()
Sheets("Feuil2").Visible = xlVeryHidden
End Sub
Private Sub b_ok_Click()
If Me.TextBox1 = "toto" Then
/*****************************************/
Le Code dans Userform est le suivant :
Private Sub b_ok_Click()
If Me.TextBox1 = "toto" Then
Unload Me
Sheets("Feuil2").Visible = xlSheetVisible
Sheets("Feuil2").Select
Else
MsgBox "erreur"
Me.TextBox1 = ""
Me.TextBox1.SetFocus
End If
End Sub
/*****************************************/
J'ai longtemps parcouru le lien suivant :
https://www.excel-downloads.com/threads/protection-deprotection-classeur-vba.183026/
Je ne trouve pas la solution. Merci pour votre lecture et peut-être votre aide.
Sylvie
http://forum.excel-pratique.com/membre43251.html Sylvie_076
Nouveau venu
Messages : 3
Inscription : 18 Septembre 2016
Version Excel : 2010
Je viens de reprendre un Classeur Excel (prenant en charge les macros).
Ce Classeur est composé de 3 feuilles.
Sur la Feuil1, un bouton avec mot de passe me permet d'afficher la Feuil2 masquée à l'ouverture du Classeur.
Actuellement, les 3 feuilles sont protégées en écriture.
Les utilisateurs peuvent enrichir uniquement les cellules non verrouillées des Feuil1 et Feuil3.
Les personnes chargées de l'administration enrichissent la Feuil2.
A la fermeture et l’enregistrement du classeur, la Feuil2 est automatiquement masquée.
Mon problème est le suivant : Je souhaite que le Classeur soit protégé :
- Protéger avant l’affichage de la Feuil2,
- Protéger pendant l’affichage de la Feuil2
- Protéger automatiquement à la fermeture du classeur en même temps que la Feuil2 est masquée.
J’ai essayé d’inclure les instructions ci-dessous dans le ThisWorbook ou dans le Userform1.
ActiveWorkbook.Unprotect " mot de passe "
ActiveWorkbook.Protect "mot de passe"
Un message d’erreur s’affiche :
Erreur d’exécution ‘1004’
Impossible de définir la propriété Visible de la classe Worksheet
/*****************************************/
Le Code dans This Workbook est le suivant :
Private Sub Workbook_Open()
Sheets("Feuil2").Visible = xlVeryHidden
End Sub
Private Sub b_ok_Click()
If Me.TextBox1 = "toto" Then
/*****************************************/
Le Code dans Userform est le suivant :
Private Sub b_ok_Click()
If Me.TextBox1 = "toto" Then
Unload Me
Sheets("Feuil2").Visible = xlSheetVisible
Sheets("Feuil2").Select
Else
MsgBox "erreur"
Me.TextBox1 = ""
Me.TextBox1.SetFocus
End If
End Sub
/*****************************************/
J'ai longtemps parcouru le lien suivant :
https://www.excel-downloads.com/threads/protection-deprotection-classeur-vba.183026/
Je ne trouve pas la solution. Merci pour votre lecture et peut-être votre aide.
Sylvie
http://forum.excel-pratique.com/membre43251.html Sylvie_076
Nouveau venu
Messages : 3
Inscription : 18 Septembre 2016
Version Excel : 2010
- Lien supprimé
- Envoyer un e-mail à Sylvie_076