Giúp sửa code Lưu và thoát bằng From

minhtuan55 · 5/5/17

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

Mã:

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 · 5/5/17

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 · 5/5/17

dạ chắc rồi anh

minhtuan55 · 5/5/17

giaiphap đã viết:
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 · 6/5/17

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 · 6/5/17

giaiphap đã viết:
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 · 6/5/17

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

Mã:

'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 · 6/5/17

giaiphap đã viết:

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

Mã:

'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 · 6/5/17

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

NguyenNgocThuHien · 6/5/17

Bạn thử xem ok chưa.

minhtuan55 · 7/5/17

giaiphap đã viết:
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 · 7/5/17

NguyenNgocThuHien đã viết:
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 · 7/5/17

minhtuan55 đã viết:
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 · 7/5/17

PacificPR đã viết:
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 · 7/5/17

minhtuan55 đã viết:
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 · 7/5/17

PacificPR đã viết:
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 · 7/5/17

minhtuan55 đã viết:
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.

Mã:

 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 · 7/5/17

NguyenNgocThuHien đã viết:
Uổi, code như vậy rất rõ ràng rồi anh.

Mã:

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 · 7/5/17

minhtuan55 đã viết:
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 · 7/5/17

be09 đã viết:
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

Giúp sửa code Lưu và thoát bằng From

Thành viên bị đình chỉ hoạt động

File đính kèm

==(^o^)==

Thành viên bị đình chỉ hoạt động

Thành viên bị đình chỉ hoạt động

==(^o^)==

Thành viên bị đình chỉ hoạt động

==(^o^)==

Thành viên bị đình chỉ hoạt động

==(^o^)==

File đính kèm

Cute Black Cat

File đính kèm

Thành viên bị đình chỉ hoạt động

Thành viên bị đình chỉ hoạt động

Thành viên mới

Thành viên bị đình chỉ hoạt động

Thành viên mới

Thành viên bị đình chỉ hoạt động

Cute Black Cat

Thành viên bị đình chỉ hoạt động

Biên Hòa, Đồng Nai

Thành viên bị đình chỉ hoạt động

Facebook

Group