Không hiện bảng tính và Form theo ý muốn (1 người xem)

[bebeen]

Chào A/C GPE!
Em muốn khi mở file ra nó sẽ chỉ hiện Form thôi và khi click vào nút SHEET1, SHEET2 và SHEET3 thì nó sẽ thoát Form và chỉ hiện Sheet đó thôi. Em đã viết:
Code cho Thisworkbook:

Private Sub Workbook_Open()
    Application.Visible = False
    Main.Show
End Sub

và code cho Form là:

Option Explicit
Private Sub CommandButton1_Click()
    Unload Main
    Set Vung = S1
    Call Test_Hien
End Sub


Private Sub CommandButton2_Click()
    Unload Main
    Set Vung = S2
    Call Test_Hien
End Sub


Private Sub CommandButton3_Click()
    Unload Main
    Set Vung = S3
    Call Test_Hien
End Sub


Private Sub UserForm_Activate()
    If Application.Visible = True Then Application.Visible = False
End Sub

và thủ tục này nữa:

Option Explicit
Public Vung As Worksheet


Sub Test_Hien()
    Dim ws As Worksheet
    Application.Visible = True
    Vung.Visible = xlSheetVisible
    Vung.Activate
    For Each ws In ThisWorkbook.Worksheets
    If ws.Name <> Vung.Name Then ws.Visible = xlSheetVeryHidden
    Next
End Sub


Public Sub V_Main() 'Goi Form
    Main.Show
    Application.Visible = False
End Sub

Em đang sử dụng Office 2010 ạ!

 

[bebeen]

Cả buổi chiểu loay hoay mà vẫn không tìm được chỗ sai để hoàn thiện nữa. Haizz....!!

 

[bebeen]

Chẳng lẽ hết cách rồi sao!!?

 

[dovanhoc84]

lỗi ở cái này

Public Sub V_Main()
    Main.Show
    Application.Visible = True　'tôi sửa thành thế này
[COLOR=#ff0000]    'Application.Visible = False[/COLOR]
End Sub