Chọn nút Close trong Excel để quay về Form

[nhatky@]

Em có một câu hỏi này muốn nhờ mọi người chỉ giáo. Trong file đính kèm của em, em đã tạo 1 form nhưng giờ đây em muốn khi mình chọn nút Close (của Excel) thì nó sẽ hiện form luôn mà không hiện bảng tính Excel.

 

[dhn46]

Bạn thêm code sau vảo Workbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    Application.Visible = False

    Userform1.Show

End Sub

 

[nhatky@]

Bạn thêm code sau vảo Workbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    Application.Visible = False

    Userform1.Show

End Sub

Không phải rùi bạn ah. Ý mình là khi chọn nút xem thì nó view lên và khi đó mình muốn chọn vào nút Close trong phần view đó. Còn sự kiện này thì mình đã biết rùi.
Nhờ bạn và mọi người xem thêm cho em.

 

[dhn46]

Vậy bạn sửa đoạn code sau cho nút xem tài liệu như thế này

Private Sub CommandButton1_Click()        Unload Me
        Application.Dialogs.Item(xlDialogPrintPreview).Show
        Application.Run "xem.xls!goi"

End Sub

đoạn

Application.Run "xem.xls!goi"

có thể làm cách nữa:

call goi

 

[nhatky@]

Mình muốn hỏi thêm chút nữa nha: Hiện tại với sheet được kích hoạt thì OK nhưng nếu sheet muốn view không kích hoạt thì làm thế nào?
Ví dụ: sheet2 có dữ liệu xem. Nhưng sheet1 đang được kích hoạt.
Mình viết như dưới vậy sao không Ok?

Private Sub CommandButton1_Click()
    Unload Me
    Sheet2.Activate
    Sheet2.Application.Dialogs.Item(xlDialogPrintPreview).Show
    Application.Visible = False
    UserForm1.Show
End Sub

vậy sao lại không được? Vậy mình phải sửa thế nào?
---->Mình đã tìm ra lời giải rùi <------------