Onkey : comment limiter accès au VBA via userform et password
Bonjour,
un ancien collègue à réalisé le code suivant qui bloque, entre autre l'accès au VBA. (<Alt><F11>)
Code:
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. :aie:
Merci.
