Giúp sửa code Lưu và thoát bằng From (1 người xem)

[minhtuan55]

Chào cả nhà GPE!
Em có vấn đề mà sửa đi sửa lại hoài nó không chạy đúng theo ý mình được.
Em muốn khi thoát File excel thì hiện Form gồm 2 nút Có và Không
- Nếu chọn Có:
+ Trường hợp trên máy tính chỉ mở 1 file này thì Lưu và Thoát luôn ( Code như hiện tại do em viết thì ok rồi )
+ Trường hợp trên máy tính mở file này và các file khác thì cũng chi Lưu và Thoát File này thôi, còn các file khác vẫn bình thường ( Code như hiện tại do em viết thì nó bắt Lưu và Thoát tất cả các File luôn). Em chỉ muốn Lưu và Thoát file em dùng Code thôi, còn các File khác kệ nó. Nhờ các Bác sửa giúp em.

Code của em

Private Sub Workbook_BeforeClose(Cancel As Boolean)
UserForm1.Show
Cancel = True
End Sub

Private Sub CommandButton1_Click() ' Nút có
Unload Me
ActiveWorkbook.Save
End
End Sub

Private Sub CommandButton2_Click() ' Nút Không
Unload Me
End Sub

Xin chân thành cảm ơn

 

[giaiphap]

Bạn có chắc là yêu cầu chỉ vậy thôi không? Hay trả lời xong lại phát sinh cái khác, vã lại bạn có chấp nhạn phương án b hay không? Hay chỉ nhất định phải là phương án a.

 

[minhtuan55]

dạ chắc rồi anh

 

[minhtuan55]

Bạn có chắc là yêu cầu chỉ vậy thôi không? Hay trả lời xong lại phát sinh cái khác, vã lại bạn có chấp nhạn phương án b hay không? Hay chỉ nhất định phải là phương án a.

Dạ đúng rồi anh chắc chắn rồi

 

[giaiphap]

Tôi lại có một thắc mắc nửa. Tại sao phải sử dụng form chỉ có 2 nút mà không sử dụng msgbox cho nó gọn (ý tôi là chọn phương án b). Vã lại thêm một thắc mắc nửa là tại sao bạn lại làm cái chuyện tào lao vậy? Trong khi thoát excel là nó đã hỏi chúng ta save hay không trước khi thoát rồi. Không lẻ bạn chê anh bill dở hơn bạn à?

 

[minhtuan55]

Tôi lại có một thắc mắc nửa. Tại sao phải sử dụng form chỉ có 2 nút mà không sử dụng msgbox cho nó gọn (ý tôi là chọn phương án b). Vã lại thêm một thắc mắc nửa là tại sao bạn lại làm cái chuyện tào lao vậy? Trong khi thoát excel là nó đã hỏi chúng ta save hay không trước khi thoát rồi. Không lẻ bạn chê anh bill dở hơn bạn à?

OK dùng MSbox cũng được nhưng chữ nghĩa phải có dấu, có màu, chữ to, nút bấm to. Mà tốt hơn là dùng Form vì chử nó mới Bự Lớn rõ ràng mới được anh ak. Chuyện tào lao là sao anh. em làm để cho người già sử dụng nên cần phải có tiếng việt RÕ RÀng anh nhé. không có tào lao đâu anh. cái mặc định của Excel là khi thoát nó hiện 3 nút YES NO CANCEL, nếu người ta chọn No thì nó không lưu, vì file của em khi Thoát em muốn 1 là Lưu 2 là không làm gì hết (ý của em khi thoát luôn luôn Lưu đấy anh ). Mong anh hiểu vấn đề giúp em. Em xin chân thành cảm ơn

 

[giaiphap]

Vậy sử dụng thử đoạn code này xem.

'Thisworkbook
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not ThisWorkbook.Saved Then UserForm1.Show
End Sub

'Form
Private Sub CommandButton1_Click() ' Nút có
Unload Me
ThisWorkbook.Save
Application.Quit
End Sub
Private Sub CommandButton2_Click() ' Nút Không
Unload Me
ThisWorkbook.Saved = True
Application.Quit
End Sub

 

[minhtuan55]

Vậy sử dụng thử đoạn code này xem.

'Thisworkbook
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not ThisWorkbook.Saved Then UserForm1.Show
End Sub

'Form
Private Sub CommandButton1_Click() ' Nút có
Unload Me
ThisWorkbook.Save
Application.Quit
End Sub
Private Sub CommandButton2_Click() ' Nút Không
Unload Me
ThisWorkbook.Saved = True
Application.Quit
End Sub

Em đã test và Code anh chạy sai hầu như 50%. em xin nói lại vấn đề
- Khi người dùng thoát Excel thì hiện ra 1 Form gồm 2 nút CÓ và KHÔNG . nếu nhấn nút KHÔng thì không làm gì cả ( nghĩa là tắt cái Form đó là xong không có lưu hay thoát gì hết giống như Hide cái form đó là xong )
- Khi người dùng nhấn nút CÓ thì sẽ có 2 trường hợp:
+ Trường hợp 1: Nếu trên máy tính chỉ mở 1 file này thôi thì Lưu và Thoát excel luôn
+ Trường hợp 2: Nếu trên máy tính mở file này và mở nhiều file khác thì cũng chỉ Lưu và Thoát file này thôi, còn các File khác kệ nó không ảnh hưởng gì hết

Code của anh sai ở chổ ( Khi thoát nhấn Nút CÓ thì nếu em có mở vài file khác thì nó bắt 1 là Lưu lại hết 2 là không lưu lại hết tất cả các file đang mở luôn , Khi bấm nút KHông thì lại thoát Excel ( chỉ cần Hide cái form đó là được, không cần Lưu thoát gì cả , ý là nhiều khi người ta bấm lở tay nút X để thoát nhưng người ta suy nghĩ lại ak không thoát nữa chọn Không để làm việc tiếp )

 

[giaiphap]

Vậy bạn xem lại đúng ý bạn chưa vậy.

 

[NguyenNgocThuHien]

Bạn thử xem ok chưa.

 

[minhtuan55]

Vậy bạn xem lại đúng ý bạn chưa vậy.

Cảm ơn anh đã giúp. Nhưng code anh vẫn chưa đúng trường hợp khi em mở nhiều File cùng 1 lúc em nhấn Có thì nó bắt Lưu và thoát tất cả các File kia luôn . Mong anh sửa lại chỉ Lưu và thoát file dùng code này thôi, Còn các file kia giữ nguyên hiện trạng.
p/s: File cua anh em mất 5 giây để xem Code anh nhé

 

[minhtuan55]

Bạn thử xem ok chưa.

Cảm ơn anh đã giúp. Nhưng code anh chư đúng trường hợp khi em mở nhiều File cùng 1 lúc em nhấn Có thì nó bắt Lưu và thoát tất cả các File kia luôn . Mong anh sửa lại chỉ Lưu và thoát file dùng code này thôi, Còn các file kia giữ nguyên hiện trạng

 

[PacificPR]

Cảm ơn anh đã giúp. Nhưng code anh chư đúng trường hợp khi em mở nhiều File cùng 1 lúc em nhấn Có thì nó bắt Lưu và thoát tất cả các File kia luôn . Mong anh sửa lại chỉ Lưu và thoát file dùng code này thôi, Còn các file kia giữ nguyên hiện trạng

Người ta nữ tính như rứa mà bác lại gọi bằng anh ...

 

[minhtuan55]

Người ta nữ tính như rứa mà bác lại gọi bằng anh ...

Sorry chú. Chú giúp mình đi

 

[PacificPR]

Sorry chú. Chú giúp mình đi

Cái này em không biết gì anh ạ. Mà em thấy file của anh xênh gái kia đúng yêu cầu của anh rồi mà

 

[minhtuan55]

Cái này em không biết gì anh ạ. Mà em thấy file của anh xênh gái kia đúng yêu cầu của anh rồi mà

Sai rồi em Chưa đúng yêu cầu của anh. yêu cầu của anh làm hoi bị khó đó em. tại anh phải Test tất cả các trường hợp ok mới ok thôi em ak. nên các Chú giúp mình phải thật kỹ càng nhé

 

[NguyenNgocThuHien]

Cảm ơn anh đã giúp. Nhưng code anh chư đúng trường hợp khi em mở nhiều File cùng 1 lúc em nhấn Có thì nó bắt Lưu và thoát tất cả các File kia luôn . Mong anh sửa lại chỉ Lưu và thoát file dùng code này thôi, Còn các file kia giữ nguyên hiện trạng

Uổi, code như vậy rất rõ ràng rồi anh.

 If f.CloseFile = True Then
        ThisWorkbook.Save
        Cancel = False
        If Application.Workbooks.Count = 1 Then
            Application.Quit
        End If
    Else
        Cancel = True
    End If

Nếu người dùng chọn có thì save chính file đó, đóng file đó, nếu chỉ có một file duy nhất thì thoát Excel. Còn lại thì không làm gì. Không hiểu yêu cầu của anh nó khác như thế nào nữa.

 

[minhtuan55]

Uổi, code như vậy rất rõ ràng rồi anh.

 If f.CloseFile = True Then
        ThisWorkbook.Save
        Cancel = False
        If Application.Workbooks.Count = 1 Then
            Application.Quit
        End If
    Else
        Cancel = True
    End If

Nếu người dùng chọn có thì save chính file đó, đóng file đó, nếu chỉ có một file duy nhất thì thoát Excel. Còn lại thì không làm gì. Không hiểu yêu cầu của anh nó khác như thế nào nữa.

trời ơi là trời anh nói vậy mà em không hiểu hay sao. Code của em chỉ đúng khi em mở 1 file lên chọn Có không đều OK, nhưng khi anh mở thêm 1 file khác lên thì anh muốn chỉ lưu và thoát file dùng code thôi còn mấy file khác vẫn giữ nguyên ( nghỉa là anh bấm Nút Co thì nó lưu và thoat chỉ file đó thôi còn mấy file kia vẫn giữ nguyên ( hiện tại code của em khi chọn CO thi nó hiện thông báo có 3 lựa chọn YES NO CANCEL hiểu chưa trời quơi)). Sao em không thử nghiệm trước nhĩ. để anh hỏi lại 2 3 lần. thiệt tình. không thì anh chứng Minh luôn nhé

Khi anh mở 2 file


Khi anh nhấn nút X để thoát file dùng code


kết quả đây nek. Nó không lưu và thoát file dùng code mà nó bắt thoát hết mấy file khác đang mở luôn.

 

[be_09]

Sai rồi em Chưa đúng yêu cầu của anh. yêu cầu của anh làm hoi bị khó đó em. ....... nên các Chú giúp mình phải thật kỹ càng nhé

Cái này không phải bắt, bẽ, nhưng em dùng từ không chính xác, phải nêu vầy nè:
File em giúp chưa đáp ứng được cái anh cần, anh cần như thế này nè......(giải thích rỏ để người giúp hiểu được ý của mình).

Theo tôi thì dùng UserForm, vừa đẹp lại sử dụng Tiếng Việt dễ dàng.

 

[minhtuan55]

Cái này không phải bắt, bẽ, nhưng em dùng từ không chính xác, phải nêu vầy nè:
File em giúp chưa đáp ứng được cái anh cần, anh cần như thế này nè......(giải thích rỏ để người giúp hiểu được ý của mình).

Theo tôi thì dùng UserForm, vừa đẹp lại sử dụng Tiếng Việt dễ dàng.

dạ thì em đang làm bằng UserForm đó anh. Nhưng mà chỉ đúng khi trường hợp mở 1 file đó thôi. Còn khi mở nhiều file thì nó bắt thoát hết luôn

 

[NguyenNgocThuHien]

Em test file trên Excel 2007 thì chạy đúng như yêu cầu, của anh là 2003 thì em không rõ lắm, nhưng về mặt logic thì nó đúng. Anh có thể thử thay

Application.Workbooks.Count = 1

thành

Application.Workbooks.Count = 0

 

[thaipv]

Chào cả nhà GPE!
Em có vấn đề mà sửa đi sửa lại hoài nó không chạy đúng theo ý mình được.
Em muốn khi thoát File excel thì hiện Form gồm 2 nút Có và Không
- Nếu chọn Có:
+ Trường hợp trên máy tính chỉ mở 1 file này thì Lưu và Thoát luôn ( Code như hiện tại do em viết thì ok rồi )
+ Trường hợp trên máy tính mở file này và các file khác thì cũng chi Lưu và Thoát File này thôi, còn các file khác vẫn bình thường ( Code như hiện tại do em viết thì nó bắt Lưu và Thoát tất cả các File luôn). Em chỉ muốn Lưu và Thoát file em dùng Code thôi, còn các File khác kệ nó. Nhờ các Bác sửa giúp em.

...

Bạn thử xem code này được chưa nhé :

 

[minhtuan55]

Bạn thử xem code này được chưa nhé :

cảm ơn anh đã giúp, code anh chạy không đúng ý em ạ. Bấm nút Không thì chỉ tắt Form thôi anh, còn code của anh nó thoát ra luôn

 

[minhtuan55]

Em test file trên Excel 2007 thì chạy đúng như yêu cầu, của anh là 2003 thì em không rõ lắm, nhưng về mặt logic thì nó đúng. Anh có thể thử thay

Application.Workbooks.Count = 1

thành

Application.Workbooks.Count = 0

anh đã sữa 0,1,2,3,4...N cũng không được em ak

 

[thaipv]

cảm ơn anh đã giúp, code anh chạy không đúng ý em ạ. Bấm nút Không thì chỉ tắt Form thôi anh, còn code của anh nó thoát ra luôn

Vậy bạn thử file này xem sao nhé :

 

[giaiphap]

Vậy bạn thử file này xem sao nhé :

Không đúng đâu bạn ơi, cho dù có làm 100 lần vẫn bị phán một câu "Bài của bạn sai 50%" các bạn đang bị chủ thớt tào lau đó. Thật ra ở #9 đã làm được nhưng có lẻ chủ thớt không thèm tải file về và test thử bao giờ (trong #9 mình không hề dùng lệnh Application.Quit, và cũng không hề dùng bất kỳ lệnh nào để đóng file excel) và vẫn bị phán một câu nghe chán chết. Chạy cho nhanh chủ đè này đi các bạn ơi, có lẻ nên đưa chủ thớt này vào danh sách đen cho rồi.

 

[VetMini]

Không đúng đâu bạn ơi, cho dù có làm 100 lần vẫn bị phán một câu "Bài của bạn sai 50%" các bạn đang bị chủ thớt tào lau đó. Thật ra ở #9 đã làm được nhưng có lẻ chủ thớt không thèm tải file về và test thử bao giờ (trong #9 mình không hề dùng lệnh Application.Quit, và cũng không hề dùng bất kỳ lệnh nào để đóng file excel) và vẫn bị phán một câu nghe chán chết. Chạy cho nhanh chủ đè này đi các bạn ơi, có lẻ nên đưa chủ thớt này vào danh sách đen cho rồi.

Tại bạn quên xem kỹ từ đầu. Chủ thớt có nói loại yêu cầu này cho người già sử dụng, nó phải đáp ứng tất cả "những trường hợp chọc tay bấm này bấm nọ" của người già.

Thật ra, tất cả những vấn đề của chủ thớt chỉ có thể giải quyết bằng một câu "máy dùng để làm việc, block tất cả các phần mềm khác". Xong.
Nếu còn dùng xem du tuýp thì vấn đề còn dài dài.

 

[minhtuan55]

Không đúng đâu bạn ơi, cho dù có làm 100 lần vẫn bị phán một câu "Bài của bạn sai 50%" các bạn đang bị chủ thớt tào lau đó. Thật ra ở #9 đã làm được nhưng có lẻ chủ thớt không thèm tải file về và test thử bao giờ (trong #9 mình không hề dùng lệnh Application.Quit, và cũng không hề dùng bất kỳ lệnh nào để đóng file excel) và vẫn bị phán một câu nghe chán chết. Chạy cho nhanh chủ đè này đi các bạn ơi, có lẻ nên đưa chủ thớt này vào danh sách đen cho rồi.

Anh làm sai thì em test sai thì nói sai, chứ chẳng lẽ anh làm sai em nói đúng hay sao.bÂy giờ anh nói bài số 9 đúng đúng không. bây giờ em sẽ test gửi Video cho anh. Anh cho em xin cai Gmail

 

[be_09]

Anh làm sai thì em test sai thì nói sai, ..........

Bạn không nên dùng từ sai (làm mất lòng người giúp), nên dùng từ tế nhị như thế này "Em Test thử nhưng chưa đáp ứng được yêu cầu".

Tôi giúp 1 lần nếu không đúng thì cũng chạy luôn (vì đã có nhiều thành viên giúp rồi mà không đúng ý):

- Khi nhấn nút X trên sheet (Close), Form sẽ hiện lên và nhấn nút có để lưu, nhấn nút không thì không lưu.

 

[ndu96081631]

Bạn không nên dùng từ sai (làm mất lòng người giúp), nên dùng từ tế nhị như thế này "Em Test thử nhưng chưa đáp ứng được yêu cầu".

Tôi giúp 1 lần nếu không đúng thì cũng chạy luôn (vì đã có nhiều thành viên giúp rồi mà không đúng ý):

- Khi nhấn nút X trên sheet (Close), Form sẽ hiện lên và nhấn nút có để lưu, nhấn nút không thì không lưu.

Theo em hiểu thì yêu cầu của tác giả thế này:
- Mỗi khi bấm nút X đóng file excel thi UserForm sẽ hiện ra
- Trên form có 2 nút 'Có' và 'Không'. Lúc này sẽ có 2 trường hợp xảy ra:

1> Bấm nút 'Không' sẽ đóng form và không làm gì cả
2> Bấm nút 'Có' sẽ có 2 thêm trường hợp con xảy ra:

a) Nếu máy tính chỉ mở duy nhất file này ---> Lưu file rồi thoát luôn Excel (Application.Quit)
b) Nếu máy tính có nhiều file đang mở ---> Lưu và đóng duy nhất file này, còn các file khác để nguyên​

----------------------------------------
Vậy nên: File của anh vẫn chưa đúng 100% yêu cầu của tác giả.
Thật ra loại yêu cầu này đã có trên diễn đàn từ lâu, chẳng hạn link dưới đây là chủ đề gần tương tự:
http://www.giaiphapexcel.com/dienda...g-nút-x-góc-phải-màn-hình.122856/#post-769236
(tuy có vài chỗ hơi khác nhưng vẫn có thể áp dụng được)

 

[VetMini]

...
Thật ra loại yêu cầu này đã có trên diễn đàn từ lâu, chẳng hạn link dưới đây là chủ đề gần tương tự:
http://www.giaiphapexcel.com/diendan/threads/không-cho-thoát-excel-bằng-nút-x-góc-phải-màn-hình.122856/#post-769236
(tuy có vài chỗ hơi khác nhưng vẫn có thể áp dụng được)

Cái này chỉ dùng được cho các bạn khác có vấn đề tương tự. Riêng chủ thớt này thì khó chấp nhận phương án b.

 

[ndu96081631]

Cái này chỉ dùng được cho các bạn khác có vấn đề tương tự. Riêng chủ thớt này thì khó chấp nhận phương án b.

Ý mình không phải là phương án b, c, d gì cả... Mình muốn nói với code trong link ở trên, có thể "chế biến" lại vẫn đúng ý như thường (cái kia dùng MsgBox Unicode, này này dùng Form)

 

[minhtuan55]

Vậy bạn thử file này xem sao nhé :

CODE BẠN đúng gần 90 % rồi bạn chỉ cần sửa lại cho mình 1 chút nữa nghĩa là. Khi Form hiện lên bấm vào dấu X để Tắt Form thì nó cũng giống như nút KHÔNG

 

[minhtuan55]

Theo em hiểu thì yêu cầu của tác giả thế này:
- Mỗi khi bấm nút X đóng file excel thi UserForm sẽ hiện ra
- Trên form có 2 nút 'Có' và 'Không'. Lúc này sẽ có 2 trường hợp xảy ra:

1> Bấm nút 'Không' sẽ đóng form và không làm gì cả
2> Bấm nút 'Có' sẽ có 2 thêm trường hợp con xảy ra:

a) Nếu máy tính chỉ mở duy nhất file này ---> Lưu file rồi thoát luôn Excel (Application.Quit)
b) Nếu máy tính có nhiều file đang mở ---> Lưu và đóng duy nhất file này, còn các file khác để nguyên​

----------------------------------------
Vậy nên: File của anh vẫn chưa đúng 100% yêu cầu của tác giả.
Thật ra loại yêu cầu này đã có trên diễn đàn từ lâu, chẳng hạn link dưới đây là chủ đề gần tương tự:
http://www.giaiphapexcel.com/diendan/threads/không-cho-thoát-excel-bằng-nút-x-góc-phải-màn-hình.122856/#post-769236
(tuy có vài chỗ hơi khác nhưng vẫn có thể áp dụng được)

Cảm ơn anh Ndu. em thấy anh Ndu đọc vấn đề câu hỏi của người Post rất chi tiết và đúng chính xác ý của em ( Ak còn khi người dúng bấm nào nút X của Form thì tương tự như nút KHÔNG ). Em đã xem link anh gửi em sửa hoài không được. mong anh giúp em. Em xin chân thành cảm ơn

 

[minhtuan55]

Bạn không nên dùng từ sai (làm mất lòng người giúp), nên dùng từ tế nhị như thế này "Em Test thử nhưng chưa đáp ứng được yêu cầu".

Tôi giúp 1 lần nếu không đúng thì cũng chạy luôn (vì đã có nhiều thành viên giúp rồi mà không đúng ý):

- Khi nhấn nút X trên sheet (Close), Form sẽ hiện lên và nhấn nút có để lưu, nhấn nút không thì không lưu.

Báo cáo đã test file của anh. Trước hết xin chân thành cảm ơn đã giúp. File của anh em test vẫn chưa đúng yêu cầu. Nghĩa là nhấn nút Không là không lưu không thoát gì cả, chỉ tắt cái Form đó. Anh nên đọc kỷ yêu cầu của người Post để không phải chỉnh tới chỉnh luôi mất thời gian, rồi làm sai thì e nói sai rồi mất lòng nhau. Đấy anh xem anh Ndu anh hiểu vấn đề của em rồi đấy

 

[be_09]

Báo cáo đã test file của anh. Trước hết xin chân thành cảm ơn đã giúp. File của anh em test vẫn chưa đúng yêu cầu. Nghĩa là nhấn nút Không là không lưu không thoát gì cả, chỉ tắt cái Form đó. Anh nên đọc kỷ yêu cầu của người Post để không phải chỉnh tới chỉnh luôi mất thời gian, rồi làm sai thì e nói sai rồi mất lòng nhau. Đấy anh xem anh Ndu anh hiểu vấn đề của em rồi đấy

Vậy bạn nên Test kỹ rồi hãy nêu lên vấn đề, trước khi tôi đưa File lên thì đã kiểm tra chính xác như tôi nêu nội dung ở bài 29, vậy bạn chờ các thành viên Test thử xem khi nhấn nút không nó có đóng Form và không có lưu hay không?

Bài 29 tôi không đã kích, tôi chỉ nêu thế này "Bạn không nên dùng từ sai (làm mất lòng người giúp)", đó chỉ là lời góp ý để các thành viên hiểu mà thông cãm và giúp đỡ lẫn nhau.

Nêu bạn không thích thì tôi chẳng bao giờ góp ý cho bạn nữa, vậy đi cho khỏi mếch lòng nhau.

 

[be_09]

Bài 29 tôi không cho dùng nút X để đóng Form, mà bắt buộc phải nhấn nút (chắc bạn nói không đóng Form được là ngay chỗ này).

Tại bài 34 bạn có nêu sử dụng nút X trên Form, thì File bài 29 bạn bỏ đoạn code này đi thì đóng Form được.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = 0 Then
        Cancel = True
        MsgBox "VUI LONG NHÁN NÚT CÓ DE LUU", vbExclamation, "               THÔNG BÁO"
    End If
End Sub

 

[thaipv]

CODE BẠN đúng gần 90 % rồi bạn chỉ cần sửa lại cho mình 1 chút nữa nghĩa là. Khi Form hiện lên bấm vào dấu X để Tắt Form thì nó cũng giống như nút KHÔNG...

Bạn xem file số 3 này xem sao nhé :

 

[minhtuan55]

Bạn xem file số 3 này xem sao nhé :

Báo cáo Code của anh chính xác 100% ý của em. Xin chân thành cảm ơn !

 

[minhtuan55]

Bài 29 tôi không cho dùng nút X để đóng Form, mà bắt buộc phải nhấn nút (chắc bạn nói không đóng Form được là ngay chỗ này).

Tại bài 34 bạn có nêu sử dụng nút X trên Form, thì File bài 29 bạn bỏ đoạn code này đi thì đóng Form được.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = 0 Then
        Cancel = True
        MsgBox "VUI LONG NHÁN NÚT CÓ DE LUU", vbExclamation, "               THÔNG BÁO"
    End If
End Sub

dạ em cảm ơn anh. Em đã nói rõ Nhấn Có thì Lưu và Thoát, còn nhấn Không thì Hide cái form đó thôi không lưu không thoát (và nút X của Form thì giống như nút Không ). mà file 29 của anh nhấn Không thì nó Thoát luôn. Anh nên xem File 38 của anh Thaipv anh ấy làm đúng chính xác yêu cầu của em rồi

 

[trinhvinhtai]

Hi Mọi người
e có 2 trường hợp
+trường hợp 1:file trên e muốn nhấn " KHÔNG" thì nó không lưu và tắt file đó ak.
+trường hợp 2: mình tạo thêm 1 nút trong userform là nút đóng luôn. không cần nhấn nút "x" trên phải màn hình

 

[trinhvinhtai]

Bạn thử xem code này được chưa nhé :

HI ALL. CC A THAIPV

FILE NAU CÙA E CHỖ LƯU SAVE BỊ LỖI GÌ XEM GIÙM E. CHO EM XIN LỖI CHỔ ĐÓ

 

[Đỗ Quân]

Anh chị cho e hỏi chút ạ.
E có làm 1 file Login userform.tất cả e làm đã ok.nhưng hiện tại khi e thoát workbook thì userform cũng thoát.
E muốn là thoát workbook thì userform sẽ hiện lên.
Và bắt buộc phải thoát excel bằng nút EXIT do e tạo.
Các a chị giúp e với.

 

[be_09]

Anh chị cho e hỏi chút ạ.
E có làm 1 file Login userform.tất cả e làm đã ok.nhưng hiện tại khi e thoát workbook thì userform cũng thoát.
E muốn là thoát workbook thì userform sẽ hiện lên.
Và bắt buộc phải thoát excel bằng nút EXIT do e tạo.
Các a chị giúp e với.

Bạn hỏi không cùng chủ đề (là vi phạm nội quy).
Bạn nên mở Topic khác với tiêu đề là "Code cho nút đóng File trên UserForm và không cho click nút X của Form".

 

[truongvu317]

Anh chị cho e hỏi chút ạ.
E có làm 1 file Login userform.tất cả e làm đã ok.nhưng hiện tại khi e thoát workbook thì userform cũng thoát.
E muốn là thoát workbook thì userform sẽ hiện lên.
Và bắt buộc phải thoát excel bằng nút EXIT do e tạo.
Các a chị giúp e với.

File đâu, sao kỳ vậy.

 

[Đỗ Quân]

Dạ file của e đây ạ.
Password : 18121994
Mọng a chị chỉ bảo e với ạ.
E cảm ơn !!!

 

[truongvu317]

Dạ file của e đây ạ.
Password : 18121994
Mọng a chị chỉ bảo e với ạ.
E cảm ơn !!!

Thế mà muốn lúc mở file nó hiện hộp thoại, lúc đóng file nó cũng hiện hộp thoại à.

 

[Đỗ Quân]

Dạ vâng ạ