Không Cho chuyển đổi qua lại giữa các SHEET khi hộp thoại MSGBOX đang được mở

[namhn_vn]

Nhờ Anh Chị Em giúp đỡ !
Mình gặp phải 1 lỗi là khi hộp thoại MSGBOX đang được mở mà vẫn chuyển đổi qua lại giữa các SHEET khác nhau được. Có Anh Chị Em nào biết cách không cho chuyển đổi qua lại giữa các SHEET khi hộp thoại MSGBOX đang được mở thì chỉ giúp mình với. Cảm ơn mọi người nhiều.

 

[Phuocam]

Nhờ Anh Chị Em giúp đỡ !
Mình gặp phải 1 lỗi là khi hộp thoại MSGBOX đang được mở mà vẫn chuyển đổi qua lại giữa các SHEET khác nhau được. Có Anh Chị Em nào biết cách không cho chuyển đổi qua lại giữa các SHEET khi hộp thoại MSGBOX đang được mở thì chỉ giúp mình với. Cảm ơn mọi người nhiều.

Có lẽ hộp thoại này là hàng không chính hãng rồi. Haha

 

[namhn_vn]

Có lẽ hộp thoại này là hàng không chính hãng rồi. Haha

bạn thử mở hộp thoại MSGBOX đi rồi nhấn qua lại giữa các SHEET vẫn được bình thường. hjx ko bjk làm sao mà trị nó nữa

 

[Phuocam]

bạn thử mở hộp thoại MSGBOX đi rồi nhấn qua lại giữa các SHEET vẫn được bình thường. hjx ko bjk làm sao mà trị nó nữa

Trên máy tôi, khi hiện hộp thoại không chuyển sheet được.

Public Sub test()
MsgBox 123
End Sub

 

[namhn_vn]

Trên máy tôi, khi hiện hộp thoại không chuyển sheet được.

Public Sub test()
MsgBox 123
End Sub

Tại mình đang dùng MSGUNI nó mới bị vậy. hjx giờ ko bjk sao đây

 

[batman1]

Tại mình đang dùng MSGUNI nó mới bị vậy. hjx giờ ko bjk sao đây

Lần sau nếu dùng hàng nhái thì nói là hàng nhái. Đừng gọi tên hàng chính hãng để người khác khỏi hiểu nhầm, khỏi mất thời gian không đáng mất.

 

[Hau151978]

Nếu bạn sử dụng hàm API MessageBoxW để viết hàm MsgUNI tại link https://www.giaiphapexcel.com/diend...nhập-tiếng-việt-font-unicode-trong-vba.17469/ thì cần sửa lại 1 tý.

Public Declare Function MessageBox Lib "user32.dll" Alias "MessageBoxW" (ByVal hwnd As Long, _
                                                                          ByVal lpText As Long, _
                                                                          ByVal lpCaption As Long, _
                                                                          ByVal wType As Long) As Long


Public Function MsgUni(ByVal Chuoi As String, Optional Bieutuong As VbMsgBoxStyle = 64, _
                        Optional ByVal Tieude As String = "Tho6ng ba1o !", _
                        Optional ByVal Khac As Long = 0) As VbMsgBoxResult

MsgUni = MessageBox(Khac, StrPtr(UniVBA(Chuoi)), StrPtr(UniVBA(Tieude)), Bieutuong)
End Function

Hàm MessageBoxW nếu tham số hWnd là 0 sẽ không hiển thị msgbox với thuộc tính modal được, nếu đưa hWnd vào thì msgbox sẽ có thuộc tính APPMODAL (có thể chuyển sang ứng dụng khác nhưng không chuyển được giữa các sheet). Do vậy để gọi hàm trên bạn có thể dùng lệnh sau để có thuộc tính APPMODAL:
MsgUni chuoi:="xxx", khac:=Application.hWnd

 

[namhn_vn]

Nếu bạn sử dụng hàm API MessageBoxW để viết hàm MsgUNI tại link https://www.giaiphapexcel.com/diendan/threads/function-univba-và-msguni-hỗ-trợ-nhập-tiếng-việt-font-unicode-trong-vba.17469/ thì cần sửa lại 1 tý.

Public Declare Function MessageBox Lib "user32.dll" Alias "MessageBoxW" (ByVal hwnd As Long, _
                                                                          ByVal lpText As Long, _
                                                                          ByVal lpCaption As Long, _
                                                                          ByVal wType As Long) As Long


Public Function MsgUni(ByVal Chuoi As String, Optional Bieutuong As VbMsgBoxStyle = 64, _
                        Optional ByVal Tieude As String = "Tho6ng ba1o !", _
                        Optional ByVal Khac As Long = 0) As VbMsgBoxResult

MsgUni = MessageBox(Khac, StrPtr(UniVBA(Chuoi)), StrPtr(UniVBA(Tieude)), Bieutuong)
End Function

Hàm MessageBoxW nếu tham số hWnd là 0 sẽ không hiển thị msgbox với thuộc tính modal được, nếu đưa hWnd vào thì msgbox sẽ có thuộc tính APPMODAL (có thể chuyển sang ứng dụng khác nhưng không chuyển được giữa các sheet). Do vậy để gọi hàm trên bạn có thể dùng lệnh sau để có thuộc tính APPMODAL:
MsgUni chuoi:="xxx", khac:=Application.hWnd

Nếu bạn sử dụng hàm API MessageBoxW để viết hàm MsgUNI tại link https://www.giaiphapexcel.com/diendan/threads/function-univba-và-msguni-hỗ-trợ-nhập-tiếng-việt-font-unicode-trong-vba.17469/ thì cần sửa lại 1 tý.

Public Declare Function MessageBox Lib "user32.dll" Alias "MessageBoxW" (ByVal hwnd As Long, _
                                                                          ByVal lpText As Long, _
                                                                          ByVal lpCaption As Long, _
                                                                          ByVal wType As Long) As Long


Public Function MsgUni(ByVal Chuoi As String, Optional Bieutuong As VbMsgBoxStyle = 64, _
                        Optional ByVal Tieude As String = "Tho6ng ba1o !", _
                        Optional ByVal Khac As Long = 0) As VbMsgBoxResult

MsgUni = MessageBox(Khac, StrPtr(UniVBA(Chuoi)), StrPtr(UniVBA(Tieude)), Bieutuong)
End Function

Hàm MessageBoxW nếu tham số hWnd là 0 sẽ không hiển thị msgbox với thuộc tính modal được, nếu đưa hWnd vào thì msgbox sẽ có thuộc tính APPMODAL (có thể chuyển sang ứng dụng khác nhưng không chuyển được giữa các sheet). Do vậy để gọi hàm trên bạn có thể dùng lệnh sau để có thuộc tính APPMODAL:
MsgUni chuoi:="xxx", khac:=Application.hWnd

Bài đã được tự động gộp: 5/12/19

Nếu bạn sử dụng hàm API MessageBoxW để viết hàm MsgUNI tại link https://www.giaiphapexcel.com/diendan/threads/function-univba-và-msguni-hỗ-trợ-nhập-tiếng-việt-font-unicode-trong-vba.17469/ thì cần sửa lại 1 tý.

Public Declare Function MessageBox Lib "user32.dll" Alias "MessageBoxW" (ByVal hwnd As Long, _
                                                                          ByVal lpText As Long, _
                                                                          ByVal lpCaption As Long, _
                                                                          ByVal wType As Long) As Long


Public Function MsgUni(ByVal Chuoi As String, Optional Bieutuong As VbMsgBoxStyle = 64, _
                        Optional ByVal Tieude As String = "Tho6ng ba1o !", _
                        Optional ByVal Khac As Long = 0) As VbMsgBoxResult

MsgUni = MessageBox(Khac, StrPtr(UniVBA(Chuoi)), StrPtr(UniVBA(Tieude)), Bieutuong)
End Function

Hàm MessageBoxW nếu tham số hWnd là 0 sẽ không hiển thị msgbox với thuộc tính modal được, nếu đưa hWnd vào thì msgbox sẽ có thuộc tính APPMODAL (có thể chuyển sang ứng dụng khác nhưng không chuyển được giữa các sheet). Do vậy để gọi hàm trên bạn có thể dùng lệnh sau để có thuộc tính APPMODAL:
MsgUni chuoi:="xxx", khac:=Application.hWnd

cảm ơn bạn nhiều