Bloquer onglet excel

Question

Bonjour,

Je travaille actuellement sur un fichier .xls qui se décompose de la facon suivante :
- un onglet accueil
- un onglet défenseur
- un onglet milieu
- un onglet attaquant

Dans l'onglet accueil dans la cellule A2, j'ai mis un menu déroulant avec la nomination exacte des onglets c'est-à-dire "defenseur", "milieu" et "attaquant".

Ce que je souhaiterai c'est trouver un moyen pour qu'en selectionnant par exemple "defenseur", les onglets "milieu" et "attaquant" soient bloqués pour pas que l'on puisse y inscrire quelquechose puisque seul l'onglet "defenseur" est à remplir.

Pour l'instant, j'ai simplement mis dans une cellule en haut dans chaque feuille la mention "NE RIEN INSCRIRE". Par exemple en haut de la feuille "défenseur" j'ai mis une fonction =SI(OU(A2="milieu";A2="attaquant";"NE RIEN INSCRIRE";"") mais c'est pas top car certaines personnes remplissent quand même.

Si quelqu'un a une solution miracle ^^

Merci d'avance pour vos réponses.

hich24 · Answer

en vba

Raymond PENTIER · Answer

... alors c'est foutu !

hich24 · Answer

1- tu ouvre le visual en tapant ALT+F11 
2- dans la fenetre a droit tu double clike sur THIS WORKBOOK 
3- a droite dans la fenetre blanche en haut deux case 
         - dans celle d'aguche tu ouvre la liste est tu choisie WORKBOOK
         - puis dans celle a droite tu choisie open , tu efface tout tu copie coler sur code :
         Private Sub Workbook_Open()
Sheets(Array("défenceur", "milieu", "attaquant")).Select
    
    ActiveWindow.SelectedSheets.Visible = False
End Sub

*-  maintenant a l'ouverture seule la feuile acceuile sera visible 

5- pour afficher seulment la feuile choisie en A2 :
1- tu insere une forme automatique sur la feuille acceuile ( cercle ,  triangle , ...)
2- clicke droit sur la forme > affecter une macro > nouvelle 
3- tu vas etre direger sur le visual a la plce du cursseur tu insere le code suivnt  ( entre les deux phrase Sub et END )

Dim choix As String
 choix = Range("A2").Value
 Sheets(choix).Visible = True

6- tu enregistre le fichier , ca devras marcher inchallah

hich24 · Answer

j'ai oubliee suite a la procedure precedante , 
pour re masquer les onglet une fois de routour sur acceuille 

1- dans la fenetre visual tu double clike sur Feuil1( acceuil )
2- tu choisie dans les case a droite WORKSHEET , ACTIVATE 
3- tu cole le code suivant entre les deux phrase 

Sheets(Array("défenceur", "milieu", "attaquant")).Select
    
    ActiveWindow.SelectedSheets.Visible = False

bonne chane

hich24 · Answer

une petit rectification sur le code de l'ouverture dans mon premier message tu la phrase tu ajoute la phrase en gras 

Private Sub Workbook_Open() 
on error resume next 
Sheets(Array("défenceur", "milieu", "attaquant")).Select 

ActiveWindow.SelectedSheets.Visible = False 
End Sub 

2- pour le niveau de securité 
- tu ouvre un fichier excel ( vide ) , menu OUTILS > macro > sécurité > niveau de sécurité > moyen ( 3éme case ) 
- enregistre le fichier , apres a chaque fois que tu ouvre un fichier excel il vas demander de activer les macro tu accepte

hich24 · Answer

menu affichage > barre d'outils > Dessin 
2- tu vois la barre en bas , dans la liste forme automatique tu auras plus de choix

Bloquer onglet excel

6 réponses

Votre réponse

Discussions similaires

Newsletters