Xin hướng dẫn cách viết VBA trong excel

[truongtrungviet]

Nhờ các cao thủ viết giúp tôi đoạn cos không cho cick vào nút close trên from.(Nút màu đỏ góc phải màn hình). Xin cảm ơn nhiều.

 

[boong]

Mở code của Form đó ra. Nhập đoạn code này vào:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = 0 Then Cancel = True            [COLOR=green]'Khoa nut Exit cua From[/COLOR] End Sub

Xin cảm ơn Boong nhiều lắm, mình cũng vừa tìm ra cos của bạn trong bài ACCOUNTING.

Mở code của Form đó ra. Nhập đoạn code này vào:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = 0 Then Cancel = True            [COLOR=green]'Khoa nut Exit cua From[/COLOR] End Sub

Nhưng mình muốn đặt điều kiện: khi người ta cick vào nút close thì nó hiện câu thông báo" Không được thoát bằng cách này". Bạn giúp mình nghen!

 

[boong]

Vậy bạn thêm 1 msgbox nữa vào trong code thôi!

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = 0 Then [COLOR=red]MsgBox ("Không được thoát bằng cách này!") [/COLOR]Cancel = True            [COLOR=teal]'Khoa nut Exit cua From[/COLOR] [COLOR=red]End If[/COLOR] End Sub

 

[cadafi]

Nhưng mình muốn đặt điều kiện: khi người ta cick vào nút close thì nó hiện câu thông báo" Không được thoát bằng cách này". Bạn giúp mình nghen!

Mở form ra và chép đoạn code này vào. Sau đó bạn thử click cho mở form ra thử xem, rồi click vào nút (X) xem sao!

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
"Mục đích nhằm không cho người dùng thoát bằng nút (X) Close của UserForm

    If CloseMode = vbFormControlMenu Then
        Cancel = True
    End If
End Sub

 

[truongtrungviet]

Còn ở trong Sheet mình cũng không cho cick như thế thì phải làm sao ?

 

[boong]

Có thật sự cần như vậy không? Vì bạn đâu muốn viết thêm 1 code để thoát khỏi Excel chi cho mất công đúng không? Mà mặt định thì Sheet trong Excel luôn được mở rồi! Nếu bạn có ý gì khác thì bạn có thể nói rõ hết 1 lần luôn để còn biết đường mà "mò" nữa chứ! Thân.

 

[truongtrungviet]

Có thật sự cần như vậy không? Vì bạn đâu muốn viết thêm 1 code để thoát khỏi Excel chi cho mất công đúng không?
Mà mặt định thì Sheet trong Excel luôn được mở rồi!
Nếu bạn có ý gì khác thì bạn có thể nói rõ hết 1 lần luôn để còn biết đường mà "mò" nữa chứ!
Thân.

Hi hi mình chỉ thích tìm hiểu thôi mà, đừng giận nhé, mình không có ý gì đâu