XL 2021 Si le nom de la feuille est égale alors .... HELP !

[Lune999]

Bonjour à toutes et tous,

J'aimerai faire en sorte que mon code s'active dès qu'une certaines feuille nommée "$Liste" est activée ; il s'agit d'un onglet que je ne peux pas cacher mais dont j'aimerai restreindre l'accès. Dès qu'elle est activer, il s'agit alors de vérifier avec un Inbox et un mdp que l'utilisateur est de type administrateur du fichier.

Si le mdp rentré est faux, alors il est renvoyé vers un autre onglet "Global"

Merci d'avance pour votre aide !

Private Sub Worksheet_Activate()

Dim resultat As String
    
        If ActiveSheet.Name = "$Liste" Then
    
        resultat = InputBox("Confirmer la demande d'accès", "Administrateur")
    
            If resultat <> "Test" Then
            
                Activate.Worksheets ("Global")
                MsgBox ("Le mot de passe est incorrect")
        Else
        
    End If

End Sub

 

[patricktoulon]

bonjour

Private Sub Worksheet_Activate()

Dim resultat As String
 
If ActiveSheet.Name = "$Liste" Then
 
resultat = InputBox("Confirmer la demande d'accès", "Administrateur")
 
If resultat <> "Test" Then
         
Worksheets ("Global").Activate
MsgBox ("Le mot de passe est incorrect")

End If
End if 

End Sub

 

[Lune999]

bonjour

Private Sub Worksheet_Activate()

Dim resultat As String
 
If ActiveSheet.Name = "$Liste" Then
 
resultat = InputBox("Confirmer la demande d'accès", "Administrateur")
 
If resultat <> "Test" Then
        
Worksheets ("Global").Activate
MsgBox ("Le mot de passe est incorrect")

End If
End if

End Sub

Bonjour et merci pour votre proposition, malheureusement le code ne fonctionne toujours pas ...

 

[patricktoulon]

re
la bonne blague
si tu utilise Worksheet_Activate() ton code doit aller dans le module de la feuille

sinon si tu veux le mettre dans le module thisworkbook c'est pas le même event
c'est Workbook_SheetActivate

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim resultat As String

    If ActiveSheet.Name = "$Liste" Then

        resultat = InputBox("Confirmer la demande d'accès", "Administrateur")

        If resultat <> "Test" Then

            Sheets("Global").Activate
            MsgBox ("Le mot de passe est incorrect")

        End If
    End If
End Sub

 

[Lune999]

Effectivement ! Je viens d'essayer en mettant le code dans la feuille et ça fonctionne - merci pour ton aide, un œil extérieur ça sert vraiment pour voir les erreurs bêtes...

Très bonne journée !