Raccourci secret ?

Option Explicit
Dim Niv1 As Boolean
Dim Niv2 As Boolean


Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
        Case 1: TheCTRLA
        Case 35: TheALTDiese
        Case 64: TheALTGRArobase
    End Select
End Sub

Private Sub TheCTRLA()
    MsgBox 'Vous Avez Appuyé Simultanément sur CTRL + A, , Niveau I Franchi !'
    Niv1 = True
End Sub

Private Sub TheALTDiese()
    MsgBox 'Vous Avez Appuyé Simultanément sur @, Niveau II Franchi !'
    Niv2 = True
End Sub

Private Sub TheALTGRArobase()
    If Niv1 = True And Niv2 = True Then
        WelcomeAdmin
    End If
End Sub

Private Sub WelcomeAdmin()
Dim i, ii

For Each i In Array('Chief', 'Boss', 'Director', 'Manager')
    For Each ii In Array('Best', 'Nice', 'Beautifull', 'Wonderfull')
    MsgBox i & ' You Are ' & ii
    Next
Next
End Sub

Cliquez pour agrandir...