Giải thích code trong *.xlt loại bỏ check thời gian sử dụng

[ngocanhwin]

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

 

[Hoàng Trọng Nghĩa]

Tôi nhớ bài này bạn đã hỏi ở đâu đó rồi, tuy nhiên, không có file nên mọi người không thể "bắt mạch" cho bạn được.

Vả lại, với tôi dù có file cũng không dám thử code của bạn vì các đoạn code dưới đây làm tôi nghĩ đến việc can thiệp vô hệ thống, nên đành để các cao thủ hướng dẫn cho bạn.

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")

 

[ngocanhwin]

Tôi nhớ bài này bạn đã hỏi ở đâu đó rồi, tuy nhiên, không có file nên mọi người không thể "bắt mạch" cho bạn được.

Vả lại, với tôi dù có file cũng không dám thử code của bạn vì các đoạn code dưới đây làm tôi nghĩ đến việc can thiệp vô hệ thống, nên đành để các cao thủ hướng dẫn cho bạn.

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")

Đúng đó bác nó có liên quan đến hệ thống, cách giải quyết là có thể bỏ em nó đi. Nhưng em thử xóa rồi và bị lỗi, tại vì cái này liên quan đến bản quyền nên em không dám gửi file lên sợ anh em sứt mẻ tình cảm.

 

[ngocanhwin]

Lại có cái code này:

'
'Mo cac database
'If Target.Address = "$N$8" Then
'If Target.Value = "" Then
'TT1.Visible = xlSheetVeryHidden
'TT2.Visible = xlSheetVeryHidden
'TT3.Visible = xlSheetVeryHidden
'TT4.Visible = xlSheetVeryHidden
'TT5.Visible = xlSheetVeryHidden
'TT6.Visible = xlSheetVeryHidden
'TT7.Visible = xlSheetVeryHidden
'End If

'If Target.Value = Range("N1").Value Then TT6.Visible = xlSheetVisible
'If Target.Value = Range("N2").Value Then TT1.Visible = xlSheetVisible
'If Target.Value = Range("N3").Value Then TT4.Visible = xlSheetVisible
'If Target.Value = Range("N4").Value Then TT2.Visible = xlSheetVisible
'If Target.Value = Range("N5").Value Then TT5.Visible = xlSheetVisible
'If Target.Value = Range("N6").Value Then TT3.Visible = xlSheetVisible
'If Target.Value = Range("N7").Value Then TT7.Visible = xlSheetVisible
'End If

Mong anh em nhiệt tình chỉ giáo (TT.. là các sheet bị ẩn)

 

[ptm0412]

Tôi nhớ bài này bạn đã hỏi ở đâu đó rồi, tuy nhiên, không có file nên mọi người không thể "bắt mạch" cho bạn được.

Vả lại, với tôi dù có file cũng không dám thử code của bạn vì các đoạn code dưới đây làm tôi nghĩ đến việc can thiệp vô hệ thống, nên đành để các cao thủ hướng dẫn cho bạn.

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")

Dừng đụng đến câu lệnh dính đến hệ thống thì thôi, đâu có sao. Đụng đến câu này thì OK:

Ngaysosanh = Val(Ngaybatdau) + Val(Songayhanche)

 

[vodoi2x]

Đúng đó bác nó có liên quan đến hệ thống, cách giải quyết là có thể bỏ em nó đi. Nhưng em thử xóa rồi và bị lỗi, tại vì cái này liên quan đến bản quyền nên em không dám gửi file lên sợ anh em sứt mẻ tình cảm.

Tưởng code của bạn, hóa ra không phải
Đã sợ sứt mẻ tình cảm, sao bạn còn đưa lên đây, bạn nhờ mọi người phá hoại cho ah?

liên quan đến bản quyền như vậy, thì ai giúp bạn là tiếp tay phá công sức của tác giả rui. Gần giống cr**k- Không đúng tinh thần GPE rui

Tốt nhất bạn liên hệ với tác giả file đó để đươc như ý

 

[ngocanhwin]

Tưởng code của bạn, hóa ra không phải
Đã sợ sứt mẻ tình cảm, sao bạn còn đưa lên đây, bạn nhờ mọi người phá hoại cho ah?

liên quan đến bản quyền như vậy, thì ai giúp bạn là tiếp tay phá công sức của tác giả rui. Gần giống cr**k- Không đúng tinh thần GPE rui

Tốt nhất bạn liên hệ với tác giả file đó để đươc như ý

Em đang nghiên cứu vụ này để tạo ra một cái cho riêng mình, nếu mà nghĩ đến Cr*** thì em đã gửi file lên nhờ các bác giải thích giúp rồi. Vả lại tác giả đã mã hóa file không vào đc VB nếu không có PASS. Em chỉ có một số code cơ bản muốn tạo riêng cho mình.
Tác giả không giúp cho nên phải nhờ đến GPE, bác ko giúp em thì thôi em quá hiểu để biết vấn đề.
Cảm ơn bác đã chỉ giáo.

 

[ngocanhwin]

Dừng đụng đến câu lệnh dính đến hệ thống thì thôi, đâu có sao. Đụng đến câu này thì OK:

Ngaysosanh = Val(Ngaybatdau) + Val(Songayhanche)

Bác giải thích cụ thể được không vậy?
Tks!

 

[ptm0412]

Bạn nói như từ đầu topic đến giờ làm tôi bỗng thấy mơ hồ:
- File hạn chế sử dụng bằng VBA, mà bạn lại có code VBA đưa lên. Tôi cho rằng file của bạn xin của ai đó và mã nguồn mở
- Bạn nói sợ mất lòng bạn bè, tôi lại cho rằng file có bản quyền
- Bạn lại nói VBA có pass và bạn vẫn đọc được code

Vậy tóm lại là gì? Tôi bây giờ lại phân vân không biết bạn có bẻ khóa VBA để lấy code ra không?

Nên tôi không thể nói rõ hơn nữa. Vả lại, câu code tôi trích ra đọc rõ như đọc câu văn tiếng Việt rồi.

 

[ngocanhwin]

Nói thật với bác là em kô thể nào liên hệ đc với tác giả, mà kiến thức có giới hận. Nên chỉ hỏi và tham khảo thôi, e đã giải quyết đc vấn đề rồi.
Cảm ơn các bác đã chia sẻ.

 

[phạm văn trình]

Bác ptm0412 cho hỏi thêm, cuối cùng đoạn code trên hoàn thiện là như thế nào. Các bác đã thương anh em kém thì bảo cho chót, lần sau xin sẽ tìm hiểu thêm, lần này khó quá. Cảm ơn nhiều