Nhờ các Anh, Chị, Em. Mở dùm em khóa của các Sheet!!!!!!!!!!!!!!

Liên hệ QC

Minhnha1983

Thành viên mới
Tham gia
12/6/16
Bài viết
3
Được thích
0
Hi ! ACE

- Do nhu cầu cần sử dụng PM Excel để theo dõi công việc. Nhưng do không liên lạc được với tác giả để mua bản quyền. riêng bản thân không thể chỉnh sữa được. Nên em mạo muội xin Anh, Chị, Em ( ACE ) Giúp đỡ em như sau:

- Ai có thông tin về tác giả cho em xin thông tin!!!!

- Nếu ai có khả năng xin mở dùm em password để em chỉnh sữa thông tin để sử dụng. Em xin Hậu Tạ !!!

Do phần mềm này họp với nhu cầu nên em rất cần. Xin các ACE giúp đỡ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Trân Trọng !!!!!!!!!!!!
 

File đính kèm

  • Test mo khoa.rar
    3.5 MB · Đọc: 8
1 mớ code cùi à ... nhưng mạnh làm cho coi thui chứ đừng bào giờ liên hệ với mình mất công
Câu trả lời duy nhất là ko bao giờ giúp làm cái tầm bạy ... mấy hào bạc vụn mang tiếng ra
Mã:
Sub SETTING()
Application.EnableEvents = True
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    Worksheets("SETTING").Visible = True
    Worksheets("SETTING").Activate

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub

Sub HOME()

Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    Worksheets("HOME").Visible = True
    Worksheets("HOME").Activate

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub
Sub TT_KHACH()
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    Worksheets("KH").Visible = True
    Worksheets("KH").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub

Sub TT_SP()
If Worksheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("T.T SAN PHAM").Visible = True
    Worksheets("T.T SAN PHAM").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub PHIEUNHAP()

Application.ScreenUpdating = False
'If Sheets("TEST").Range("R3").Value = 1 Then
'Call START_ID
'End If
'...........

If Sheets("TEST").Range("B2").Value = 0 And Sheets("TEST").Range("R1").Value < 10 And Sheets("TEST").Range("R2").Value + 2 > Date Then
    Worksheets("PHIEU NHAP").Visible = True
    Worksheets("PHIEU NHAP").Activate
ElseIf Sheets("TEST").Range("B2").Value > 0 And Sheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("PHIEU NHAP").Visible = True
    Worksheets("PHIEU NHAP").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

Application.ScreenUpdating = True
End Sub
Sub PHIEUXUAT()
Application.ScreenUpdating = False

'If Sheets("TEST").Range("R3").Value = 1 Then
'Call START_ID
'End If
'...........

If Sheets("TEST").Range("B2").Value = 0 And Sheets("TEST").Range("R1").Value < 10 And Sheets("TEST").Range("R2").Value + 2 > Date Then
        If Sheets("SETTING").Range("H28").Value = 1 Then
        Worksheets("PHIEU XUAT").Visible = True
        Worksheets("PHIEU XUAT").Activate
    Else
        Worksheets("PHIEU XUAT2").Visible = True
        Worksheets("PHIEU XUAT2").Activate
    End If
ElseIf Sheets("TEST").Range("B2").Value > 0 And Sheets("TEST").Range("B1").Value >= 1 Then
        If Sheets("SETTING").Range("H28").Value = 1 Then
        Worksheets("PHIEU XUAT").Visible = True
        Worksheets("PHIEU XUAT").Activate
    Else
        Worksheets("PHIEU XUAT2").Visible = True
        Worksheets("PHIEU XUAT2").Activate
    End If
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub

Sub PHIEUTTOAN()

Application.ScreenUpdating = False
'If Sheets("TEST").Range("R3").Value = 1 Then
'Call START_ID
'End If
'...........

If Worksheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("PHIEU T.TOAN").Visible = True
    Worksheets("PHIEU T.TOAN").Activate
    
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub
Sub THANHTOAN()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("THANH TOAN").Visible = True
Worksheets("THANH TOAN").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub XUATKHO()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("XUAT KHO").Visible = True
Worksheets("XUAT KHO").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub NHAPKHO()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("NHAP HANG").Visible = True
Worksheets("NHAP HANG").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub NXT()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("NXT").Visible = True
Worksheets("NXT").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub THEKHO2()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("THE-KHO").Visible = True
Worksheets("THE-KHO").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub

Sub CONGNO()
If Worksheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("CONG NO").Visible = True
    Worksheets("CONG NO").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub CHITIET()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("CHI TIET").Visible = True
Worksheets("CHI TIET").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub

Sub KHOANTHU()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("KHOANTHU").Visible = True
Worksheets("KHOANTHU").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub KHOANCHI()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("KHOANCHI").Visible = True
Worksheets("KHOANCHI").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub



Sub DOANH_THU()
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen

            Worksheets("DOANH THU").Visible = True
            Worksheets("DOANH THU").Activate

Else
        Worksheets("TEST").Visible = True
        Worksheets("TEST").Activate
End If

End Sub
Sub NCC()
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
Worksheets("NCC").Visible = True
Worksheets("NCC").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub






Sub BAO_CAO()
'If Sheets("TEST").Range("R3").Value = 1 Then
'Call START_ID
'End If
'...........

If Sheets("TEST").Range("B2").Value = 0 And Sheets("TEST").Range("R1").Value < 10 And Sheets("TEST").Range("R2").Value + 2 > Date Then
    Worksheets("BC").Visible = True
    Worksheets("BC").Activate

ElseIf Sheets("TEST").Range("B2").Value > 0 And Sheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("BC").Visible = True
    Worksheets("BC").Activate

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

Application.ScreenUpdating = True
End Sub



Sub PN()
Application.EnableEvents = True
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    Worksheets("PN").Visible = True
    Worksheets("PN").Activate

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub
Sub PX()
Application.EnableEvents = True
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    If Sheets("SETTING").Range("H28").Value = 1 Then
        Worksheets("PX").Visible = True
        Worksheets("PX").Activate
    Else
        Worksheets("PX2").Visible = True
        Worksheets("PX2").Activate
    End If
    
    

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub

Sub THIET_LAP()
Application.EnableEvents = True
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    Worksheets("THIET LAP").Visible = True
    Worksheets("THIET LAP").Activate

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub


Sub NHATKY_MUABAN()
Application.EnableEvents = True
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    Worksheets("NHATKY_MUABAN").Visible = True
    Worksheets("NHATKY_MUABAN").Activate

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub

Sub HUONGDAN_SD()

    Worksheets("HUONGDAN_SD").Visible = True
    Worksheets("HUONGDAN_SD").Activate


End Sub

Sub NV()

    Worksheets("NV").Visible = True
    Worksheets("NV").Activate


End Sub

Sub DANHMUC()


If Sheets("TEST").Range("B2").Value = 0 And Sheets("TEST").Range("R1").Value < 10 And Sheets("TEST").Range("R2").Value + 2 > Date Then
    Worksheets("DANHMUC").Visible = True
    Worksheets("DANHMUC").Activate

ElseIf Sheets("TEST").Range("B2").Value > 0 And Sheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("DANHMUC").Visible = True
    Worksheets("DANHMUC").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If



End Sub
Sub FORM_THUCHI()
If Worksheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("FORM THUCHI").Visible = True
    Worksheets("FORM THUCHI").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub FORM()

    Worksheets("FORM").Visible = True
    Worksheets("FORM").Activate


End Sub
Sub TONGHOP_THUCHI()

    Worksheets("TONGHOP").Visible = True
    Worksheets("TONGHOP").Activate


End Sub
Sub CHITIET_THUCHI()

    Worksheets("CHITIET_THUCHI").Visible = True
    Worksheets("CHITIET_THUCHI").Activate


End Sub
Sub SOQUY()

    Worksheets("SOQUY").Visible = True
    Worksheets("SOQUY").Activate


End Sub

Sub INPT()
Application.EnableEvents = True

    Worksheets("IN PT").Visible = True
    Worksheets("IN PT").Activate

End Sub
Sub INPC()
Application.EnableEvents = True

    Worksheets("IN PC").Visible = True
    Worksheets("IN PC").Activate

End Sub
Sub INTT()
Application.EnableEvents = True

    Worksheets("IN TT").Visible = True
    Worksheets("IN TT").Activate

End Sub
Sub THONGBAO()
Worksheets("THONGBAO").Visible = True
Worksheets("THONGBAO").Activate
End Sub
Bài đã được tự động gộp:

coi thông tin nè
Mã:
Sub SETTING()
Application.EnableEvents = True
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    Worksheets("SETTING").Visible = True
    Worksheets("SETTING").Activate

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub

Sub HOME()

Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    Worksheets("HOME").Visible = True
    Worksheets("HOME").Activate

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub
Sub TT_KHACH()
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    Worksheets("KH").Visible = True
    Worksheets("KH").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub

Sub TT_SP()
If Worksheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("T.T SAN PHAM").Visible = True
    Worksheets("T.T SAN PHAM").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub PHIEUNHAP()

Application.ScreenUpdating = False
'If Sheets("TEST").Range("R3").Value = 1 Then
'Call START_ID
'End If
'...........

If Sheets("TEST").Range("B2").Value = 0 And Sheets("TEST").Range("R1").Value < 10 And Sheets("TEST").Range("R2").Value + 2 > Date Then
    Worksheets("PHIEU NHAP").Visible = True
    Worksheets("PHIEU NHAP").Activate
ElseIf Sheets("TEST").Range("B2").Value > 0 And Sheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("PHIEU NHAP").Visible = True
    Worksheets("PHIEU NHAP").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

Application.ScreenUpdating = True
End Sub
Sub PHIEUXUAT()
Application.ScreenUpdating = False

'If Sheets("TEST").Range("R3").Value = 1 Then
'Call START_ID
'End If
'...........

If Sheets("TEST").Range("B2").Value = 0 And Sheets("TEST").Range("R1").Value < 10 And Sheets("TEST").Range("R2").Value + 2 > Date Then
        If Sheets("SETTING").Range("H28").Value = 1 Then
        Worksheets("PHIEU XUAT").Visible = True
        Worksheets("PHIEU XUAT").Activate
    Else
        Worksheets("PHIEU XUAT2").Visible = True
        Worksheets("PHIEU XUAT2").Activate
    End If
ElseIf Sheets("TEST").Range("B2").Value > 0 And Sheets("TEST").Range("B1").Value >= 1 Then
        If Sheets("SETTING").Range("H28").Value = 1 Then
        Worksheets("PHIEU XUAT").Visible = True
        Worksheets("PHIEU XUAT").Activate
    Else
        Worksheets("PHIEU XUAT2").Visible = True
        Worksheets("PHIEU XUAT2").Activate
    End If
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub

Sub PHIEUTTOAN()

Application.ScreenUpdating = False
'If Sheets("TEST").Range("R3").Value = 1 Then
'Call START_ID
'End If
'...........

If Worksheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("PHIEU T.TOAN").Visible = True
    Worksheets("PHIEU T.TOAN").Activate
    
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub
Sub THANHTOAN()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("THANH TOAN").Visible = True
Worksheets("THANH TOAN").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub XUATKHO()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("XUAT KHO").Visible = True
Worksheets("XUAT KHO").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub NHAPKHO()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("NHAP HANG").Visible = True
Worksheets("NHAP HANG").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub NXT()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("NXT").Visible = True
Worksheets("NXT").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub THEKHO2()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("THE-KHO").Visible = True
Worksheets("THE-KHO").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub

Sub CONGNO()
If Worksheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("CONG NO").Visible = True
    Worksheets("CONG NO").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub CHITIET()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("CHI TIET").Visible = True
Worksheets("CHI TIET").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub

Sub KHOANTHU()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("KHOANTHU").Visible = True
Worksheets("KHOANTHU").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub KHOANCHI()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("KHOANCHI").Visible = True
Worksheets("KHOANCHI").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub



Sub DOANH_THU()
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen

            Worksheets("DOANH THU").Visible = True
            Worksheets("DOANH THU").Activate

Else
        Worksheets("TEST").Visible = True
        Worksheets("TEST").Activate
End If

End Sub
Sub NCC()
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
Worksheets("NCC").Visible = True
Worksheets("NCC").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub






Sub BAO_CAO()
'If Sheets("TEST").Range("R3").Value = 1 Then
'Call START_ID
'End If
'...........

If Sheets("TEST").Range("B2").Value = 0 And Sheets("TEST").Range("R1").Value < 10 And Sheets("TEST").Range("R2").Value + 2 > Date Then
    Worksheets("BC").Visible = True
    Worksheets("BC").Activate

ElseIf Sheets("TEST").Range("B2").Value > 0 And Sheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("BC").Visible = True
    Worksheets("BC").Activate

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

Application.ScreenUpdating = True
End Sub



Sub PN()
Application.EnableEvents = True
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    Worksheets("PN").Visible = True
    Worksheets("PN").Activate

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub
Sub PX()
Application.EnableEvents = True
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    If Sheets("SETTING").Range("H28").Value = 1 Then
        Worksheets("PX").Visible = True
        Worksheets("PX").Activate
    Else
        Worksheets("PX2").Visible = True
        Worksheets("PX2").Activate
    End If
    
    

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub

Sub THIET_LAP()
Application.EnableEvents = True
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    Worksheets("THIET LAP").Visible = True
    Worksheets("THIET LAP").Activate

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub


Sub NHATKY_MUABAN()
Application.EnableEvents = True
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    Worksheets("NHATKY_MUABAN").Visible = True
    Worksheets("NHATKY_MUABAN").Activate

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub

Sub HUONGDAN_SD()

    Worksheets("HUONGDAN_SD").Visible = True
    Worksheets("HUONGDAN_SD").Activate


End Sub

Sub NV()

    Worksheets("NV").Visible = True
    Worksheets("NV").Activate


End Sub

Sub DANHMUC()


If Sheets("TEST").Range("B2").Value = 0 And Sheets("TEST").Range("R1").Value < 10 And Sheets("TEST").Range("R2").Value + 2 > Date Then
    Worksheets("DANHMUC").Visible = True
    Worksheets("DANHMUC").Activate

ElseIf Sheets("TEST").Range("B2").Value > 0 And Sheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("DANHMUC").Visible = True
    Worksheets("DANHMUC").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If



End Sub
Sub FORM_THUCHI()
If Worksheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("FORM THUCHI").Visible = True
    Worksheets("FORM THUCHI").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub FORM()

    Worksheets("FORM").Visible = True
    Worksheets("FORM").Activate


End Sub
Sub TONGHOP_THUCHI()

    Worksheets("TONGHOP").Visible = True
    Worksheets("TONGHOP").Activate


End Sub
Sub CHITIET_THUCHI()

    Worksheets("CHITIET_THUCHI").Visible = True
    Worksheets("CHITIET_THUCHI").Activate


End Sub
Sub SOQUY()

    Worksheets("SOQUY").Visible = True
    Worksheets("SOQUY").Activate


End Sub

Sub INPT()
Application.EnableEvents = True

    Worksheets("IN PT").Visible = True
    Worksheets("IN PT").Activate

End Sub
Sub INPC()
Application.EnableEvents = True

    Worksheets("IN PC").Visible = True
    Worksheets("IN PC").Activate

End Sub
Sub INTT()
Application.EnableEvents = True

    Worksheets("IN TT").Visible = True
    Worksheets("IN TT").Activate

End Sub
Sub THONGBAO()
Worksheets("THONGBAO").Visible = True
Worksheets("THONGBAO").Activate
End Sub

Sub SETTING()
Application.EnableEvents = True
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    Worksheets("SETTING").Visible = True
    Worksheets("SETTING").Activate

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub

Sub HOME()

Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    Worksheets("HOME").Visible = True
    Worksheets("HOME").Activate

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub
Sub TT_KHACH()
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    Worksheets("KH").Visible = True
    Worksheets("KH").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub

Sub TT_SP()
If Worksheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("T.T SAN PHAM").Visible = True
    Worksheets("T.T SAN PHAM").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub PHIEUNHAP()

Application.ScreenUpdating = False
'If Sheets("TEST").Range("R3").Value = 1 Then
'Call START_ID
'End If
'...........

If Sheets("TEST").Range("B2").Value = 0 And Sheets("TEST").Range("R1").Value < 10 And Sheets("TEST").Range("R2").Value + 2 > Date Then
    Worksheets("PHIEU NHAP").Visible = True
    Worksheets("PHIEU NHAP").Activate
ElseIf Sheets("TEST").Range("B2").Value > 0 And Sheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("PHIEU NHAP").Visible = True
    Worksheets("PHIEU NHAP").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

Application.ScreenUpdating = True
End Sub
Sub PHIEUXUAT()
Application.ScreenUpdating = False

'If Sheets("TEST").Range("R3").Value = 1 Then
'Call START_ID
'End If
'...........

If Sheets("TEST").Range("B2").Value = 0 And Sheets("TEST").Range("R1").Value < 10 And Sheets("TEST").Range("R2").Value + 2 > Date Then
        If Sheets("SETTING").Range("H28").Value = 1 Then
        Worksheets("PHIEU XUAT").Visible = True
        Worksheets("PHIEU XUAT").Activate
    Else
        Worksheets("PHIEU XUAT2").Visible = True
        Worksheets("PHIEU XUAT2").Activate
    End If
ElseIf Sheets("TEST").Range("B2").Value > 0 And Sheets("TEST").Range("B1").Value >= 1 Then
        If Sheets("SETTING").Range("H28").Value = 1 Then
        Worksheets("PHIEU XUAT").Visible = True
        Worksheets("PHIEU XUAT").Activate
    Else
        Worksheets("PHIEU XUAT2").Visible = True
        Worksheets("PHIEU XUAT2").Activate
    End If
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub

Sub PHIEUTTOAN()

Application.ScreenUpdating = False
'If Sheets("TEST").Range("R3").Value = 1 Then
'Call START_ID
'End If
'...........

If Worksheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("PHIEU T.TOAN").Visible = True
    Worksheets("PHIEU T.TOAN").Activate
    
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub
Sub THANHTOAN()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("THANH TOAN").Visible = True
Worksheets("THANH TOAN").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub XUATKHO()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("XUAT KHO").Visible = True
Worksheets("XUAT KHO").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub NHAPKHO()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("NHAP HANG").Visible = True
Worksheets("NHAP HANG").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub NXT()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("NXT").Visible = True
Worksheets("NXT").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub THEKHO2()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("THE-KHO").Visible = True
Worksheets("THE-KHO").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub

Sub CONGNO()
If Worksheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("CONG NO").Visible = True
    Worksheets("CONG NO").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub CHITIET()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("CHI TIET").Visible = True
Worksheets("CHI TIET").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub

Sub KHOANTHU()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("KHOANTHU").Visible = True
Worksheets("KHOANTHU").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub KHOANCHI()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("KHOANCHI").Visible = True
Worksheets("KHOANCHI").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub



Sub DOANH_THU()
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen

            Worksheets("DOANH THU").Visible = True
            Worksheets("DOANH THU").Activate

Else
        Worksheets("TEST").Visible = True
        Worksheets("TEST").Activate
End If

End Sub
Sub NCC()
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
Worksheets("NCC").Visible = True
Worksheets("NCC").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub






Sub BAO_CAO()
'If Sheets("TEST").Range("R3").Value = 1 Then
'Call START_ID
'End If
'...........

If Sheets("TEST").Range("B2").Value = 0 And Sheets("TEST").Range("R1").Value < 10 And Sheets("TEST").Range("R2").Value + 2 > Date Then
    Worksheets("BC").Visible = True
    Worksheets("BC").Activate

ElseIf Sheets("TEST").Range("B2").Value > 0 And Sheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("BC").Visible = True
    Worksheets("BC").Activate

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

Application.ScreenUpdating = True
End Sub



Sub PN()
Application.EnableEvents = True
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    Worksheets("PN").Visible = True
    Worksheets("PN").Activate

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub
Sub PX()
Application.EnableEvents = True
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    If Sheets("SETTING").Range("H28").Value = 1 Then
        Worksheets("PX").Visible = True
        Worksheets("PX").Activate
    Else
        Worksheets("PX2").Visible = True
        Worksheets("PX2").Activate
    End If
    
    

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub

Sub THIET_LAP()
Application.EnableEvents = True
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    Worksheets("THIET LAP").Visible = True
    Worksheets("THIET LAP").Activate

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub


Sub NHATKY_MUABAN()
Application.EnableEvents = True
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    Worksheets("NHATKY_MUABAN").Visible = True
    Worksheets("NHATKY_MUABAN").Activate

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub

Sub HUONGDAN_SD()

    Worksheets("HUONGDAN_SD").Visible = True
    Worksheets("HUONGDAN_SD").Activate


End Sub

Sub NV()

    Worksheets("NV").Visible = True
    Worksheets("NV").Activate


End Sub

Sub DANHMUC()


If Sheets("TEST").Range("B2").Value = 0 And Sheets("TEST").Range("R1").Value < 10 And Sheets("TEST").Range("R2").Value + 2 > Date Then
    Worksheets("DANHMUC").Visible = True
    Worksheets("DANHMUC").Activate

ElseIf Sheets("TEST").Range("B2").Value > 0 And Sheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("DANHMUC").Visible = True
    Worksheets("DANHMUC").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If



End Sub
Sub FORM_THUCHI()
If Worksheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("FORM THUCHI").Visible = True
    Worksheets("FORM THUCHI").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub FORM()

    Worksheets("FORM").Visible = True
    Worksheets("FORM").Activate


End Sub
Sub TONGHOP_THUCHI()

    Worksheets("TONGHOP").Visible = True
    Worksheets("TONGHOP").Activate


End Sub
Sub CHITIET_THUCHI()

    Worksheets("CHITIET_THUCHI").Visible = True
    Worksheets("CHITIET_THUCHI").Activate


End Sub
Sub SOQUY()

    Worksheets("SOQUY").Visible = True
    Worksheets("SOQUY").Activate


End Sub

Sub INPT()
Application.EnableEvents = True

    Worksheets("IN PT").Visible = True
    Worksheets("IN PT").Activate

End Sub
Sub INPC()
Application.EnableEvents = True

    Worksheets("IN PC").Visible = True
    Worksheets("IN PC").Activate

End Sub
Sub INTT()
Application.EnableEvents = True

    Worksheets("IN TT").Visible = True
    Worksheets("IN TT").Activate

End Sub
Sub THONGBAO()
Worksheets("THONGBAO").Visible = True
Worksheets("THONGBAO").Activate
End Sub
 
1 mớ code cùi à ... nhưng mạnh làm cho coi thui chứ đừng bào giờ liên hệ với mình mất công
Câu trả lời duy nhất là ko bao giờ giúp làm cái tầm bạy ... mấy hào bạc vụn mang tiếng ra
Mã:
Sub SETTING()
Application.EnableEvents = True
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    Worksheets("SETTING").Visible = True
    Worksheets("SETTING").Activate

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub

Sub HOME()

Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    Worksheets("HOME").Visible = True
    Worksheets("HOME").Activate

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub
Sub TT_KHACH()
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    Worksheets("KH").Visible = True
    Worksheets("KH").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub

Sub TT_SP()
If Worksheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("T.T SAN PHAM").Visible = True
    Worksheets("T.T SAN PHAM").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub PHIEUNHAP()

Application.ScreenUpdating = False
'If Sheets("TEST").Range("R3").Value = 1 Then
'Call START_ID
'End If
'...........

If Sheets("TEST").Range("B2").Value = 0 And Sheets("TEST").Range("R1").Value < 10 And Sheets("TEST").Range("R2").Value + 2 > Date Then
    Worksheets("PHIEU NHAP").Visible = True
    Worksheets("PHIEU NHAP").Activate
ElseIf Sheets("TEST").Range("B2").Value > 0 And Sheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("PHIEU NHAP").Visible = True
    Worksheets("PHIEU NHAP").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

Application.ScreenUpdating = True
End Sub
Sub PHIEUXUAT()
Application.ScreenUpdating = False

'If Sheets("TEST").Range("R3").Value = 1 Then
'Call START_ID
'End If
'...........

If Sheets("TEST").Range("B2").Value = 0 And Sheets("TEST").Range("R1").Value < 10 And Sheets("TEST").Range("R2").Value + 2 > Date Then
        If Sheets("SETTING").Range("H28").Value = 1 Then
        Worksheets("PHIEU XUAT").Visible = True
        Worksheets("PHIEU XUAT").Activate
    Else
        Worksheets("PHIEU XUAT2").Visible = True
        Worksheets("PHIEU XUAT2").Activate
    End If
ElseIf Sheets("TEST").Range("B2").Value > 0 And Sheets("TEST").Range("B1").Value >= 1 Then
        If Sheets("SETTING").Range("H28").Value = 1 Then
        Worksheets("PHIEU XUAT").Visible = True
        Worksheets("PHIEU XUAT").Activate
    Else
        Worksheets("PHIEU XUAT2").Visible = True
        Worksheets("PHIEU XUAT2").Activate
    End If
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub

Sub PHIEUTTOAN()

Application.ScreenUpdating = False
'If Sheets("TEST").Range("R3").Value = 1 Then
'Call START_ID
'End If
'...........

If Worksheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("PHIEU T.TOAN").Visible = True
    Worksheets("PHIEU T.TOAN").Activate
   
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub
Sub THANHTOAN()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("THANH TOAN").Visible = True
Worksheets("THANH TOAN").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub XUATKHO()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("XUAT KHO").Visible = True
Worksheets("XUAT KHO").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub NHAPKHO()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("NHAP HANG").Visible = True
Worksheets("NHAP HANG").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub NXT()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("NXT").Visible = True
Worksheets("NXT").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub THEKHO2()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("THE-KHO").Visible = True
Worksheets("THE-KHO").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub

Sub CONGNO()
If Worksheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("CONG NO").Visible = True
    Worksheets("CONG NO").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub CHITIET()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("CHI TIET").Visible = True
Worksheets("CHI TIET").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub

Sub KHOANTHU()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("KHOANTHU").Visible = True
Worksheets("KHOANTHU").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub KHOANCHI()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("KHOANCHI").Visible = True
Worksheets("KHOANCHI").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub



Sub DOANH_THU()
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen

            Worksheets("DOANH THU").Visible = True
            Worksheets("DOANH THU").Activate

Else
        Worksheets("TEST").Visible = True
        Worksheets("TEST").Activate
End If

End Sub
Sub NCC()
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
Worksheets("NCC").Visible = True
Worksheets("NCC").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub






Sub BAO_CAO()
'If Sheets("TEST").Range("R3").Value = 1 Then
'Call START_ID
'End If
'...........

If Sheets("TEST").Range("B2").Value = 0 And Sheets("TEST").Range("R1").Value < 10 And Sheets("TEST").Range("R2").Value + 2 > Date Then
    Worksheets("BC").Visible = True
    Worksheets("BC").Activate

ElseIf Sheets("TEST").Range("B2").Value > 0 And Sheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("BC").Visible = True
    Worksheets("BC").Activate

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

Application.ScreenUpdating = True
End Sub



Sub PN()
Application.EnableEvents = True
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    Worksheets("PN").Visible = True
    Worksheets("PN").Activate

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub
Sub PX()
Application.EnableEvents = True
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    If Sheets("SETTING").Range("H28").Value = 1 Then
        Worksheets("PX").Visible = True
        Worksheets("PX").Activate
    Else
        Worksheets("PX2").Visible = True
        Worksheets("PX2").Activate
    End If
   
   

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub

Sub THIET_LAP()
Application.EnableEvents = True
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    Worksheets("THIET LAP").Visible = True
    Worksheets("THIET LAP").Activate

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub


Sub NHATKY_MUABAN()
Application.EnableEvents = True
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    Worksheets("NHATKY_MUABAN").Visible = True
    Worksheets("NHATKY_MUABAN").Activate

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub

Sub HUONGDAN_SD()

    Worksheets("HUONGDAN_SD").Visible = True
    Worksheets("HUONGDAN_SD").Activate


End Sub

Sub NV()

    Worksheets("NV").Visible = True
    Worksheets("NV").Activate


End Sub

Sub DANHMUC()


If Sheets("TEST").Range("B2").Value = 0 And Sheets("TEST").Range("R1").Value < 10 And Sheets("TEST").Range("R2").Value + 2 > Date Then
    Worksheets("DANHMUC").Visible = True
    Worksheets("DANHMUC").Activate

ElseIf Sheets("TEST").Range("B2").Value > 0 And Sheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("DANHMUC").Visible = True
    Worksheets("DANHMUC").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If



End Sub
Sub FORM_THUCHI()
If Worksheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("FORM THUCHI").Visible = True
    Worksheets("FORM THUCHI").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub FORM()

    Worksheets("FORM").Visible = True
    Worksheets("FORM").Activate


End Sub
Sub TONGHOP_THUCHI()

    Worksheets("TONGHOP").Visible = True
    Worksheets("TONGHOP").Activate


End Sub
Sub CHITIET_THUCHI()

    Worksheets("CHITIET_THUCHI").Visible = True
    Worksheets("CHITIET_THUCHI").Activate


End Sub
Sub SOQUY()

    Worksheets("SOQUY").Visible = True
    Worksheets("SOQUY").Activate


End Sub

Sub INPT()
Application.EnableEvents = True

    Worksheets("IN PT").Visible = True
    Worksheets("IN PT").Activate

End Sub
Sub INPC()
Application.EnableEvents = True

    Worksheets("IN PC").Visible = True
    Worksheets("IN PC").Activate

End Sub
Sub INTT()
Application.EnableEvents = True

    Worksheets("IN TT").Visible = True
    Worksheets("IN TT").Activate

End Sub
Sub THONGBAO()
Worksheets("THONGBAO").Visible = True
Worksheets("THONGBAO").Activate
End Sub
Bài đã được tự động gộp:

coi thông tin nè
Mã:
Sub SETTING()
Application.EnableEvents = True
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    Worksheets("SETTING").Visible = True
    Worksheets("SETTING").Activate

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub

Sub HOME()

Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    Worksheets("HOME").Visible = True
    Worksheets("HOME").Activate

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub
Sub TT_KHACH()
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    Worksheets("KH").Visible = True
    Worksheets("KH").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub

Sub TT_SP()
If Worksheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("T.T SAN PHAM").Visible = True
    Worksheets("T.T SAN PHAM").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub PHIEUNHAP()

Application.ScreenUpdating = False
'If Sheets("TEST").Range("R3").Value = 1 Then
'Call START_ID
'End If
'...........

If Sheets("TEST").Range("B2").Value = 0 And Sheets("TEST").Range("R1").Value < 10 And Sheets("TEST").Range("R2").Value + 2 > Date Then
    Worksheets("PHIEU NHAP").Visible = True
    Worksheets("PHIEU NHAP").Activate
ElseIf Sheets("TEST").Range("B2").Value > 0 And Sheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("PHIEU NHAP").Visible = True
    Worksheets("PHIEU NHAP").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

Application.ScreenUpdating = True
End Sub
Sub PHIEUXUAT()
Application.ScreenUpdating = False

'If Sheets("TEST").Range("R3").Value = 1 Then
'Call START_ID
'End If
'...........

If Sheets("TEST").Range("B2").Value = 0 And Sheets("TEST").Range("R1").Value < 10 And Sheets("TEST").Range("R2").Value + 2 > Date Then
        If Sheets("SETTING").Range("H28").Value = 1 Then
        Worksheets("PHIEU XUAT").Visible = True
        Worksheets("PHIEU XUAT").Activate
    Else
        Worksheets("PHIEU XUAT2").Visible = True
        Worksheets("PHIEU XUAT2").Activate
    End If
ElseIf Sheets("TEST").Range("B2").Value > 0 And Sheets("TEST").Range("B1").Value >= 1 Then
        If Sheets("SETTING").Range("H28").Value = 1 Then
        Worksheets("PHIEU XUAT").Visible = True
        Worksheets("PHIEU XUAT").Activate
    Else
        Worksheets("PHIEU XUAT2").Visible = True
        Worksheets("PHIEU XUAT2").Activate
    End If
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub

Sub PHIEUTTOAN()

Application.ScreenUpdating = False
'If Sheets("TEST").Range("R3").Value = 1 Then
'Call START_ID
'End If
'...........

If Worksheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("PHIEU T.TOAN").Visible = True
    Worksheets("PHIEU T.TOAN").Activate
   
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub
Sub THANHTOAN()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("THANH TOAN").Visible = True
Worksheets("THANH TOAN").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub XUATKHO()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("XUAT KHO").Visible = True
Worksheets("XUAT KHO").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub NHAPKHO()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("NHAP HANG").Visible = True
Worksheets("NHAP HANG").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub NXT()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("NXT").Visible = True
Worksheets("NXT").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub THEKHO2()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("THE-KHO").Visible = True
Worksheets("THE-KHO").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub

Sub CONGNO()
If Worksheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("CONG NO").Visible = True
    Worksheets("CONG NO").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub CHITIET()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("CHI TIET").Visible = True
Worksheets("CHI TIET").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub

Sub KHOANTHU()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("KHOANTHU").Visible = True
Worksheets("KHOANTHU").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub KHOANCHI()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("KHOANCHI").Visible = True
Worksheets("KHOANCHI").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub



Sub DOANH_THU()
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen

            Worksheets("DOANH THU").Visible = True
            Worksheets("DOANH THU").Activate

Else
        Worksheets("TEST").Visible = True
        Worksheets("TEST").Activate
End If

End Sub
Sub NCC()
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
Worksheets("NCC").Visible = True
Worksheets("NCC").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub






Sub BAO_CAO()
'If Sheets("TEST").Range("R3").Value = 1 Then
'Call START_ID
'End If
'...........

If Sheets("TEST").Range("B2").Value = 0 And Sheets("TEST").Range("R1").Value < 10 And Sheets("TEST").Range("R2").Value + 2 > Date Then
    Worksheets("BC").Visible = True
    Worksheets("BC").Activate

ElseIf Sheets("TEST").Range("B2").Value > 0 And Sheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("BC").Visible = True
    Worksheets("BC").Activate

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

Application.ScreenUpdating = True
End Sub



Sub PN()
Application.EnableEvents = True
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    Worksheets("PN").Visible = True
    Worksheets("PN").Activate

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub
Sub PX()
Application.EnableEvents = True
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    If Sheets("SETTING").Range("H28").Value = 1 Then
        Worksheets("PX").Visible = True
        Worksheets("PX").Activate
    Else
        Worksheets("PX2").Visible = True
        Worksheets("PX2").Activate
    End If
   
   

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub

Sub THIET_LAP()
Application.EnableEvents = True
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    Worksheets("THIET LAP").Visible = True
    Worksheets("THIET LAP").Activate

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub


Sub NHATKY_MUABAN()
Application.EnableEvents = True
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    Worksheets("NHATKY_MUABAN").Visible = True
    Worksheets("NHATKY_MUABAN").Activate

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub

Sub HUONGDAN_SD()

    Worksheets("HUONGDAN_SD").Visible = True
    Worksheets("HUONGDAN_SD").Activate


End Sub

Sub NV()

    Worksheets("NV").Visible = True
    Worksheets("NV").Activate


End Sub

Sub DANHMUC()


If Sheets("TEST").Range("B2").Value = 0 And Sheets("TEST").Range("R1").Value < 10 And Sheets("TEST").Range("R2").Value + 2 > Date Then
    Worksheets("DANHMUC").Visible = True
    Worksheets("DANHMUC").Activate

ElseIf Sheets("TEST").Range("B2").Value > 0 And Sheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("DANHMUC").Visible = True
    Worksheets("DANHMUC").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If



End Sub
Sub FORM_THUCHI()
If Worksheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("FORM THUCHI").Visible = True
    Worksheets("FORM THUCHI").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub FORM()

    Worksheets("FORM").Visible = True
    Worksheets("FORM").Activate


End Sub
Sub TONGHOP_THUCHI()

    Worksheets("TONGHOP").Visible = True
    Worksheets("TONGHOP").Activate


End Sub
Sub CHITIET_THUCHI()

    Worksheets("CHITIET_THUCHI").Visible = True
    Worksheets("CHITIET_THUCHI").Activate


End Sub
Sub SOQUY()

    Worksheets("SOQUY").Visible = True
    Worksheets("SOQUY").Activate


End Sub

Sub INPT()
Application.EnableEvents = True

    Worksheets("IN PT").Visible = True
    Worksheets("IN PT").Activate

End Sub
Sub INPC()
Application.EnableEvents = True

    Worksheets("IN PC").Visible = True
    Worksheets("IN PC").Activate

End Sub
Sub INTT()
Application.EnableEvents = True

    Worksheets("IN TT").Visible = True
    Worksheets("IN TT").Activate

End Sub
Sub THONGBAO()
Worksheets("THONGBAO").Visible = True
Worksheets("THONGBAO").Activate
End Sub

Sub SETTING()
Application.EnableEvents = True
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    Worksheets("SETTING").Visible = True
    Worksheets("SETTING").Activate

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub

Sub HOME()

Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    Worksheets("HOME").Visible = True
    Worksheets("HOME").Activate

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub
Sub TT_KHACH()
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    Worksheets("KH").Visible = True
    Worksheets("KH").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub

Sub TT_SP()
If Worksheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("T.T SAN PHAM").Visible = True
    Worksheets("T.T SAN PHAM").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub PHIEUNHAP()

Application.ScreenUpdating = False
'If Sheets("TEST").Range("R3").Value = 1 Then
'Call START_ID
'End If
'...........

If Sheets("TEST").Range("B2").Value = 0 And Sheets("TEST").Range("R1").Value < 10 And Sheets("TEST").Range("R2").Value + 2 > Date Then
    Worksheets("PHIEU NHAP").Visible = True
    Worksheets("PHIEU NHAP").Activate
ElseIf Sheets("TEST").Range("B2").Value > 0 And Sheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("PHIEU NHAP").Visible = True
    Worksheets("PHIEU NHAP").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

Application.ScreenUpdating = True
End Sub
Sub PHIEUXUAT()
Application.ScreenUpdating = False

'If Sheets("TEST").Range("R3").Value = 1 Then
'Call START_ID
'End If
'...........

If Sheets("TEST").Range("B2").Value = 0 And Sheets("TEST").Range("R1").Value < 10 And Sheets("TEST").Range("R2").Value + 2 > Date Then
        If Sheets("SETTING").Range("H28").Value = 1 Then
        Worksheets("PHIEU XUAT").Visible = True
        Worksheets("PHIEU XUAT").Activate
    Else
        Worksheets("PHIEU XUAT2").Visible = True
        Worksheets("PHIEU XUAT2").Activate
    End If
ElseIf Sheets("TEST").Range("B2").Value > 0 And Sheets("TEST").Range("B1").Value >= 1 Then
        If Sheets("SETTING").Range("H28").Value = 1 Then
        Worksheets("PHIEU XUAT").Visible = True
        Worksheets("PHIEU XUAT").Activate
    Else
        Worksheets("PHIEU XUAT2").Visible = True
        Worksheets("PHIEU XUAT2").Activate
    End If
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub

Sub PHIEUTTOAN()

Application.ScreenUpdating = False
'If Sheets("TEST").Range("R3").Value = 1 Then
'Call START_ID
'End If
'...........

If Worksheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("PHIEU T.TOAN").Visible = True
    Worksheets("PHIEU T.TOAN").Activate
   
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub
Sub THANHTOAN()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("THANH TOAN").Visible = True
Worksheets("THANH TOAN").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub XUATKHO()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("XUAT KHO").Visible = True
Worksheets("XUAT KHO").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub NHAPKHO()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("NHAP HANG").Visible = True
Worksheets("NHAP HANG").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub NXT()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("NXT").Visible = True
Worksheets("NXT").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub THEKHO2()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("THE-KHO").Visible = True
Worksheets("THE-KHO").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub

Sub CONGNO()
If Worksheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("CONG NO").Visible = True
    Worksheets("CONG NO").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub CHITIET()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("CHI TIET").Visible = True
Worksheets("CHI TIET").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub

Sub KHOANTHU()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("KHOANTHU").Visible = True
Worksheets("KHOANTHU").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub KHOANCHI()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("KHOANCHI").Visible = True
Worksheets("KHOANCHI").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub



Sub DOANH_THU()
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen

            Worksheets("DOANH THU").Visible = True
            Worksheets("DOANH THU").Activate

Else
        Worksheets("TEST").Visible = True
        Worksheets("TEST").Activate
End If

End Sub
Sub NCC()
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
Worksheets("NCC").Visible = True
Worksheets("NCC").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub






Sub BAO_CAO()
'If Sheets("TEST").Range("R3").Value = 1 Then
'Call START_ID
'End If
'...........

If Sheets("TEST").Range("B2").Value = 0 And Sheets("TEST").Range("R1").Value < 10 And Sheets("TEST").Range("R2").Value + 2 > Date Then
    Worksheets("BC").Visible = True
    Worksheets("BC").Activate

ElseIf Sheets("TEST").Range("B2").Value > 0 And Sheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("BC").Visible = True
    Worksheets("BC").Activate

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

Application.ScreenUpdating = True
End Sub



Sub PN()
Application.EnableEvents = True
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    Worksheets("PN").Visible = True
    Worksheets("PN").Activate

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub
Sub PX()
Application.EnableEvents = True
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    If Sheets("SETTING").Range("H28").Value = 1 Then
        Worksheets("PX").Visible = True
        Worksheets("PX").Activate
    Else
        Worksheets("PX2").Visible = True
        Worksheets("PX2").Activate
    End If
   
   

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub

Sub THIET_LAP()
Application.EnableEvents = True
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    Worksheets("THIET LAP").Visible = True
    Worksheets("THIET LAP").Activate

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub


Sub NHATKY_MUABAN()
Application.EnableEvents = True
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    Worksheets("NHATKY_MUABAN").Visible = True
    Worksheets("NHATKY_MUABAN").Activate

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub

Sub HUONGDAN_SD()

    Worksheets("HUONGDAN_SD").Visible = True
    Worksheets("HUONGDAN_SD").Activate


End Sub

Sub NV()

    Worksheets("NV").Visible = True
    Worksheets("NV").Activate


End Sub

Sub DANHMUC()


If Sheets("TEST").Range("B2").Value = 0 And Sheets("TEST").Range("R1").Value < 10 And Sheets("TEST").Range("R2").Value + 2 > Date Then
    Worksheets("DANHMUC").Visible = True
    Worksheets("DANHMUC").Activate

ElseIf Sheets("TEST").Range("B2").Value > 0 And Sheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("DANHMUC").Visible = True
    Worksheets("DANHMUC").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If



End Sub
Sub FORM_THUCHI()
If Worksheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("FORM THUCHI").Visible = True
    Worksheets("FORM THUCHI").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub FORM()

    Worksheets("FORM").Visible = True
    Worksheets("FORM").Activate


End Sub
Sub TONGHOP_THUCHI()

    Worksheets("TONGHOP").Visible = True
    Worksheets("TONGHOP").Activate


End Sub
Sub CHITIET_THUCHI()

    Worksheets("CHITIET_THUCHI").Visible = True
    Worksheets("CHITIET_THUCHI").Activate


End Sub
Sub SOQUY()

    Worksheets("SOQUY").Visible = True
    Worksheets("SOQUY").Activate


End Sub

Sub INPT()
Application.EnableEvents = True

    Worksheets("IN PT").Visible = True
    Worksheets("IN PT").Activate

End Sub
Sub INPC()
Application.EnableEvents = True

    Worksheets("IN PC").Visible = True
    Worksheets("IN PC").Activate

End Sub
Sub INTT()
Application.EnableEvents = True

    Worksheets("IN TT").Visible = True
    Worksheets("IN TT").Activate

End Sub
Sub THONGBAO()
Worksheets("THONGBAO").Visible = True
Worksheets("THONGBAO").Activate
End Sub
Thanks Ban! Mình không có ý gì khác ngoài việc cần do nhu cầu. Mong các bạn giúp đỡ về thông tin tác giả hoặc cách mở cũng được !!! thanks all!!!!
 
Cảm ơn Ban! Mình không có ý gì khác ngoài việc cần do nhu cầu. Mong các bạn giúp đỡ về thông tin tác giả hoặc cách mở cũng được !!! Cảm ơn all!!!!
Thông tin tác giả thì có trong File, muốn thì cứ liên hệ.
Còn muốn 1 cái cho riêng mình thì tự thiết kế 1 File, nêu những cái cần làm và nhờ trợ giúp trên diễn đàn có nhiều thành viên còn làm những cái còn hay hơn File bài 1.
 
Thông tin tác giả thì có trong File, muốn thì cứ liên hệ.
Còn muốn 1 cái cho riêng mình thì tự thiết kế 1 File, nêu những cái cần làm và nhờ trợ giúp trên diễn đàn có nhiều thành viên còn làm những cái còn hay hơn File bài 1.

Thanks Bạn ! một số thì không liên lạc được. Một số thì một cụ già sử dụng. Bảo số này tôi mới đăng ký. Đây là thông tin mình chia sẽ thật!. các bạn cứ kiểm tra !. Mình đã cố rất nhiều cách từ zalo, face book, 1080 tìm địa chỉ nhưng không khả thi.

Mình đang cần một PM kiểu như thế. để theo dõi. nếu bạn có cho mình xin giúp ! thanks!

Nhưng dù sao cũng cảm ơn bạn !
 
1 mớ code cùi à ... nhưng mạnh làm cho coi thui chứ đừng bào giờ liên hệ với mình mất công
Câu trả lời duy nhất là ko bao giờ giúp làm cái tầm bạy ... mấy hào bạc vụn mang tiếng ra
Mã:
Sub SETTING()
Application.EnableEvents = True
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    Worksheets("SETTING").Visible = True
    Worksheets("SETTING").Activate

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub

Sub HOME()

Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    Worksheets("HOME").Visible = True
    Worksheets("HOME").Activate

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub
Sub TT_KHACH()
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    Worksheets("KH").Visible = True
    Worksheets("KH").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub

Sub TT_SP()
If Worksheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("T.T SAN PHAM").Visible = True
    Worksheets("T.T SAN PHAM").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub PHIEUNHAP()

Application.ScreenUpdating = False
'If Sheets("TEST").Range("R3").Value = 1 Then
'Call START_ID
'End If
'...........

If Sheets("TEST").Range("B2").Value = 0 And Sheets("TEST").Range("R1").Value < 10 And Sheets("TEST").Range("R2").Value + 2 > Date Then
    Worksheets("PHIEU NHAP").Visible = True
    Worksheets("PHIEU NHAP").Activate
ElseIf Sheets("TEST").Range("B2").Value > 0 And Sheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("PHIEU NHAP").Visible = True
    Worksheets("PHIEU NHAP").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

Application.ScreenUpdating = True
End Sub
Sub PHIEUXUAT()
Application.ScreenUpdating = False

'If Sheets("TEST").Range("R3").Value = 1 Then
'Call START_ID
'End If
'...........

If Sheets("TEST").Range("B2").Value = 0 And Sheets("TEST").Range("R1").Value < 10 And Sheets("TEST").Range("R2").Value + 2 > Date Then
        If Sheets("SETTING").Range("H28").Value = 1 Then
        Worksheets("PHIEU XUAT").Visible = True
        Worksheets("PHIEU XUAT").Activate
    Else
        Worksheets("PHIEU XUAT2").Visible = True
        Worksheets("PHIEU XUAT2").Activate
    End If
ElseIf Sheets("TEST").Range("B2").Value > 0 And Sheets("TEST").Range("B1").Value >= 1 Then
        If Sheets("SETTING").Range("H28").Value = 1 Then
        Worksheets("PHIEU XUAT").Visible = True
        Worksheets("PHIEU XUAT").Activate
    Else
        Worksheets("PHIEU XUAT2").Visible = True
        Worksheets("PHIEU XUAT2").Activate
    End If
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub

Sub PHIEUTTOAN()

Application.ScreenUpdating = False
'If Sheets("TEST").Range("R3").Value = 1 Then
'Call START_ID
'End If
'...........

If Worksheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("PHIEU T.TOAN").Visible = True
    Worksheets("PHIEU T.TOAN").Activate
   
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub
Sub THANHTOAN()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("THANH TOAN").Visible = True
Worksheets("THANH TOAN").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub XUATKHO()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("XUAT KHO").Visible = True
Worksheets("XUAT KHO").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub NHAPKHO()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("NHAP HANG").Visible = True
Worksheets("NHAP HANG").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub NXT()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("NXT").Visible = True
Worksheets("NXT").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub THEKHO2()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("THE-KHO").Visible = True
Worksheets("THE-KHO").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub

Sub CONGNO()
If Worksheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("CONG NO").Visible = True
    Worksheets("CONG NO").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub CHITIET()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("CHI TIET").Visible = True
Worksheets("CHI TIET").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub

Sub KHOANTHU()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("KHOANTHU").Visible = True
Worksheets("KHOANTHU").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub KHOANCHI()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("KHOANCHI").Visible = True
Worksheets("KHOANCHI").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub



Sub DOANH_THU()
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen

            Worksheets("DOANH THU").Visible = True
            Worksheets("DOANH THU").Activate

Else
        Worksheets("TEST").Visible = True
        Worksheets("TEST").Activate
End If

End Sub
Sub NCC()
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
Worksheets("NCC").Visible = True
Worksheets("NCC").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub






Sub BAO_CAO()
'If Sheets("TEST").Range("R3").Value = 1 Then
'Call START_ID
'End If
'...........

If Sheets("TEST").Range("B2").Value = 0 And Sheets("TEST").Range("R1").Value < 10 And Sheets("TEST").Range("R2").Value + 2 > Date Then
    Worksheets("BC").Visible = True
    Worksheets("BC").Activate

ElseIf Sheets("TEST").Range("B2").Value > 0 And Sheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("BC").Visible = True
    Worksheets("BC").Activate

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

Application.ScreenUpdating = True
End Sub



Sub PN()
Application.EnableEvents = True
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    Worksheets("PN").Visible = True
    Worksheets("PN").Activate

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub
Sub PX()
Application.EnableEvents = True
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    If Sheets("SETTING").Range("H28").Value = 1 Then
        Worksheets("PX").Visible = True
        Worksheets("PX").Activate
    Else
        Worksheets("PX2").Visible = True
        Worksheets("PX2").Activate
    End If
   
   

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub

Sub THIET_LAP()
Application.EnableEvents = True
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    Worksheets("THIET LAP").Visible = True
    Worksheets("THIET LAP").Activate

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub


Sub NHATKY_MUABAN()
Application.EnableEvents = True
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    Worksheets("NHATKY_MUABAN").Visible = True
    Worksheets("NHATKY_MUABAN").Activate

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub

Sub HUONGDAN_SD()

    Worksheets("HUONGDAN_SD").Visible = True
    Worksheets("HUONGDAN_SD").Activate


End Sub

Sub NV()

    Worksheets("NV").Visible = True
    Worksheets("NV").Activate


End Sub

Sub DANHMUC()


If Sheets("TEST").Range("B2").Value = 0 And Sheets("TEST").Range("R1").Value < 10 And Sheets("TEST").Range("R2").Value + 2 > Date Then
    Worksheets("DANHMUC").Visible = True
    Worksheets("DANHMUC").Activate

ElseIf Sheets("TEST").Range("B2").Value > 0 And Sheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("DANHMUC").Visible = True
    Worksheets("DANHMUC").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If



End Sub
Sub FORM_THUCHI()
If Worksheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("FORM THUCHI").Visible = True
    Worksheets("FORM THUCHI").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub FORM()

    Worksheets("FORM").Visible = True
    Worksheets("FORM").Activate


End Sub
Sub TONGHOP_THUCHI()

    Worksheets("TONGHOP").Visible = True
    Worksheets("TONGHOP").Activate


End Sub
Sub CHITIET_THUCHI()

    Worksheets("CHITIET_THUCHI").Visible = True
    Worksheets("CHITIET_THUCHI").Activate


End Sub
Sub SOQUY()

    Worksheets("SOQUY").Visible = True
    Worksheets("SOQUY").Activate


End Sub

Sub INPT()
Application.EnableEvents = True

    Worksheets("IN PT").Visible = True
    Worksheets("IN PT").Activate

End Sub
Sub INPC()
Application.EnableEvents = True

    Worksheets("IN PC").Visible = True
    Worksheets("IN PC").Activate

End Sub
Sub INTT()
Application.EnableEvents = True

    Worksheets("IN TT").Visible = True
    Worksheets("IN TT").Activate

End Sub
Sub THONGBAO()
Worksheets("THONGBAO").Visible = True
Worksheets("THONGBAO").Activate
End Sub
Bài đã được tự động gộp:

coi thông tin nè
Mã:
Sub SETTING()
Application.EnableEvents = True
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    Worksheets("SETTING").Visible = True
    Worksheets("SETTING").Activate

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub

Sub HOME()

Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    Worksheets("HOME").Visible = True
    Worksheets("HOME").Activate

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub
Sub TT_KHACH()
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    Worksheets("KH").Visible = True
    Worksheets("KH").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub

Sub TT_SP()
If Worksheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("T.T SAN PHAM").Visible = True
    Worksheets("T.T SAN PHAM").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub PHIEUNHAP()

Application.ScreenUpdating = False
'If Sheets("TEST").Range("R3").Value = 1 Then
'Call START_ID
'End If
'...........

If Sheets("TEST").Range("B2").Value = 0 And Sheets("TEST").Range("R1").Value < 10 And Sheets("TEST").Range("R2").Value + 2 > Date Then
    Worksheets("PHIEU NHAP").Visible = True
    Worksheets("PHIEU NHAP").Activate
ElseIf Sheets("TEST").Range("B2").Value > 0 And Sheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("PHIEU NHAP").Visible = True
    Worksheets("PHIEU NHAP").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

Application.ScreenUpdating = True
End Sub
Sub PHIEUXUAT()
Application.ScreenUpdating = False

'If Sheets("TEST").Range("R3").Value = 1 Then
'Call START_ID
'End If
'...........

If Sheets("TEST").Range("B2").Value = 0 And Sheets("TEST").Range("R1").Value < 10 And Sheets("TEST").Range("R2").Value + 2 > Date Then
        If Sheets("SETTING").Range("H28").Value = 1 Then
        Worksheets("PHIEU XUAT").Visible = True
        Worksheets("PHIEU XUAT").Activate
    Else
        Worksheets("PHIEU XUAT2").Visible = True
        Worksheets("PHIEU XUAT2").Activate
    End If
ElseIf Sheets("TEST").Range("B2").Value > 0 And Sheets("TEST").Range("B1").Value >= 1 Then
        If Sheets("SETTING").Range("H28").Value = 1 Then
        Worksheets("PHIEU XUAT").Visible = True
        Worksheets("PHIEU XUAT").Activate
    Else
        Worksheets("PHIEU XUAT2").Visible = True
        Worksheets("PHIEU XUAT2").Activate
    End If
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub

Sub PHIEUTTOAN()

Application.ScreenUpdating = False
'If Sheets("TEST").Range("R3").Value = 1 Then
'Call START_ID
'End If
'...........

If Worksheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("PHIEU T.TOAN").Visible = True
    Worksheets("PHIEU T.TOAN").Activate
   
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub
Sub THANHTOAN()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("THANH TOAN").Visible = True
Worksheets("THANH TOAN").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub XUATKHO()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("XUAT KHO").Visible = True
Worksheets("XUAT KHO").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub NHAPKHO()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("NHAP HANG").Visible = True
Worksheets("NHAP HANG").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub NXT()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("NXT").Visible = True
Worksheets("NXT").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub THEKHO2()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("THE-KHO").Visible = True
Worksheets("THE-KHO").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub

Sub CONGNO()
If Worksheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("CONG NO").Visible = True
    Worksheets("CONG NO").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub CHITIET()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("CHI TIET").Visible = True
Worksheets("CHI TIET").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub

Sub KHOANTHU()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("KHOANTHU").Visible = True
Worksheets("KHOANTHU").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub KHOANCHI()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("KHOANCHI").Visible = True
Worksheets("KHOANCHI").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub



Sub DOANH_THU()
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen

            Worksheets("DOANH THU").Visible = True
            Worksheets("DOANH THU").Activate

Else
        Worksheets("TEST").Visible = True
        Worksheets("TEST").Activate
End If

End Sub
Sub NCC()
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
Worksheets("NCC").Visible = True
Worksheets("NCC").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub






Sub BAO_CAO()
'If Sheets("TEST").Range("R3").Value = 1 Then
'Call START_ID
'End If
'...........

If Sheets("TEST").Range("B2").Value = 0 And Sheets("TEST").Range("R1").Value < 10 And Sheets("TEST").Range("R2").Value + 2 > Date Then
    Worksheets("BC").Visible = True
    Worksheets("BC").Activate

ElseIf Sheets("TEST").Range("B2").Value > 0 And Sheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("BC").Visible = True
    Worksheets("BC").Activate

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

Application.ScreenUpdating = True
End Sub



Sub PN()
Application.EnableEvents = True
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    Worksheets("PN").Visible = True
    Worksheets("PN").Activate

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub
Sub PX()
Application.EnableEvents = True
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    If Sheets("SETTING").Range("H28").Value = 1 Then
        Worksheets("PX").Visible = True
        Worksheets("PX").Activate
    Else
        Worksheets("PX2").Visible = True
        Worksheets("PX2").Activate
    End If
   
   

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub

Sub THIET_LAP()
Application.EnableEvents = True
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    Worksheets("THIET LAP").Visible = True
    Worksheets("THIET LAP").Activate

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub


Sub NHATKY_MUABAN()
Application.EnableEvents = True
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    Worksheets("NHATKY_MUABAN").Visible = True
    Worksheets("NHATKY_MUABAN").Activate

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub

Sub HUONGDAN_SD()

    Worksheets("HUONGDAN_SD").Visible = True
    Worksheets("HUONGDAN_SD").Activate


End Sub

Sub NV()

    Worksheets("NV").Visible = True
    Worksheets("NV").Activate


End Sub

Sub DANHMUC()


If Sheets("TEST").Range("B2").Value = 0 And Sheets("TEST").Range("R1").Value < 10 And Sheets("TEST").Range("R2").Value + 2 > Date Then
    Worksheets("DANHMUC").Visible = True
    Worksheets("DANHMUC").Activate

ElseIf Sheets("TEST").Range("B2").Value > 0 And Sheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("DANHMUC").Visible = True
    Worksheets("DANHMUC").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If



End Sub
Sub FORM_THUCHI()
If Worksheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("FORM THUCHI").Visible = True
    Worksheets("FORM THUCHI").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub FORM()

    Worksheets("FORM").Visible = True
    Worksheets("FORM").Activate


End Sub
Sub TONGHOP_THUCHI()

    Worksheets("TONGHOP").Visible = True
    Worksheets("TONGHOP").Activate


End Sub
Sub CHITIET_THUCHI()

    Worksheets("CHITIET_THUCHI").Visible = True
    Worksheets("CHITIET_THUCHI").Activate


End Sub
Sub SOQUY()

    Worksheets("SOQUY").Visible = True
    Worksheets("SOQUY").Activate


End Sub

Sub INPT()
Application.EnableEvents = True

    Worksheets("IN PT").Visible = True
    Worksheets("IN PT").Activate

End Sub
Sub INPC()
Application.EnableEvents = True

    Worksheets("IN PC").Visible = True
    Worksheets("IN PC").Activate

End Sub
Sub INTT()
Application.EnableEvents = True

    Worksheets("IN TT").Visible = True
    Worksheets("IN TT").Activate

End Sub
Sub THONGBAO()
Worksheets("THONGBAO").Visible = True
Worksheets("THONGBAO").Activate
End Sub

Sub SETTING()
Application.EnableEvents = True
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    Worksheets("SETTING").Visible = True
    Worksheets("SETTING").Activate

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub

Sub HOME()

Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    Worksheets("HOME").Visible = True
    Worksheets("HOME").Activate

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub
Sub TT_KHACH()
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    Worksheets("KH").Visible = True
    Worksheets("KH").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub

Sub TT_SP()
If Worksheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("T.T SAN PHAM").Visible = True
    Worksheets("T.T SAN PHAM").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub PHIEUNHAP()

Application.ScreenUpdating = False
'If Sheets("TEST").Range("R3").Value = 1 Then
'Call START_ID
'End If
'...........

If Sheets("TEST").Range("B2").Value = 0 And Sheets("TEST").Range("R1").Value < 10 And Sheets("TEST").Range("R2").Value + 2 > Date Then
    Worksheets("PHIEU NHAP").Visible = True
    Worksheets("PHIEU NHAP").Activate
ElseIf Sheets("TEST").Range("B2").Value > 0 And Sheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("PHIEU NHAP").Visible = True
    Worksheets("PHIEU NHAP").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

Application.ScreenUpdating = True
End Sub
Sub PHIEUXUAT()
Application.ScreenUpdating = False

'If Sheets("TEST").Range("R3").Value = 1 Then
'Call START_ID
'End If
'...........

If Sheets("TEST").Range("B2").Value = 0 And Sheets("TEST").Range("R1").Value < 10 And Sheets("TEST").Range("R2").Value + 2 > Date Then
        If Sheets("SETTING").Range("H28").Value = 1 Then
        Worksheets("PHIEU XUAT").Visible = True
        Worksheets("PHIEU XUAT").Activate
    Else
        Worksheets("PHIEU XUAT2").Visible = True
        Worksheets("PHIEU XUAT2").Activate
    End If
ElseIf Sheets("TEST").Range("B2").Value > 0 And Sheets("TEST").Range("B1").Value >= 1 Then
        If Sheets("SETTING").Range("H28").Value = 1 Then
        Worksheets("PHIEU XUAT").Visible = True
        Worksheets("PHIEU XUAT").Activate
    Else
        Worksheets("PHIEU XUAT2").Visible = True
        Worksheets("PHIEU XUAT2").Activate
    End If
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub

Sub PHIEUTTOAN()

Application.ScreenUpdating = False
'If Sheets("TEST").Range("R3").Value = 1 Then
'Call START_ID
'End If
'...........

If Worksheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("PHIEU T.TOAN").Visible = True
    Worksheets("PHIEU T.TOAN").Activate
   
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub
Sub THANHTOAN()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("THANH TOAN").Visible = True
Worksheets("THANH TOAN").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub XUATKHO()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("XUAT KHO").Visible = True
Worksheets("XUAT KHO").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub NHAPKHO()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("NHAP HANG").Visible = True
Worksheets("NHAP HANG").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub NXT()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("NXT").Visible = True
Worksheets("NXT").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub THEKHO2()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("THE-KHO").Visible = True
Worksheets("THE-KHO").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub

Sub CONGNO()
If Worksheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("CONG NO").Visible = True
    Worksheets("CONG NO").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub CHITIET()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("CHI TIET").Visible = True
Worksheets("CHI TIET").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub

Sub KHOANTHU()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("KHOANTHU").Visible = True
Worksheets("KHOANTHU").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub KHOANCHI()
If Worksheets("TEST").Range("B1").Value >= 1 Then
Worksheets("KHOANCHI").Visible = True
Worksheets("KHOANCHI").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub



Sub DOANH_THU()
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen

            Worksheets("DOANH THU").Visible = True
            Worksheets("DOANH THU").Activate

Else
        Worksheets("TEST").Visible = True
        Worksheets("TEST").Activate
End If

End Sub
Sub NCC()
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
Worksheets("NCC").Visible = True
Worksheets("NCC").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub






Sub BAO_CAO()
'If Sheets("TEST").Range("R3").Value = 1 Then
'Call START_ID
'End If
'...........

If Sheets("TEST").Range("B2").Value = 0 And Sheets("TEST").Range("R1").Value < 10 And Sheets("TEST").Range("R2").Value + 2 > Date Then
    Worksheets("BC").Visible = True
    Worksheets("BC").Activate

ElseIf Sheets("TEST").Range("B2").Value > 0 And Sheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("BC").Visible = True
    Worksheets("BC").Activate

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

Application.ScreenUpdating = True
End Sub



Sub PN()
Application.EnableEvents = True
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    Worksheets("PN").Visible = True
    Worksheets("PN").Activate

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub
Sub PX()
Application.EnableEvents = True
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    If Sheets("SETTING").Range("H28").Value = 1 Then
        Worksheets("PX").Visible = True
        Worksheets("PX").Activate
    Else
        Worksheets("PX2").Visible = True
        Worksheets("PX2").Activate
    End If
   
   

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub

Sub THIET_LAP()
Application.EnableEvents = True
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    Worksheets("THIET LAP").Visible = True
    Worksheets("THIET LAP").Activate

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub


Sub NHATKY_MUABAN()
Application.EnableEvents = True
Application.ScreenUpdating = False
If Worksheets("TEST").Range("B1").Value >= 1 Then  'da dang ky ban quyen
    Worksheets("NHATKY_MUABAN").Visible = True
    Worksheets("NHATKY_MUABAN").Activate

Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If
Application.ScreenUpdating = True
End Sub

Sub HUONGDAN_SD()

    Worksheets("HUONGDAN_SD").Visible = True
    Worksheets("HUONGDAN_SD").Activate


End Sub

Sub NV()

    Worksheets("NV").Visible = True
    Worksheets("NV").Activate


End Sub

Sub DANHMUC()


If Sheets("TEST").Range("B2").Value = 0 And Sheets("TEST").Range("R1").Value < 10 And Sheets("TEST").Range("R2").Value + 2 > Date Then
    Worksheets("DANHMUC").Visible = True
    Worksheets("DANHMUC").Activate

ElseIf Sheets("TEST").Range("B2").Value > 0 And Sheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("DANHMUC").Visible = True
    Worksheets("DANHMUC").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If



End Sub
Sub FORM_THUCHI()
If Worksheets("TEST").Range("B1").Value >= 1 Then
    Worksheets("FORM THUCHI").Visible = True
    Worksheets("FORM THUCHI").Activate
Else
    Worksheets("TEST").Visible = True
    Worksheets("TEST").Activate
End If

End Sub
Sub FORM()

    Worksheets("FORM").Visible = True
    Worksheets("FORM").Activate


End Sub
Sub TONGHOP_THUCHI()

    Worksheets("TONGHOP").Visible = True
    Worksheets("TONGHOP").Activate


End Sub
Sub CHITIET_THUCHI()

    Worksheets("CHITIET_THUCHI").Visible = True
    Worksheets("CHITIET_THUCHI").Activate


End Sub
Sub SOQUY()

    Worksheets("SOQUY").Visible = True
    Worksheets("SOQUY").Activate


End Sub

Sub INPT()
Application.EnableEvents = True

    Worksheets("IN PT").Visible = True
    Worksheets("IN PT").Activate

End Sub
Sub INPC()
Application.EnableEvents = True

    Worksheets("IN PC").Visible = True
    Worksheets("IN PC").Activate

End Sub
Sub INTT()
Application.EnableEvents = True

    Worksheets("IN TT").Visible = True
    Worksheets("IN TT").Activate

End Sub
Sub THONGBAO()
Worksheets("THONGBAO").Visible = True
Worksheets("THONGBAO").Activate
End Sub
Hỗ trợ phá khóa hack, trong khi tác giả chưa đồng ý
Như thế này có vi phạm bản quyền không? có vi phạm nội quy diễn đàn không?
 
Web KT
Back
Top Bottom