Giúp code không cho tắt file EXCEl từ nút Colse của cửa sổ (1 người xem)

[congnguyen88]

Mình muốn khi tắt File bắt buột người dùng phải Click vào nút bấm có code

Sub Quit()
range("a1").value=range("a1").value+1
ActiveWorkbook.Save
Application.Quit
End SubTDN

Nếu người ta Click vào nút Colse từ cửa sổ thì hiện lên thong báo và sẽ không thoát được file Excel được

 

[chuot0106]

Mình muốn khi tắt File bắt buột người dùng phải Click vào nút bấm có code

Sub Quit()
range("a1").value=range("a1").value+1
ActiveWorkbook.Save
Application.Quit
End SubTDN

Nếu người ta Click vào nút Colse từ cửa sổ thì hiện lên thong báo và sẽ không thoát được file Excel được

Bạn có thể cho tôi biết lí do được không?

 

[Quang_Hải]

Mình muốn khi tắt File bắt buột người dùng phải Click vào nút bấm có code

Sub Quit()
range("a1").value=range("a1").value+1
ActiveWorkbook.Save
Application.Quit
End SubTDN

Nếu người ta Click vào nút Colse từ cửa sổ thì hiện lên thong báo và sẽ không thoát được file Excel được

Trong ThisWorkbook có sự kiện này

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True
Msgbox "Khong duoc phep"
'Code tiep theo
End Sub

 

[congnguyen88]

Bạn có thể cho tôi biết lí do được không?

Ak mình nghiên cứu thôi mà

 

[ndu96081631]

Ak mình nghiên cứu thôi mà

Vậy xem cái này nghiên cứu "chơi" hen

 

[congnguyen88]

Trong ThisWorkbook có sự kiện này

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True
Msgbox "Khong duoc phep"
'Code tiep theo
End Sub

sao mình ghép code lại nhưg khi Click vào nút bấm cũng không thoát được

+Code của nút nhấn

Sub Quit()
range("a1").value=range("a1").value+1
ActiveWorkbook.Save
Application.Quit
End Sub

+code trong ThisWorkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True
Msgbox "xin vui long chon vao nut bam"
End Sub

 

[Quang_Hải]

sao mình ghép code lại nhưg khi Click vào nút bấm cũng không thoát được

+Code của nút nhấn

Sub Quit()
range("a1").value=range("a1").value+1
ActiveWorkbook.Save
Application.Quit
End Sub

+code trong ThisWorkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True
Msgbox "xin vui long chon vao nut bam"
End Sub

Nói hơi khó nghe nhưng thật sự bạn không có cơ bản thì nên đọc sách thật nhiều và nhiều hơn nữa

Sub Quit()
Application.EnableEvents = False
range("a1").value=range("a1").value+1
ActiveWorkbook.Save
Application.Quit
Application.EnableEvents = True
End Sub

 

[Hau151978]

Mục đích của bạn chắc là muốn theo dõi số lần mở file hoặc làm việc gì đó trước khi thoát. Nếu vậy thì không nên chặn nút close sẽ làm người sử dụng không thích. Thay vào đó bạn sửa code nút bấm chỉ còn lệnh Application.Quit, các lệnh tăng giá trị A1 thêm 1 và Me.Save đưa vào thủ tục Workbook_Beforeclose.

 

[congnguyen88]

Nói hơi khó nghe nhưng thật sự bạn không có cơ bản thì nên đọc sách thật nhiều và nhiều hơn nữa

Sub Quit()
Application.EnableEvents = False
range("a1").value=range("a1").value+1
ActiveWorkbook.Save
Application.Quit
Application.EnableEvents = True
End Sub

Sách ở đâu hả bạn. bạn cho mình xin tài liệu đi

 

[congnguyen88]

Nói hơi khó nghe nhưng thật sự bạn không có cơ bản thì nên đọc sách thật nhiều và nhiều hơn nữa

Sub Quit()
Application.EnableEvents = False
range("a1").value=range("a1").value+1
ActiveWorkbook.Save
Application.Quit
Application.EnableEvents = True
End Sub

Code của bạn cũng không thoát được