Escape-toets tijdelijk uitschakelen.

[origami123]

Goedemiddag,

Is het mogelijk om de escape-toets in Excel tijdelijk uit te schakelen?

Als ik nu een werkblad laat opstarten in volledig beeld, dan is het via de escape-toets weer mogelijk om dit terug te draaien.

Daardoor komt het lint in beeld, waardoor mogelijkheden worden vrijgegeven, die niet de bedoeling zijn.

Is er een commando om dat te voorkomen?

M.vr.gr.

Origami

 

[HSV]

Uitschakelen.

Application.OnKey "{esc}", ""

Herstellen.

Application.OnKey "{esc}"

 

[origami123]

Beste Harry,

Geweldig...

Heel snelle reactie en werkt perfect.

Erg bedankt.

Gr. Origami.

 

[origami123]

Ben ik eigenlijk nog wel benieuwd of deze code afzonderlijk toegepast ook bruikbaar is voor de toetsen rechtsboven in de balk.

Ik bedoel hiermee:

- minimaliseren (naar taakbalk)
- maximaliseren c.q. verkleinen (venster vergroten of verkleinen)
- sluiten (sluiten)

Aangezien deze toetsen nog zichtbaar blijven, blijft het nog mogelijk om toch het lint in beeld te krijgen.

Gr. Origami

 

[HSV]

Hoe ga je het bestand daarna sluiten.
Ik heb eigenlijk ook geen idee hierover.

 

[origami123]

Het moet zo zijn, dat de gebruikers normaal gesproken niet de mogelijkheid krijgen om met het programma te "rommelen"

Vandaar, dat alles "weggehaald" moet worden, waar ze dat mee zouden kunnen doen en jouw code voor de escape-toets werkt hierin dan ook perfect.


Voor het afsluiten is er de beschikking over een speciale knop met macro:

Sub OpslaanQuit_BijKlikken()
   Dim wb As Workbook
   ActiveWorkbook.Save
   Application.Quit
End Sub

Deze macro voldoet voorlopig nog naar behoren.

 

[HSV]

En met een beveiliging op het werkblad?

 

[origami123]

Inderdaad.

Private Sub Workbook_Open()
Dim LKolom As Integer, LRij As Long, wSheet As Worksheet
LRij = 25
LKolom = 15
    For Each wSheet In Worksheets
     wSheet.Activate
        Application.OnKey "{esc}", ""
        Application.DisplayFullScreen = True
        Application.DisplayFormulaBar = False
        ActiveWindow.DisplayHeadings = False
        ActiveWindow.DisplayGridlines = False
        ActiveWindow.DisplayWorkbookTabs = False
        DisplayHorizontalScrollBar = False
        DisplayVerticalScrollBar = False
        wSheet.ScrollArea = Range(Cells(1, 1), Cells(LRij, LKolom)).Address
     wSheet.Protect Password:="******"
    Next wSheet
   Sheets("Totalen").Select
   Range("D21").Select
End Sub

 

[origami123]

Zo is één en ander wellicht beter gerangschikt:

Private Sub Workbook_Open()
Dim LKolom As Integer, LRij As Long, wSheet As Worksheet
LRij = 25
LKolom = 15
        Application.OnKey "{esc}", ""
        Application.DisplayFullScreen = True
        Application.DisplayFormulaBar = False
    For Each wSheet In Worksheets
     wSheet.Activate
        ActiveWindow.DisplayHeadings = False
        ActiveWindow.DisplayGridlines = False
        ActiveWindow.DisplayWorkbookTabs = False
        ActiveWindow.DisplayHorizontalScrollBar = False
        ActiveWindow.DisplayVerticalScrollBar = False
        wSheet.ScrollArea = Range(Cells(1, 1), Cells(LRij, LKolom)).Address
     wSheet.Protect Password:="******"
    Next wSheet
   Sheets("Totalen").Select
   Range("D21").Select
End Sub

 

[origami123]

Harry,

Het belangrijkst is het verbergen van de maximalisatie-toets voor het venster.

Maar ik zal dit als nieuwe vraag plaatsen, omdat het hier eigenlijk alleen over de escape-toets ging.

http://www.helpmij.nl/forum/showthread.php/700119-Maximalisatie-toets-voor-venster-uitschakelen-en-of-verbergen

In ieder geval bedankt voor jouw perfecte escape-oplossing.

M.vr.gr.
Origami