Makro og VBA - Atkiver / Deaktiver Ctrl- og Alt-tasterne

Atkiver / Deaktiver Ctrl- og Alt-tasterne

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=3755
Udskrevet den: 30.Apr.2024 kl. 05:28

Emne: Atkiver / Deaktiver Ctrl- og Alt-tasterne

Besked fra: Ib Hansen
Emne: Atkiver / Deaktiver Ctrl- og Alt-tasterne
Posteringsdato: 14.Jan.2019 kl. 11:06

Hej Forum.

Jeg aktiverer og deaktiverer F-tasterne i forskellige afskygninger, for at undgå de bliver brugt utilsigtet.

Dette, da mit ark er totalt lukket og låst og kun kan betjenes vha. hjemmelavet Ribbon og Userforme.

Mit problem er, jeg godt vil aktivere og deaktivere Ctrl- og Alt-tasterne alene - Med rødt i koderne.

Men koderne virker ikke.

Og Application.OnKey "^" - Application.OnKey "%" uden tuborg parentes, laver BUG.

http://docs.microsoft.com/en-us/office/vba/api/excel.application.onkey" rel="nofollow - Syntax her

Er det overhovedet muligt, at aktivere og deaktivere de to taster ?

Sub Aktivate_Keys()'---------'
' Aktiver '
'---------'
    Application.OnKey "{^}" '......................Ctrl-tasten
    Application.OnKey "{%}" '......................Alt-tasten

    For i = 1 To 15
        Application.OnKey "{F" & i & "}" '.........Kun F-taster
        Application.OnKey "%{F" & i & "}" '........Alt + F-taster
        Application.OnKey "^{F" & i & "}" '........Ctrl + F-taster
    Next i
End Sub

Sub Deaktivate_Keys()
'-----------'
' Deaktiver '
'-----------'
    Application.OnKey "{^}", "" '..................Ctrl-tasten
    Application.OnKey "{%}", "" '..................Alt-tasten

    For i = 1 To 15
        Application.OnKey "{F" & i & "}", "" '.....Kun F-taster
        Application.OnKey "%{F" & i & "}", "" '....Alt + F-taster
        Application.OnKey "^{F" & i & "}", "" '....Ctrl + F-taster
    Next i
End Sub

Mvh.

-------------
Excel 2010 Dk og 2019 Dk på samme computer.
Bruger dog stadig mest 2010..
Men sådan er der jo så majet :o)

Svar:

Besked fra: EXCELGAARD
Posteringsdato: 14.Jan.2019 kl. 15:17

For det første, så kan dette ikke gøres på applikations niveau - det er en Windows tast, og har været det siden Windows 95.

For det andet: Hvorfor vil du deaktivere ALT tasten i Excel?

Tasten gør jo intet, hvis tasten ikke benyttes i forbindelse med en anden tast.

For det tredje, hvis du endelig virkelig vil deaktivere ALT tasten, så skal dette gøre i selve Windows, f.eks. via Group Policy.

For det fjerde, så er dette sikkert ikke det svar, du var interesseret i Tongue

-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.

Besked fra: Ib Hansen
Posteringsdato: 15.Jan.2019 kl. 09:43

Hej Excelgaard.

Jo, det var et rigtigt fint svar Smile

Det var lige så meget en undren over, hvorfor det ikke kunne gøres med koden.

Grunden var egentligt at jeg tænkte, når jeg alligevel deaktiverer alle F-taster og alle kombinationer Ctrl / Alt + F, hvorfor så ikke også deaktivere Ctrl og Alt Disapprove

F.eks. åbner Alt-tasten programmets menu og eksempelvis Alt + 5 udskriver direkte til printeren.

Jeg har flere forskellige udskriftsområder, der styres af buttons.

Ctrl + S bruger jeg hele tiden, så den mulighed er fin at have.
Ctrl + A bruger jeg ofte.

Det er nok bare noget pjat, så skidt med det LOL

Ps. Var du født i '95 ?
Jeg var ikke Beer

-------------
Excel 2010 Dk og 2019 Dk på samme computer.
Bruger dog stadig mest 2010..
Men sådan er der jo så majet :o)