Kích thước file tăng đột biến

[nguoirung1234]

Em có tạo 1 file Excel trong đó có 1 form, trên form có 1 control MSFlexGrid. Khi lưu file thì kích thước file lên đến hàng chục MB. Cứ mỗi lần lưu file thì kích thước file lại tăng lên rất nhiều cho dù không có cập nhật gì cả. Em đã kiểm tra virus nhưng không phát hiện. Các file Excel khác trên máy cũng có form và macro không bị như vậy cho dù mở đồng thời với file trên. Em có gởi lên để các anh chị nghiên cứu.

 

[MrPi]

File nén bạn gửi có gì đâu! Bạn kiểm tra lại xem!

 

[ptm0412]

File nén bạn gửi có gì đâu! Bạn kiểm tra lại xem!

Đúng là không có gì, mà 16.5 Mb, sau khi mở lên và lưu lại, thì 33Mb. Bạn MrPi thử kiểm tra lại xem!
Nếu "có gì", mà 16.5 Mb thì bạn ấy đâu có hỏi?

 

[Hoàng Trọng Nghĩa]

Chẳng hiểu sao, Quả thật, File thì 1 sheet trống trơn, VBA chỉ 1 form mà mỗi lần lưu lại là tăng gấp đôi dung lượng!!! Có uẩn khúc gì đây nhỉ!

 

[MrPi]

Xin lỗi mọi người, MrPi không để ý vì Nguoirung123 bảo là mỗi lần lưu file là dung lượng tăng gấp đôi nhưng cái đó chỉ cần bỏ thuộc tính của file là xong thôi.
16Kb còn lại thì chắc chắn là phần file bị mã hóa bảo mật không thể xem trên Excel được đâu. Tất nhiên crack được nó không dễ chút nào. Nếu dễ thì còn gì là bảo mật nữa!

 

[MrPi]

Đây rồi, một phần nội dung của nó đây:

egin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1
ClientHeight = 4245
ClientLeft = 240
ClientTop = 630
ClientWidth = 5475
ShowModal = 0 'False
TypeInfoVer = 17
End

Exit Function
End If
End If
Next i
End Function
Function Tao_List_Lien_Tuc(Nguon As Range, Dich As Range) As String
Dim i As Integer, j As Integer, k As Integer, N As Integer, M As Integer, S As String, Dx As Integer
N = Nguon.Rows.Count: M = Dich.Rows.Count
Dx = Dich.Column - 2
Tao_List_Lien_Tuc = ""
For i = 0 To N - 1
If Nguon.Range("A1").Offset(i, 0).Value <> "" Then
S = Nguon.Range("A1").Offset(i, -Dx).Value + " (" + Nguon.Range("A1").Offset(i, 0).Value + ")"
For j = 0 To M - 1
If S = Dich.Range("A1").Offset(j, 0) Then Exit For
Next j
If j >= M Then
Tao_List_Lien_Tuc = S
Exit Function
End If
End If
Next i

 

[Hoàng Trọng Nghĩa]

Bởi vậy mới nói, Sau khi tôi thử xóa cái Form, save lại, còn đúng 25k!
Tks MrPi!

 

[MrPi]

Tôi chỉ biết loáng thoáng loại file này thôi. Những file được gửi từ các vùng an ninh (Zone) khác nhau hoặc không rõ ràng thì MS-Outlook và Windows (SP2 trở lên) mã hóa thành file dạng *:Zone.Identifier tránh trường hợp file đính kèm rootkit hoặc malware ...