Discussion :

[Godzestla]

Bonjour,

un ancien collègue à réalisé le code suivant qui bloque, entre autre l'accès au VBA. (<Alt><F11>)

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
Sub Funktionstasten_desactivation()
  Dim Taste As String
  For i = 1 To 12
    Taste = "F" + CStr(i)
    With Application
      .OnKey "{" & Taste & "}", vbNullString
      .OnKey "^{" & Taste & "}", vbNullString
      .OnKey "+{" & Taste & "}", vbNullString
      .OnKey "%{" & Taste & "}", vbNullString
    End With
  Next i
  With Application
    .OnKey "^{F1}", "EinstellungenZurücksetzen"
    .OnKey "%{F4}"
    .OnKey "%{F11}", "EntwicklungsumgebungDeaktivieren"
    .OnKey "{F2}", "BlockoptP16"
    .OnKey "{F3}", "F3_Down"
    .OnKey "{F4}", "F4_Up"
    .OnKey "{F5}", "Bestrun"
    .OnKey "{DEL}", vbNullString
    .OnKey "{BS}", vbNullString
   End With
End Sub
Sub Funktionstasten_reactivation()
  Dim Taste As String
  For i = 1 To 12
    Taste = "F" + CStr(i)
    With Application
      .OnKey "{" & Taste & "}"
      .OnKey "^{" & Taste & "}"
      .OnKey "+{" & Taste & "}"
      .OnKey "%{" & Taste & "}"
    End With
  Next i
  Application.OnKey "{DEL}"
  Application.OnKey "{BS}"
End Sub
 
Sub EntwicklungsumgebungDeaktivieren()
   MsgBox "Sie dürfen leider nicht in den VBA Bereich!"
End Sub

je voudrais pouvoir changer cela et plutot que de bloquer l'accès au VBA, je voudrais pouvoir le gérer via un userform qui demande un password et si il y a matching afficher la fenêtre VBA normallement appelée par <Alt><F11>

Pouvez-vous m'aider pour faire cela, car je ne sais pas comment repasser à la fenêtre VBA sir le mot de passe est bon.

Merci.

[ouskel'n'or]

Hello GoodZelda
Jète un oeil ici, des fois que ça te suffise
Bonne journée

[Godzestla]

Merci Ousk,
mais cela ne me suffit guère car mon problème est plutôt sur le Onkey et le passage vers la fenêtre VBA <Alt><F11>

Pour le userform et la demande du password, je sais me débrouiller.

NB : pas mal le lapsus

Hello GoodZelda

Et bonjour aussi. (Distrait).

(Je dois m'absenter. je reviens fin d'avant-midi)

[ouskel'n'or]

A propos de la protection du code, tu as une abondante littérature ici.
Bonne lecture

[Godzestla]

Ok pour moi.
je peux me débrouiller avec cela.

Merci beaucoup.