Msgbox thông báo!

[vova2209]

Em có đoạn code thông báo dưới đây: Làm thế nào để khi mở đến sheet này thông báo hiện lên mình sẽ bắt buộc phải tắt thông báo msg này thì mới sang được sheet khác. Nhờ a chị giúp đỡ.. Em xin cảm ơn!

Public ThongBao As Boolean

Private Sub Worksheet_Activate()
    If ThongBao = False Then
        Call WellCome
        ThongBao = True
    End If
End Sub

Private Sub WellCome()
  Dim Text As String

  Text = "- Barng tisnh ddang owr chees ddooj Value" & vbCrLf & _
         "- Haxy lick vafo Update ddeer hieejn coong thuwsc" & vbCrLf & _
         "- Chus ys: Khi khoong dufng barng Phaan Lowsp haxy chuyeern sang chees ddooj Value ddeer Barng tisnh VoVa hoajt ddoojng nhanh hown"
  CreateObject("WScript.Shell").Popup UniConvert(Text, "Telex"), , "Thong Bao", vbOKOnly
End Sub

 

[HeSanbi]

@vova2209
Thì:
Copy code dưới vào Code Workbook, Xóa cái Worksheet Activate kia đi

Private Sub Workbook_SheetActivate(ByVal sh As Object)
    Call WellCome
End Sub