- 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 đỡ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
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
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!
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