ngocanhwin
Thành viên mới
- Tham gia
- 14/2/08
- Bài viết
- 21
- Được thích
- 0
Em có 1 file *.xlt trong file này có rất nhiều Sheet nhưng nó chỉ hiển thị 3 sheet, các sheet khác bị ẩn không biết cho nó hiện lên thế nào. Em vốn kiến thức kém, bác nào chỉ giáo cho em với.
File này chỉ tồn tại trên ID của từng máy 7 ngày, nếu không xác nhận thì nó tự xóa.
Bác nào giúp em loại bỏ check thời gian trong file này, em nghĩ code của nó đây:
Private Sub Workbook_Open()
On Error Resume Next
TT1.Visible = xlSheetVeryHidden
TT2.Visible = xlSheetVeryHidden
TT3.Visible = xlSheetVeryHidden
TT4.Visible = xlSheetVeryHidden
TT5.Visible = xlSheetVeryHidden
TT6.Visible = xlSheetVeryHidden
TT7.Visible = xlSheetVeryHidden
S4.Visible = xlSheetVeryHidden
'Tao doi tuong dich vu WMI
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
'Tim cac CPU
Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")
'Lap hien thi ID cua tung CPU
For Each objItem In colItems
ID_CPU = objItem.ProcessorId
Next
'=====
If S4.Range("C2").Value = "" Then
S4.Range("C2").Value = ID_CPU
S4.Range("C3").Value = 10000
S4.Range("C4").Value = Date * 1
End If
'=====
S4.Range("C5").Value = ID_CPU
If S4.Range("C2").Value <> S4.Range("C5").Value Then
S4.Range("C3").Value = 3
End If
'=====
Songayhanche = S4.Range("C3").Value
Ngaybatdau = S4.Range("C4").Value
'=====
'Bat dau so sanh. Neu qua han thi xoa file *.xlt
Ngayhientai = Date * 1 'Ngay hien tai
Ngaysosanh = Val(Ngaybatdau) + Val(Songayhanche) 'Gioi han su dung
If Ngayhientai >= Ngaysosanh Then
Application.DisplayAlerts = False
ThisWorkbook.ChangeFileAccess xlReadOnly
Kill ThisWorkbook.FullName
ThisWorkbook.Close False
Else
S2.Range("C8").Select
End If
End Sub
Em không hiểu đoạn code này bác nào giải thích giúp em hoặc chỉ cho em cách thay đổi, nói thì dài dòng lắm nếu bác nào ở Hoàng Mai thì cho em lĩnh hội nhé.
Cảm ơn các bác trước.
Email: ngocanhwin@gmail.com
File này chỉ tồn tại trên ID của từng máy 7 ngày, nếu không xác nhận thì nó tự xóa.
Bác nào giúp em loại bỏ check thời gian trong file này, em nghĩ code của nó đây:
Private Sub Workbook_Open()
On Error Resume Next
TT1.Visible = xlSheetVeryHidden
TT2.Visible = xlSheetVeryHidden
TT3.Visible = xlSheetVeryHidden
TT4.Visible = xlSheetVeryHidden
TT5.Visible = xlSheetVeryHidden
TT6.Visible = xlSheetVeryHidden
TT7.Visible = xlSheetVeryHidden
S4.Visible = xlSheetVeryHidden
'Tao doi tuong dich vu WMI
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
'Tim cac CPU
Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")
'Lap hien thi ID cua tung CPU
For Each objItem In colItems
ID_CPU = objItem.ProcessorId
Next
'=====
If S4.Range("C2").Value = "" Then
S4.Range("C2").Value = ID_CPU
S4.Range("C3").Value = 10000
S4.Range("C4").Value = Date * 1
End If
'=====
S4.Range("C5").Value = ID_CPU
If S4.Range("C2").Value <> S4.Range("C5").Value Then
S4.Range("C3").Value = 3
End If
'=====
Songayhanche = S4.Range("C3").Value
Ngaybatdau = S4.Range("C4").Value
'=====
'Bat dau so sanh. Neu qua han thi xoa file *.xlt
Ngayhientai = Date * 1 'Ngay hien tai
Ngaysosanh = Val(Ngaybatdau) + Val(Songayhanche) 'Gioi han su dung
If Ngayhientai >= Ngaysosanh Then
Application.DisplayAlerts = False
ThisWorkbook.ChangeFileAccess xlReadOnly
Kill ThisWorkbook.FullName
ThisWorkbook.Close False
Else
S2.Range("C8").Select
End If
End Sub
Em không hiểu đoạn code này bác nào giải thích giúp em hoặc chỉ cho em cách thay đổi, nói thì dài dòng lắm nếu bác nào ở Hoàng Mai thì cho em lĩnh hội nhé.
Cảm ơn các bác trước.
Email: ngocanhwin@gmail.com