Interdire l'accès à une feuille en Excel

  • Initiateur de la discussion Initiateur de la discussion EBL
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

E

EBL

Guest
Bonjour la compagnie!

Dur dur de bosser avec ce temps ^^

Voilà mon probème j'ai un fichier dans le quel j'aimerais bien interdire l'accès à une sheet. Est ce faisable et si oui comment?

Merci à vous

Ebl
 
Re : Interdire l'accès à une feuille en Excel

Bonjour EBL, bonjour le forum,

Tu peux essayer en la masquant via VBA. Tu ouvres visual basic, tu cliques sur la feuille que tu veux masquer, et dans propriété en dessous, tout en bas tu as un item 'Visible'. Tu mets l'option à 2 - xlSheetVeryHidden.

Ca masque la feuille et impossible de la faire apparaître sauf à revenir dans VBA pour la réactiver.

Si ça peut t'aider... 😉

@+
FChris
 
Re : Interdire l'accès à une feuille en Excel

Merci à vous pour vos solutions.

Mais ce n'était vraiment ça ma question 😀
Je voudrais qu'elle soit visible en bas du classeur mais que pour pouvoir y accéder il faille taper un code

Bien à vous

Ebl
 
Re : Interdire l'accès à une feuille en Excel

Bonsoir à tous

Essaie ce bout de code, ce n'est pas merveilleux, mais cela fonctionne. Le seul pb, il te demande à chaque fois le code.

Code:
Private Sub Worksheet_Activate()
If lemdp = "oui" Then
    Sheets("Feuil2").Select
    lemdp = " "
    Exit Sub
End If
Sheets("Feuil2").Visible = False
Message = "Entrez le mdp"
lemdp = InputBox(Message)
If lemdp <> "oui" Then
    Sheets("Feuil1").Select
Else
    Sheets("Feuil2").Visible = True
    Sheets("Feuil2").Select
End If
End Sub
A+

Eric
 
Re : Interdire l'accès à une feuille en Excel

bonjour à tous

Le petit + du jour.

Code:
Public lemdp As String

Private Sub Worksheet_Activate()
If Range("a1").Value = 1 Then Exit Sub
If lemdp = "oui" Then
    Sheets("Feuil2").Select
    lemdp = " "
    Exit Sub
End If
Sheets("Feuil2").Visible = False
Message = "Entrez le mdp"
lemdp = InputBox(Message)
If lemdp <> "oui" Then
    Sheets("Feuil1").Select
Else
    Sheets("Feuil2").Visible = True
    Sheets("Feuil2").Select
    Range("a1").Value = 1    ' ****** JUSTE UNE IDEE ******
End If
End Sub
A+

Eric
 
Re : Interdire l'accès à une feuille en Excel

bonjour à tous

Pourquoi faire simple quand on peut faire compliqué :

Code:
Public lemdp As String

Private Sub Worksheet_Activate()
'****If Range("a1").Value = 1 Then Exit Sub
If lemdp = "oui" Then
    Sheets("Feuil2").Select
    '****lemdp = " "
    Exit Sub
End If
Sheets("Feuil2").Visible = False
Message = "Entrez le mdp"
lemdp = InputBox(Message)
If lemdp <> "oui" Then
    Sheets("Feuil1").Select
Else
    Sheets("Feuil2").Visible = True
    Sheets("Feuil2").Select
    '****Range("a1").Value = 1
End If
End Sub
A+

Eric
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
37
Affichages
1 K
Réponses
2
Affichages
162
Retour