ctrl+break voorkomen

[kibus]

Hallo weet iemand of je de functie Ctrl + break of toestcombinatie ook kan uitschakelen in excel ? zodat jouw code niet wordt onderbroken

Edwin

 

[Wigi]

Bestudeer

SendKeys

eens. Moet volgens mij lukken.

Wigi

 

[kibus]

Wigi dit heb ik gevonden maar bij workbook open werkt het niet


SendKeys "{ctrlbreak}", True
MsgBox "exit"

 

[Wigi]

Wigi dit heb ik gevonden maar bij workbook open werkt het niet


SendKeys "{ctrlbreak}", True
MsgBox "exit"

Sorry, je kreeg het niet aan de praat, en euh... ik ook niet

Geen nood, er is een ingebouwde oplossing in VBA:

voer dit maar eens uit, de ene keer met de regel in commentaar, de andere keer niet.

Sub zetgetallen()
    Dim i As Long
    'Application.EnableCancelKey = xlDisabled
    For i = 1 To 20000
        Range("A" & i) = i
    Next
    MsgBox "klaar."
End Sub

Wigi

 

[tilpi]

Nou is een Excelbestand zonder Ctrl+Break net zoiets als een rijdende trein zonder noodrem.
Ik zou het niet doen.

Mvg

Piet

 

[kibus]

super dit is het geworden :thumb:


Private Sub Workbook_Open()

Dim i As Long
Application.EnableCancelKey = xlDisabled
For i = 1 To 20000
Range("A" & i) = i
Next




terug:
intReply = InputBox(" type uw wachtwoord als u het niet weet type STOP", "Wachtwoord ", "typ hier uw wachtwoord in")
Select Case intReply

Case "correct"
Sheets("keuze").Select



Exit Sub

Case "stop"
MsgBox "wachtwoord is niet goed", vbInformation
ThisWorkbook.Close savechanges:=False

Case Else
MsgBox "Wachtwoord is niet goed!!!", vbCritical, "U heeft een foutief wachtwoord ingevoerd!"
GoTo terug


End Select


End Sub

 

[Wigi]

Nou is een Excelbestand zonder Ctrl+Break net zoiets als een rijdende trein zonder noodrem.
Ik zou het niet doen.

Ik ook niet, neen. Stel dat je in een oneindige lus terechtkomt...

Kibus, kan je in het vervolg je code tussen code tags plaatsen. Dan wordt het leesbaar. Selecteer je code en druk op #.

Wigi