Discussion :

[kazannova]

Bonjours

je veux savoir s'elle existe une méthode pour cacher les onglets de mon classeur excel et de ne pas apparaitre qu'avec un mot de passe et non pas Outil option affichage onlets

Je veux aussi lors d'ouverture de mon classeur que la feuille acceuil soit affichée automatiquement

merci d'avance

[tomy7]

Code :

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

ActiveWindow.DisplayWorkbookTabs = False

apres avec mots de passe je sais pas

bonne journee
tom

[Jean-Pierre49]

Bonjour,

Bonjour,

Pourquoi pas rendre tes pages invisibles avec

Code :

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

Sheets ("nom de la page").Visible = xlVeryHidden

Faire un usf pour demander le mot de passe

Code :

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

Sheets ("nom de la page").Visible = true

Pour la seconde question ds ThisWorkbook

Code :

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

1
2
3
4
Private Sub Workbook_Open()
Sheets ("nom de la page").Select
 
End Sub

Jean-Pierre

[kazannova]

Merci pour vos réponses
lorsque je rentre au visual basic editor il me dmande un mot de passe!!!!!
comment deverai-je faire?
merci encore une autre fois

[fring]

lorsque je rentre au visual basic editor il me dmande un mot de passe!!!!!
comment deverai-je faire?

Demander le mot de passe à celui qui a créé le fichier...!

[kazannova]

Demander le mot de passe à celui qui a créé le fichier...!

merci
c'est mon fichier et c'est moi qui a créé le mot de passe
je viens maintenant de le supprimer

http://www.developpez.net/forums/sho...ghlight=onglet

je suis encore débutant :-)

[kazannova]

Bonsoir
d'abord merci pour votre réponse
Etant donné que je suis encore débutant Est ce que vous pouver m'elaborer un code pour:

Demmarer avec la feuille: acceuil
Rendre invisible les deux pages:
DONNEES et TOTALIGR

ou je vais poser ce code?

Comme faire pour rendre les deux ou une d'elles visibles en cas de necéssité de modification?

Comment protéger ça avec un mot de passe pour que les utilisteurs de mon classeurs ne peuvent voir les deux feuilles cachées?

Merci de votre patience et colaboration

Bonjour,

Bonjour,

Pourquoi pas rendre tes pages invisibles avec

Code :

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

Sheets ("nom de la page").Visible = xlVeryHidden

Faire un usf pour demander le mot de passe

Code :

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

Sheets ("nom de la page").Visible = true

Pour la seconde question ds ThisWorkbook

Code :

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

1
2
3
4
Private Sub Workbook_Open()
Sheets ("nom de la page").Select
 
End Sub

Jean-Pierre

[kazannova]

Un userform pour saisir le mot de passe Pièce jointe 28350

ne te moque pas de moi si je vous pose cette question parce que je suis débutant :-)
comment utiliser de ces deux fichiers?

[kazannova]

merci encore
je vais essayer ça d'abord:
http://www.developpez.net/forums/sho...d.php?t=318786

J'avais shunté "débutant"
Je te joins un fichier qui ne permet l'affichage du classeur qu'après saisie du mot de passe. Sinon il se ferme sans enregistrer.
Pièce jointe 28360
Je n'ai pas regardé ce que t'a joint kazannova mais ne vais pas tarder à le faire
A+

NB - Le mot de passe pour "entrer" dans le fichier est "zizou" (j'avais oublié )

Edit
J'avais joint le mauvais fichier, j'ai corrigé

[Jean-Pierre49]

Bonsoir Kazannova,

J’ai bien lu ton message personnel,
Mais, comme tu le comprendras, il ne serait pas normal qu’on réponde aux problèmes techniques par messagerie personnel.
Le forum n’aurait plus lieu d’être.

Nous avons tous été débutant, nous le serons toujours.
Mais nous avons tous cherché et cherchons encore.

T’élaborer ton code : non !
T’aider oui, avec mes moyens

Tu as eu un certain nombre de piste, profite en pour débuter, tu as tous les éléments dans cette discussion
Sers toi du Forum et de la touche F1, commence à élaborer ton code

Nous t’aiderons tous mais nous ne ferons pas le boulot.

Bon courage

Jean-Pierre

[kazannova]

Bonsoir Kazannova,

J’ai bien lu ton message personnel,
Mais, comme tu le comprendras, il ne serait pas normal qu’on réponde aux problèmes techniques par messagerie personnel.
Le forum n’aurait plus lieu d’être.

merci et vous avez totalement raison mais le même MP que je vous ai envoyé a été posté ici:
http://www.developpez.net/forums/sho...98&postcount=7

[ouskel'n'or]

Me revoilà...
Le fichier que je te joins fonctionne. J'ai voulu le refaire et j'avais oublié quelque chose. C'est réparé
Si tu veux lancer une macro après avoir saisi le mot de passe, tu dis, je te dirai d'où tu dois l'appeler
Il y a une macro pour l'ouverture du logon dans ThisWorkbook.
Il y a le logon et les macros qui vont bien dans Userform1 (deux clics sur l'userform te les montrent)

Le fichier qui va bien LogonUserform.xls

Le mot de passe pour accéder à ton fichier : "zizou"

Comme ça, tu as le choix.
Bonne soirée

[kazannova]

Merci infiniment Sir. ouskel'n'or
La vérité, j'ai rien compris :-(
Mais enfin je suis arrivé à masquer les feuilles que je veux
Aussi de lancer la page acceuil dés l'ouverture de mon classeur donc je tiens à remercier aussi Jean-Pierre49.
En fin j'ai protegé mes macros des modifications en suivant cette réponse donnée par fring.

Mais est ce que mon classeur est bien protégé ou non!!!!!!

[ouskel'n'or]

Bien protégé ? Contre l'intrusion de simples utilisateurs, sans doute, contre l'insistance d'un bricoleur, je doute. C'est à toi de voir le niveau de sécurité que tu souhaites

(mon code ne protège pas mieux de l'intrusion du même bricoleur )

[Jean-Pierre49]

Bonjour à tous

Si je peux me permettre,

Pas besoin de bricoleur si la sécurité est au niveau élevé et que le code n’est pas certifié, tout est accessible !!

J’aurais privilégier:

Dans ThisWorkbook

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Workbook_Open()
    Sheets("acceuil").Select
    Userform1.Show
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Sheets("DONNEES").Visible = xlVeryHidden
    Sheets("TOTALIGR").Visible = xlVeryHidden
    ThisWorkbook.Close True
End Sub

Et dans USF

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
Private Sub Annuler_Click()
    Unload Me
End Sub
Private Sub Ok_Click()
    Static Compte As Byte
 
    Compte = Compte + 1
    If Me.Passe = "zizou" Then
        Call AfficherLesFeuilles
        Unload Me
        Else
        If Compte = 3 Then End ' 3 essais possibles au cas ou!!!!
    End If
    Me.Passe = ""
End Sub
Private Sub UserForm_Initialize()
    Me.Passe.PasswordChar = "*"
End Sub
Sub AfficherLesFeuilles()
    Sheets("DONNEES").Visible = True
    Sheets("TOTALIGR").Visible = True
End Sub

Bonne journée

Jean-Pierre

[Jean-Pierre49]

Bonjour ouskel’n’or

Dans la demande de kazannova
Une feuille (acceuil) a l’ouverture et deux feuilles à cacher

Pour les 50 feuilles j’utilise des noms composés d’une racine et d’un indice et je boucle sur l’indice.

Pour

Code :

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

ThisWorkbook.Close True

: exact
On ne peut pas tout avoir. Mais avec un MsgBox on pourrait avoir le choix et remplacer le message windows

Le problème étant la sécurité de son fichier il m’a semblé que c’était un bon compromis

Comme chez nous on fonctionne avec sécurité élevé et des codes certifiés toutes les pages était visibles, c’est pour cela que j’ai fait cette proposition.

Les deux solutions sont bonnes (mais je préfère la mienne)

Bonne après midi


Jean-Pierre