ESC Blockeren met VBA

[Jay305]

Ik heb een Macro gemaakt om naar Fullsreen te gaan.

Sub HideStuff()

Application.DisplayFullScreen = True
Application.DisplayFormulaBar = False
ActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayGridlines = False
End Sub

Deze macro doet zijn werk prima alleen wil ik graag voorkomen in elke mogelijke manier om terug naar normal view te gaan,
behalve voor de volgende knop voor normal view:

Sub ShowStuff()

Application.DisplayFullScreen = False
Application.DisplayFormulaBar = True
ActiveWindow.DisplayWorkbookTabs = True
ActiveWindow.DisplayHeadings = True
ActiveWindow.DisplayGridlines = True
End Sub

ik heb op internet gezocht en wat codes van internet geprobeerd maar veranderd niks!
iemand die me kan helpen?

 

[edmoor]

Kijk eens hier:
https://stackoverflow.com/questions/36985762/excel-2013-vba-disable-escape-key

 

[Jay305]

ik heb het net geprobeerd heb dit in Thisworkbook gezet:

Private Sub Workbook_Open()
  If ActiveSheet.Name = "Sheet2"  Then
     Application.OnKey "{ESC}", ""
  Else
     Application.OnKey "{ESC}"
  End If
End Sub

Private Sub Workbook_Activate()
   If ActiveSheet.Name = "Sheet2"  Then
       Application.OnKey "{ESC}", ""
   Else
       Application.OnKey "{ESC}"
   End If
End Sub

Private Sub Workbook_Deactivate()
   Application.OnKey "{ESC}"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   Application.OnKey "{ESC}"
End Sub

Maar geeft mij geen verschil het blijft me uit de Fullscreen modus sturen.

 

[snb]

Wat is het verschil als een gebruiker op esc drukt of jouw macro 'Showstuff' gebruikt ?

 

[edmoor]

Je hebt het voorbeeld letterlijk over genomen.
Dat kan natuurlijk nooit.
Je dient het altijd naar eigen behoefte aan te passen.
En het gaat uiteraard om die Application.OnKey regel.

 

[Jay305]

beste snb,
het verschil is de bovenste balk waar bijvoordbeeld start,bestand,invoegen etc instaat.
deze komt terug wanneer esc word gebruikt. wanneer je de knop indrukt om alles weer te geven dan zal het bestand weer in zijn normale staat zijn.
dit houd in dat hij dan dus de rasterlijnen koppen etc weergeeft.

 

[Jay305]

beste edmoor,
je zult bedoelen dat er iets tussen de "" moet komen, wat zou hier dan moeten staan?
wat houd dit stukje dan ook wel in?

 

[edmoor]

Ik heb niet de indruk wat je begrijp wat dat voorbeeld doet.
Voor je vraag, kijk hier eens:
https://docs.microsoft.com/en-us/office/vba/api/excel.application.onkey

 

[Jay305]

zou betekenen dus als ik het goed begrijp uit het stukje dat je hebt gestuurd dat ik tussen de 2de "" moet neerzetten wat de teots zou moeten doen.
hier staat ook dat als er niets staat hij disabled zou moeten zijn. dit zou dan nu ook het geval moeten zijn.

 

[snb]

Nog niet beantwoord:

Wat is het verschil als een gebruiker op esc drukt of jouw macro 'Showstuff' gebruikt ?

 

[edmoor]

De ESC toets kan je op die manier uitschakelen tijdens het uitvoeren van VBA procedures.
Volgens mij kan dat niet voor de Excel interface, wat denk ik je bedoeling is.
Daarnaast zou je dan ook de Ctrl-Break moeten afvangen.

 

[Jay305]

Nog niet beantwoord:

deze heb ik al beantwoord snb

 

[Jay305]

De ESC toets kan je op die manier uitschakelen tijdens het uitvoeren van VBA procedures.
Volgens mij kan dat niet voor de Excel interface, wat denk ik je bedoeling is.
Daarnaast zou je dan ook de Ctrl-Break moeten afvangen.

Ja klopt ik wil dat het op een soort programma werkt ipv als een excel bestand.

 

[edmoor]

Maak er dan een Userform voor, dan kan je het Excel Window verbergen.