Khoá Ctrl+Break

Liên hệ QC

phuyen89

Thành viên tích cực
Tham gia
20/11/08
Bài viết
875
Được thích
341
Nghề nghiệp
Student
Chào các bạn thành viên.Có vấn đề này mình cũng ngại hỏi, nhưng mà không hỏi thì nó muốn phá lúc nào cũng được.Khi làm Form đăng nhập,mà File *.xls đã được chuyển sang *.exe.Nhưng còn cái tổ hợp phím trên vẫn không khoá được.Nên nhờ các bạn cho mình xin Code để khoá cái Ctrl+Break này.Xin cảm ơn!
 
Chào các bạn thành viên.Có vấn đề này mình cũng ngại hỏi, nhưng mà không hỏi thì nó muốn phá lúc nào cũng được.Khi làm Form đăng nhập,mà File *.xls đã được chuyển sang *.exe.Nhưng còn cái tổ hợp phím trên vẫn không khoá được.Nên nhờ các bạn cho mình xin Code để khoá cái Ctrl+Break này.Xin cảm ơn!

Tôi cũng đã từng hỏi câu này trên diễn đàn, vô phương! Nhưng cái Ctrl+break này là "cái hang phụ cho con thỏ thoát thân" đó bạn! Lỡ code mà lỗi một cái nó chạy hoài như vòng lặp thì có mà bó tay nếu không ctrl+break.
 
Upvote 0
Chào các bạn thành viên.Có vấn đề này mình cũng ngại hỏi, nhưng mà không hỏi thì nó muốn phá lúc nào cũng được.Khi làm Form đăng nhập,mà File *.xls đã được chuyển sang *.exe.Nhưng còn cái tổ hợp phím trên vẫn không khoá được.Nên nhờ các bạn cho mình xin Code để khoá cái Ctrl+Break này.Xin cảm ơn!
Bạn vào google với từ khóa là how to disable Ctrl+break
 
Upvote 0
Mình copy code search từ Google vào đây luôn!

PHP:
Sub IsLastTableRow()
 
   ' Disable CTRL+BREAK.
   Application.EnableCancelKey = wdCancelDisabled
   ' Set error trap.
   On Error GoTo ErrorHandler
 
   ' Check if insertion point is in last row of a table.
   ' If the insertion point is within a vertically merged
   ' cell, an error will occur.
   MsgBox Selection.Rows(1).IsLast
 
ErrorHandler:
   If Err.Number <> 0 Then
      MsgBox Err.Description
   End If
   ' Re-enable CTRL+BREAK.
   Application.EnableCancelKey = wdCancelInterrupt
 
End Sub

Code 2:
PHP:
Sub HurryUpAndWait()

On Error GoTo ErrTrap
Application.EnableCancelKey = xlErrorHandler
' Some time-consuming operation here

Exit Sub

ErrTrap:
If Err.Number = 18 Then
If MsgBox("Are sure you want to terminate the operation?", vbQuestion + vbYesNo, "") = vbNo Then Resume
End If
End Sub
 
Lần chỉnh sửa cuối:
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom