![]() |
|
Forum
|
|
|
#1 (permalink) |
|
XLDnaute Accro
Date d'inscription: septembre 2005
Localisation: Saint Apollinaire (21) Dijon
Messages: 1 908
|
bonjour
j'aimerais savoir si il est possible de verouiller une feuille d'un classeur et d'en empêcher la consultation sans un mot de passe la classique protection de zxcel ne me suffit pas puisqu'elle n'empêche pas la consultation merci
__________________
C'est parce-que la vitesse de la lumiére est superieur à celle du son...que certains ont l'air d'etre brillant, avant d'avoir l'air con... Thomas Boishardy |
|
|
|
| ANNONCES | |||
|
|
|
|
#2 (permalink) |
|
XLDnaute Impliqué
Date d'inscription: décembre 2005
Localisation: Tournefeuille
Messages: 522
|
Bonjour pascal21 et le forum.
Plusieurs solutions sont possibles: 1) Masquer la feuille en utilisant Format/feuille/masquer Inconvénient, l'utilisateur peut démasquer la feuille 2)Passer par Microsoft Visual basic, aller sur la feuille puis Affichage/propriétés et passer Visible à xlsheetVeryHidden Ceci est moins connu des utilisateurs. Pour une protection plus important il est possible de verrouiller visual basic avec Outils/propriétés et VBAProjet/Protection En esperant avoir répondu à ta demande.
__________________
![]() Avec Excel rien ne sert de courir, il faut partir à point. |
|
|
|
|
|
#3 (permalink) |
|
XLDnaute Accro
Date d'inscription: septembre 2005
Localisation: Saint Apollinaire (21) Dijon
Messages: 1 908
|
salut
tes solutions fonctionnent mais ne sont pas très pratiques mais n'y aurait-il pas une formule qui demande le mdp lorsque l'on clique sur l'onglet de la feuille à protéger
__________________
C'est parce-que la vitesse de la lumiére est superieur à celle du son...que certains ont l'air d'etre brillant, avant d'avoir l'air con... Thomas Boishardy |
|
|
|
|
|
#4 (permalink) |
|
Super Moderator
Date d'inscription: février 2005
Localisation: Rennes
Messages: 10 685
|
__________________
Pascal(Visitez mon Blog Photo)Vous pouvez devenir "Supporter XLD", plus de renseignements ICI |
|
|
|
|
|
#5 (permalink) |
|
Guest
Messages: n/a
|
Bonjour à tous
Aussi j'utilise ceci: Private Sub Worksheet_Activate() Dim Password As String Password = Application.InputBox(prompt:='Entrez le mot de passe', Title:='', Default:='', Type:=2) If Not (Password = 'Carotte') Then ActiveWindow.SelectedSheets.Visible = False Else Exit Sub End If End Sub A+ Temjeh |
|
|
|
#6 (permalink) | |
|
XLDnaute Accro
Date d'inscription: septembre 2005
Localisation: Saint Apollinaire (21) Dijon
Messages: 1 908
|
Temjeh écrit:
Citation:
il y a bien une demande de mot de passe mais si tu refuse le mot de passe la feuille 1 disparair c'est normal mais comment l'a faire réaparaitre
__________________
C'est parce-que la vitesse de la lumiére est superieur à celle du son...que certains ont l'air d'etre brillant, avant d'avoir l'air con... Thomas Boishardy |
|
|
|
|
|
|
#7 (permalink) |
|
Guest
Messages: n/a
|
Bonsoir à tous
Salut Pascal Le but de ce code est de déveroullé avec password 'Carotte' ...faire une ajout ou une tranformation dans notre feuil et ensuite on la vérouille pour en restreindre l'accès. Si ce n'est pas ta feuil 1 qu'il faut caché ptêtre tu as mis le code dans la mauvaise feuil. La feuil caché est modifiable avec le password seulement. A+ Temjeh |
|
|
|
#9 (permalink) |
|
XLDnaute Barbatruc
Date d'inscription: février 2005
Localisation: Liège
Messages: 3 572
|
Bonjour,
En prenant la macro de Temjeh, une solution serait la suivante : 1. Dans la feuille concernée par le password, place cette macro : Code:
Private Sub Worksheet_Activate() Call PWord End Sub Code:
Sub PWord() Dim Password As String Password = Application.InputBox(prompt:='Entrez le mot de passe', Title:='', Default:='', Type:=2) If Not Password = 'Carotte' Then ActiveWindow.SelectedSheets.Visible = False Else Exit Sub End If End Sub Fais un essai d'ouverture par le mot de passe et clique sur 'Annuler'. Pour faire réapparaitre ta boite de dialogue, fait 'CTRL + t' sur ton clavier. Bon travail
|
|
|
|
![]() |
| Liens sociaux |
| Outils de la discussion | |
|
|