weiß jemand, ob man Tastatureingaben verbieten kann? Habe eine große Tabelle, wo man per Listenfeld (Datenprüfung, Liste) Werte auswählen kann. Würde gerne hinbekommen, dass man dieses Dropdownfeld verwenden muss.
E | F | |
1 | 1 | |
2 | 2 | |
3 | 3 |
Daten, Gültigkeit | |||||||||||||
Zelle | Zulassen | Daten | Wert1 | Wert2 | Leere Zellen ignorieren | Zellendropdown | Titel Eingabe-meldung | Eingabe-meldung | Titel Fehler | Fehler-meldung | Typ Fehler-meldung | Fehler- meldung anzeigen | Eingabe- meldung anzeigen |
F1 | Liste | =$E$1:$E$3 | Falsch | Wahr | Stopp | Wahr | Wahr |
Excel-Inn.de |
Hajo-Excel.de |
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007 |
Add-In-Version 25.14 einschl. 64 Bit |
Option Explicit
Private Declare Function BlockInput Lib "user32" ( _
ByVal fBlock As Boolean) As Boolean
Sub MouseKeyboardTest() 'both keyboard and mouse blocked
Dim x As Long
Application.OnTime Now + TimeValue("00:00:03"), "UnLockKbd"
x = BlockInput(True) ' Turns off Keyboard and Mouse
Debug.Print "Start", x
' Your coding
End Sub
Sub UnLockKbd()
Dim x As Long
x = BlockInput(False) ' Turns on Keyboard and Mouse
Debug.Print "Unlock", x
MsgBox "Unblocked"
End Sub
oder: https://www.pcreview.co.uk/threads/disable-keyboard-mouse-from-vba-for-all-programs.956051/Tabelle1.ScrollArea = ActiveCell.Address
Somit ist kein Zellwechsel möglich!Tabelle1.ScrollArea = ""
Referenztabelle bitte anpassen!ActiveSheet.ScrollArea = ActiveCell.Address
Application.MoveAfterReturn = False
Gruß Matthias