Có thể dùng vba để xóa vba đc không? (1 người xem)

quykiemsau · 21/10/12

Em chào các anh chị!
Có code nào có thể test 1 điều kiện nào đó để xóa toàn bộ vba trong file Excel được không ạ?
Cụ thể là
ô A1! của sheet 1! em đặt điều kiện hoặc =0 hoặc =1.
Khi Open file:
ô a1=1 thì file chạy bình thường.
Nếu A1=0 thì toàn bộ vba trong file bị xóa sạch.
Có được không ạ?

Quang_Hải · 21/10/12

QuỷKiếmSầu đã viết:
Em chào các anh chị!
Có code nào có thể test 1 điều kiện nào đó để xóa toàn bộ vba trong file Excel được không ạ?
Cụ thể là
ô A1! của sheet 1! em đặt điều kiện hoặc =0 hoặc =1.
Khi Open file:
ô a1=1 thì file chạy bình thường.
Nếu A1=0 thì toàn bộ vba trong file bị xóa sạch.
Có được không ạ?

Nếu bạn sử dụng Office 2007 thì đơn giản rồi, cứ viết code dạng ThisWorkbook.Saveas "Ten File", FileFormat:=51 thì file này sẽ có đuội là .xlsx >>> mất hết VBA trong file

ndu96081631 · 21/10/12

QuỷKiếmSầu đã viết:
Em chào các anh chị!
Có code nào có thể test 1 điều kiện nào đó để xóa toàn bộ vba trong file Excel được không ạ?
Cụ thể là
ô A1! của sheet 1! em đặt điều kiện hoặc =0 hoặc =1.
Khi Open file:
ô a1=1 thì file chạy bình thường.
Nếu A1=0 thì toàn bộ vba trong file bị xóa sạch.
Có được không ạ?

Xóa thì được rồi, nhưng file này sẽ chỉ hoạt động 1 lần duy nhất, xong chuyện nó trờ thành "thằng què" rồi còn gì
Bạn không cảm thấy "tiếc" những code đã viết sao? Trừ phi đó không phải là code của bạn và bạn đang có ý đồ phá hoại

quykiemsau · 22/10/12

ndu96081631 đã viết:
Xóa thì được rồi, nhưng file này sẽ chỉ hoạt động 1 lần duy nhất, xong chuyện nó trờ thành "thằng què" rồi còn gì
Bạn không cảm thấy "tiếc" những code đã viết sao? Trừ phi đó không phải là code của bạn và bạn đang có ý đồ phá hoại

Bác nói có quá lời không vậy?
Không biết thì hỏi thôi? Phải chẳng câu hỏi này là vi phạm nội quy của GPE?

Tôi thì chỉ có 1 mục đích cụ thể là là không muốn mở file này ở một máy khác hay là đường dẫn khác. Nếu mở ở đuwongf dãn khác thì điều kiện của ô A1 của tôi sẽ Check.
Sai thì như vậy đó. Còn đúng thì không sao.
Chỉ là như vậy thôi!
Chẳng lẽ nhìn cái tên đăng kí của Tôi Bác có đánh giá tôi như vậy sao?

ndu96081631 · 22/10/12

QuỷKiếmSầu đã viết:
=
Chẳng lẽ nhìn cái tên đăng kí của Tôi Bác có đánh giá tôi như vậy sao?

SAI!
Tôi nhìn việc không nhìn người
Code này đương nhiên làm được, nhưng vì nó chứa đựng mức độ nguy hại nhất định nên tôi phải hỏi cho rõ:
- Tại sao lại không cho mở file ở máy khác?
- Có phải vì bạn không muốn người khác "cướp" lấy tài sản của bạn?
Nghe thì cũng hợp lý. Nhưng nếu tài sản ấy của chính bạn, cũng tức code chứa trong file do bạn viết... Vậy bạn cũng thuộc dạng có trình độ rồi ---> Cứ search tìm sẽ có ngay thứ bạn muốn, chế biến tí xíu là xài được thôi
Tôi nói đúng chứ?

quykiemsau · 22/10/12

ndu96081631 đã viết:
SAI!
Tôi nhìn việc không nhìn người
Code này đương nhiên làm được, nhưng vì nó chứa đựng mức độ nguy hại nhất định nên tôi phải hỏi cho rõ:
- Tại sao lại không cho mở file ở máy khác?
- Có phải vì bạn không muốn người khác "cướp" lấy tài sản của bạn?
Nghe thì cũng hợp lý. Nhưng nếu tài sản ấy của chính bạn, cũng tức code chứa trong file do bạn viết... Vậy bạn cũng thuộc dạng có trình độ rồi ---> Cứ search tìm sẽ có ngay thứ bạn muốn, chế biến tí xíu là xài được thôi
Tôi nói đúng chứ?

Ôi! Trời ơi! -+*/

Đúng là bó tay với Bác!
Thanks you Bác! !$@!!

ndu96081631 đã viết:
- Tại sao lại không cho mở file ở máy khác?

Không cho mở ở máy khác là vì đó là file tính lương!
Nói về Lương thì đó là vấn đề tế nhị. (Tài sản = Cũng đúng ).
Nhưng mà về độ nguy hiểm thì làm gì đến mức như Bác nói!
Nếu đã có ý phá hoại thì thiếu gì cách đâu nhất thiết phải cần đến code này!
Em vẫn mong và đợi câu trả lời của Bác và mọi người!

Hong.Van · 22/10/12

1/

QuỷKiếmSầu đã viết:
Không cho mở ở máy khác là vì đó là file tính lương!

Kg cho mở máy khác thì dùng PW trước khi Open

Mặt khác, khi mở file mà người khác không Enable mà Disable thì không thể thấy nội dung trong file sao?

2/

QuỷKiếmSầu đã viết:
Nói về Lương thì đó là vấn đề tế nhị. (Tài sản = Cũng đúng ).

Nói về lương là nó thuộc bí mật, Nhưng nó không là TÀI SẢN
(Trong một cty, chỉ có ông GĐ, KTT và 1 người thừa hành là biết bảng lương toàn cty. Ba người này cứ tưởng chỉ có chúng ta là biết lương của từng người . ---> Nói với bạn đây là SAI LẦM LỚN)
3/

QuỷKiếmSầu đã viết:
Nhưng mà về độ nguy hiểm thì làm gì đến mức như Bác nói!

Không ai biết ý định của bạn, nên ngăn ngừa là chuyện bình thường

4/

QuỷKiếmSầu đã viết:
Nếu đã có ý phá hoại thì thiếu gì cách đâu nhất thiết phải cần đến code này!

Đây cũng là một cách!
-------------
Tóm lại cách nói của bạn KHÔNG THUYẾT PHỤC

quykiemsau · 22/10/12

Thôi nói gì đi chăng nữa thì tôi có cảm giác như diễn đàn này không chuộng thành viên mới lắm.
Nhất là với những cái Tên đăng kí Quái Quỷ như tôi !

Mục đích thì xấu hay đẹp là tùy ở bản tính con người
Nói thuyết phục hay không cũng không phải ai cũng nói được
Tất cả những gì tôi nói trong bài viết này là cũng đã có suy nghĩ lắm rồi.

Quang_Hải · 22/10/12

QuỷKiếmSầu đã viết:
Thôi nói gì đi chăng nữa thì tôi có cảm giác như diễn đàn này không chuộng thành viên mới lắm.
Nhất là với những cái Tên đăng kí Quái Quỷ như tôi !

Mục đích thì xấu hay đẹp là tùy ở bản tính con người
Nói thuyết phục hay không cũng không phải ai cũng nói được
Tất cả những gì tôi nói trong bài viết này là cũng đã có suy nghĩ lắm rồi.

Bạn đã biết viết code thì câu trả lời bài số 2 không thể giúp bạn giải quyết vấn đề hay sao?

ndu96081631 · 22/10/12

QuỷKiếmSầu đã viết:
Ôi! Trời ơi!
Đúng là bó tay với Bác!
Thanks you Bác!

Không cho mở ở máy khác là vì đó là file tính lương!
Nói về Lương thì đó là vấn đề tế nhị. (Tài sản = Cũng đúng ).
Nhưng mà về độ nguy hiểm thì làm gì đến mức như Bác nói!
Nếu đã có ý phá hoại thì thiếu gì cách đâu nhất thiết phải cần đến code này!
Em vẫn mong và đợi câu trả lời của Bác và mọi người!

Thế thì cho bạn cái "cần câu"

Mã:

Sub Test()
  With ThisWorkbook.VBProject
    .VBComponents.Remove .VBComponents("Module1")
  End With
End Sub

"câu cá" thế nào là tùy bạn nhé
----------------------------

QuỷKiếmSầu đã viết:
Thôi nói gì đi chăng nữa thì tôi có cảm giác như diễn đàn này không chuộng thành viên mới lắm.
Nhất là với những cái Tên đăng kí Quái Quỷ như tôi !

.

Không ai kỳ thị gì cả đâu bạn à! Diễn đàn này thiếu gì nick kỳ quái, có ai nói gì đâu
Chỉ là liên quan đến vấn đề nhạy cảm nên phải cẩn thận, nếu không sẽ có ngày người ta lại đổ thừa GPE dạy người ta chuyện tầm bậy tầm bạ!

quykiemsau · 22/10/12

quanghai1969 đã viết:
Bạn đã biết viết code thì câu trả lời bài số 2 không thể giúp bạn giải quyết vấn đề hay sao?

Tks Các Bác nhé!
Bài 2 sở dĩ em chưa áp dụng là bởi vì nghe đến SaveAs là Em cảm thấy chưa đc thoải mái bởi vì nếu làm vậy file mới xlsx sẽ mất code còn file cũ xlsb hay xls thì vẫn còn.
Có thể em nói sai vì em chưa hiểu
FileFormat:=51
là gì.

ndu96081631 · 22/10/12

QuỷKiếmSầu đã viết:
Tks Các Bác nhé!
Bài 2 sở dĩ em chưa áp dụng là bởi vì nghe đến SaveAs là Em cảm thấy chưa đc thoải mái bởi vì nếu làm vậy file mới xlsx sẽ mất code

Thì chính thế nên bác Hải mới để nghị bạn Save As
Ý là bạn tự mình viết code cho nó Save As thành xlsx, đồng thời xóa luôn file gốc ---> Nói chung là code nó làm, có phải bạn làm bằng tay đâu mà không thoải mái
Ẹc... Ẹc...

quykiemsau · 22/10/12

ndu96081631 đã viết:
Thì chính thế nên bác Hải mới để nghị bạn Save As
Ý là bạn tự mình viết code cho nó Save As thành xlsx, đồng thời xóa luôn file gốc ---> Nói chung là code nó làm, có phải bạn làm bằng tay đâu mà không thoải mái
Ẹc... Ẹc...

à! hóa ra dòng lệnh
FileFormat:=51
là xóa file gốc sao? hề hề.. không hiểu nên em mới chưa áp dụng...
Hay đấy! Tks các Bác!

ndu96081631 · 22/10/12

QuỷKiếmSầu đã viết:
à! hóa ra dòng lệnh
FileFormat:=51
là xóa file gốc sao? hề hề.. không hiểu nên em mới chưa áp dụng...
Hay đấy! Tks các Bác!

Hề... Hề... hổng phải
FileFormat:=51 <==> FileFormat:=xlOpenXMLWorkbook---> Cũng là thằng em XLSX

nghiaphuc · 22/10/12

QuỷKiếmSầu đã viết:
Tks Các Bác nhé!
Bài 2 sở dĩ em chưa áp dụng là bởi vì nghe đến SaveAs là Em cảm thấy chưa đc thoải mái bởi vì nếu làm vậy file mới xlsx sẽ mất code còn file cũ xlsb hay xls thì vẫn còn.
Có thể em nói sai vì em chưa hiểu
FileFormat:=51
là gì.

Bạn cứ vào cửa sổ VBE, gõ đâu đó cái này ThisWorkbook.SaveAs, bôi đen nội dung vừa gõ rồi nhấn F1, tại hàng mô tả về FileFormat, bạn sẽ nhìn thấy một danh mục XlFileFormat. Click vào đó là bạn có thể biết tất cả về mấy con số này thôi mà.
Còn câu lệnh xóa file thì chỉ là như vầy thôi mà: Kill "Đường dẫn\Tên file"

quykiemsau · 22/10/12

ndu96081631 đã viết:
Hề... Hề... hổng phải
FileFormat:=51 <==> FileFormat:=xlOpenXMLWorkbook---> Cũng là thằng em XLSX

Ủa quái! Em không thể không thắc mắc đc là vì!
SaveAs sang đuôi khác thì nó sẽ tạo thêm file!
Như vậy code sẽ tự xóa ở file mới... còn file gốc của nó nữa... vẫn nguyên phải không ạ?
Nếu mở tiếp file gốc nên mà vẫn giữ nguyên code saveas "Tên File" thì lại xếp đè file mới kia sao?
Có phải dùng FileFormat:=51 thì code savesAs sẽ thực hiện trên file gốc luôn không? (tất cả chỉ có 1 file)
Hix hơi loằng ngoằng Bác Hiểu ý em chứ!

nghiaphuc · 22/10/12

QuỷKiếmSầu đã viết:
Ủa quái! Em không thể không thắc mắc đc là vì!
SaveAs sang đuôi khác thì nó sẽ tạo thêm file!
Như vậy code sẽ tự xóa ở file mới... còn file gốc của nó nữa... vẫn nguyên phải không ạ?
Nếu mở tiếp file gốc nên mà vẫn giữ nguyên code saveas "Tên File" thì lại xếp đè file mới kia sao?
Có phải dùng FileFormat:=51 thì code savesAs sẽ thực hiện trên file gốc luôn không? (tất cả chỉ có 1 file)
Hix hơi loằng ngoằng Bác Hiểu ý em chứ!

Tóm lại là bạn cần làm 2 việc:
1. SaveAs file gốc thành file .xlsx (file mới sẽ không còn code nữa).
2. Xóa file gốc đi bằng lệnh Kill.

quykiemsau · 22/10/12

nghiaphuc đã viết:
Tóm lại là bạn cần làm 2 việc:
1. SaveAs file gốc thành file .xlsx (file mới sẽ không còn code nữa).
2. Xóa file gốc đi bằng lệnh Kill.

À đấy! phải thế chứ! thiếu việc 2! =))

Quang_Hải · 22/10/12

QuỷKiếmSầu đã viết:
À đấy! phải thế chứ! thiếu việc 2! =))

Cần gì phải đau khổ đến thế chứ, muốn xây thì khó chứ đập ra thì nhanh lắm

PHP:

Sub Xoa_Modules()
Dim x
    On Error Resume Next
    With ActiveWorkbook.VBProject
        For x = .VBComponents.Count To 1 Step -1
            .VBComponents.Remove .VBComponents(x)
        Next x
    End With
End Sub

Còn việc Saveas thì có thể dùng thêm dòng lệnh Application.displayalerts=False để lưu đè lên file gốc rồi mà, đâu cần phải xoá nữa
Nếu bạn biết viết code rồi thì cái này đơn giản mà

nghiaphuc · 22/10/12

quanghai1969 đã viết:
Còn việc Saveas thì có thể dùng thêm dòng lệnh Application.displayalerts=False để lưu đè lên file gốc rồi mà, đâu cần phải xoá nữa
Nếu bạn biết viết code rồi thì cái này đơn giản mà

Vấn đề là với mỗi loại file nó có phần mở rộng khác nhau mà anh. Chẳng hạn, file gốc là Test.xlsm, sau khi SaveAs thì nó thành Test.xlsx chứ nhỉ?!
Theo hướng làm ở trên thì em làm như vầy:

PHP:

Sub Test()
    Application.DisplayAlerts = False
    ThisWorkbook.SaveAs "C:\Test.xlsx", 51
    Application.DisplayAlerts = True
    Kill "C:\Test.xlsm"
End Sub

quykiemsau · 22/10/12

quanghai1969 đã viết:
Cần gì phải đau khổ đến thế chứ, muốn xây thì khó chứ đập ra thì nhanh lắm

PHP:

Sub Xoa_Modules() Dim x On Error Resume Next With ActiveWorkbook.VBProject For x = .VBComponents.Count To 1 Step -1 .VBComponents.Remove .VBComponents(x) Next x End With End Sub

Còn việc Saveas thì có thể dùng thêm dòng lệnh Application.displayalerts=False để lưu đè lên file gốc rồi mà, đâu cần phải xoá nữa
Nếu bạn biết viết code rồi thì cái này đơn giản mà

Ồ! Ngon.

.
Mà... Bác nói vậy chứ code em cũng biết viết gì đâu. Chỉ là biết mỗi cái copy và pase thêm 1 tý mô đi phê nữa... hehe!
Tks Bác!

siwtom · 23/10/12

QuỷKiếmSầu đã viết:
Ồ! Ngon. .

Bạn có chắc chắn là "ngon" 100% không?
Tôi hiểu "xóa toàn bộ vba" của bạn là xóa toàn bộ code trong VBA. Tôi hiểu đúng?
Bạn nên hiểu là xóa component và xóa code là 2 "cô nàng" khác nhau. Code của quanghai là xóa component.
Trong VBE ở bên nửa trái bạn có component, bên nửa phải bạn có code. Nếu component bị xóa thì dĩ nhiên code của nó cũng "cuốn theo chiều gió". Thế nếu component không bị xóa thì sao? Theo lôgíc thì code vẫn còn trơ trẽn nằm tơ hơ.
Code của quanghai không xóa Sheet1, 2, 3, ThisWorkbook, vậy nếu chúng có hằng hà sa số code thì những code này vẫn còn.
Vậy nếu bạn muốn xóa class module, module, userform, ..., code của Sheet1, 2, 3, ..., ThisWorkbook thì

Mã:

Sub DeleteAllCodes()
Dim x
    On Error Resume Next
    With ActiveWorkbook.VBProject
        For x = .VBComponents.Count To 1 Step -1
            If .VBComponents(x).Type <> 100 Then
                .VBComponents.Remove .VBComponents(x)
            Else
                With .VBComponents(x).CodeModule
                    .DeleteLines 1, .CountOfLines
                End With
            End If
        Next x
    End With
End Sub

Quang_Hải · 23/10/12

siwtom đã viết:
Bạn có chắc chắn là "ngon" 100% không?
Tôi hiểu "xóa toàn bộ vba" của bạn là xóa toàn bộ code trong VBA. Tôi hiểu đúng?
Bạn nên hiểu là xóa component và xóa code là 2 "cô nàng" khác nhau. Code của quanghai là xóa component.

Code cũng hơi độc hại nên em tính cất lại chút ít. Em viết thế này

PHP:

Sub Xoa_Code()
Dim x As Integer
    On Error Resume Next
    With ActiveWorkbook.VBProject
        For x = .VBComponents.Count To 1 Step -1
            .VBComponents(x).CodeModule.DeleteLines 1, _
            .VBComponents(x).CodeModule.CountOfLines
            .VBComponents.Remove .VBComponents(x)
        Next x
    End With
End Sub

quykiemsau · 23/10/12

Đúng rồi! Cám ơn Bác nhé!
Em cũng đang thắc mắc vấn đề này từ lúc code của Thầy Ndu cơ.
Thật ra đến thời điểm này Em cũng chưa test 1 trường hợp nào trong bài này cả.
Nên có post nên sợ các Bác bảo lười.
VBA thì có rất nhiều trong sheet như Bác nói, This wordbook nữa.
module,UserForm,class v.v...
Tóm lại là xóa sạch...
Cái này E sẽ thử nó!

Ếch Xanh · 23/10/12

quanghai1969 đã viết:
Anh ơi Code độc hại nên em không muốn up lên toàn bộ, chỉ sợ người dùng lạm dụng thôi
Em viết thế này:

PHP:

Sub Xoa_Code() Dim x As Integer On Error Resume Next With ActiveWorkbook.VBProject For x = .VBComponents.Count To 1 Step -1 .VBComponents(x).CodeModule.DeleteLines _ 1, .VBComponents(x).CodeModule.CountOfLines .VBComponents.Remove .VBComponents(x) Next x End With End Sub

Theo tôi nghĩ, code dạng này, theo tác giả là không cho xem code nên mới xóa, thì OK, nhưng nếu người ta không để chế độ tự động chạy macro (macro setting) thì cũng chẳng có gì xảy ra.

Mặt khác, nếu ta giấu code, đặt password cho VBA cũng không là vấn đề. Nếu người muốn thấy code của mình, tức là người đó cũng hiểu biết và thậm chí hiểu biết rất rõ về VBA thì không xóa được với họ đâu, họ không cho chạy macro, rồi họ bẻ khóa (diễn đàn nói nhiều về việc này), thì code cũng sẽ lộ ra ngay trước khi code xóa VBA thực hiện!

Nên tôi nghĩ hướng dẫn thì ta cứ hướng dẫn, chẳng ngại ngùng gì! Người không biết chẳng ai thèm quan tâm đến code, người quá hiểu biết thì có xóa, giấu, cũng không được, chỉ có giấu người dỡ dỡ ương ương thôi.

ndu96081631 · 23/10/12

Ếch Xanh đã viết:
Nên tôi nghĩ hướng dẫn thì ta cứ hướng dẫn, chẳng ngại ngùng gì! Người không biết chẳng ai thèm quan tâm đến code, người quá hiểu biết thì có xóa, giấu, cũng không được, chỉ có giấu người dỡ dỡ ương ương thôi.

Ác cái là những thành phần "hơi hơi biết" lại thích phá hoại
Tóm lại: Thà không biết thì thôi, biết càng nhiều cũng càng tốt... Còn "dỡ dỡ ương ương" thường lại hay thích làm những chuyện.. "ương ương dỡ dỡ".
Nói cho cùng, mấy "trò chơi" này chẳng được tích sự gì đối với người mới học VBA ---> Dành thời gian nghiên cứu cái khác tốt hơn

quykiemsau · 23/10/12

siwtom đã viết:
Bạn có chắc chắn là "ngon" 100% không?
Tôi hiểu "xóa toàn bộ vba" của bạn là xóa toàn bộ code trong VBA. Tôi hiểu đúng?
Bạn nên hiểu là xóa component và xóa code là 2 "cô nàng" khác nhau. Code của quanghai là xóa component.
Trong VBE ở bên nửa trái bạn có component, bên nửa phải bạn có code. Nếu component bị xóa thì dĩ nhiên code của nó cũng "cuốn theo chiều gió". Thế nếu component không bị xóa thì sao? Theo lôgíc thì code vẫn còn trơ trẽn nằm tơ hơ.
Code của quanghai không xóa Sheet1, 2, 3, ThisWorkbook, vậy nếu chúng có hằng hà sa số code thì những code này vẫn còn.
Vậy nếu bạn muốn xóa class module, module, userform, ..., code của Sheet1, 2, 3, ..., ThisWorkbook thì

Mã:

Sub DeleteAllCodes() Dim x On Error Resume Next With ActiveWorkbook.VBProject For x = .VBComponents.Count To 1 Step -1 If .VBComponents(x).Type <> 100 Then .VBComponents.Remove .VBComponents(x) Else With .VBComponents(x).CodeModule .DeleteLines 1, .CountOfLines End With End If Next x End With End Sub

Tks Bác Nhiêù!
Nhưng Có lẽ chưa fai là Ngon 100% Bác àh!
Nêú pássword VBA thì code trên cũng không có tác dụng phải không ạ?
Có cách nào Remove cả páss vba rôì mơí xóa tât cả không?

siwtom · 23/10/12

QuỷKiếmSầu đã viết:
Tks Bác Nhiêù!
Nhưng Có lẽ chưa fai là Ngon 100% Bác àh!
Nêú pássword VBA thì code trên cũng không có tác dụng phải không ạ?
Có cách nào Remove cả páss vba rôì mơí xóa tât cả không?

Bạn ạ,
Bạn nói code của bạn nên bạn muốn dấu. Bây giờ bạn lại nói là nó có password. Vậy thì code của bạn hay của người khác? Của bạn thì đâu cần bẻ cái gì? Tôi biết cũng không chỉ cho bạn.
Trong bối cảnh này nếu bạn có vụng chèo khéo chống là "để học hỏi" thì tôi cũng không tin
Mà code có password hay không thì nó vẫn chạy chớ sao lại không?

dongducnhiem · 23/10/12

QuỷKiếmSầu đã viết:
Nêú pássword VBA thì code trên cũng không có tác dụng phải không ạ?
Có cách nào Remove cả páss vba rôì mơí xóa tât cả không?

Tôi thấy bài #7 của Hong.Van phân tích đúng bản chất.

quykiemsau · 23/10/12

siwtom đã viết:
Bạn ạ,
Bạn nói code của bạn nên bạn muốn dấu. Bây giờ bạn lại nói là nó có password. Vậy thì code của bạn hay của người khác? Của bạn thì đâu cần bẻ cái gì? Tôi biết cũng không chỉ cho bạn.
Trong bối cảnh này nếu bạn có vụng chèo khéo chống là "để học hỏi" thì tôi cũng không tin
Mà code có password hay không thì nó vẫn chạy chớ sao lại không?

Ôi! Bác hiêủ lâm y Em rôì!
Nêú là file của ngươì khác khi đătj pás vba thj sao mjnh có thêr chèn code đó vào đc hả Bác.
Chỉ có file của mình và mình biêts pás thi moi chèn dc code vào chu'.
Vi du em tao 1 file co vba va trong do co code xoa toàn bô nay! Nhung khi Em dat páss thi code xoa toan bo se vô dụng.
Ý E là vây? Chú khéo chôngs gì dâu!
Bác nghi có dúng không ạ! Có lẽ Bác vôi trả loi quá! hic!

siwtom · 23/10/12

QuỷKiếmSầu đã viết:
Ôi! Bác hiêủ lâm y Em rôì!
Nêú là file của ngươì khác khi đătj pás vba thj sao mjnh có thêr chèn code đó vào đc hả Bác.
Chỉ có file của mình và mình biêts pás thi moi chèn dc code vào chu'.
Vi du em tao 1 file co vba va trong do co code xoa toàn bô nay! Nhung khi Em dat páss thi code xoa toan bo se vô dụng.
Ý E là vây? Chú khéo chôngs gì dâu!
Bác nghi có dúng không ạ! Có lẽ Bác vôi trả loi quá! hic!

Bạn hỏi: Có cách nào Remove cả páss vba rôì mơí xóa tât cả không?
Tôi hỏi: code của bạn thì cần gì bẻ cái gì? Còn code của người khác thì tôi không chỉ.
Mà tôi đã nói: có pass hay không vẫn chạy. Tất nhiên nếu người ta không cho chạy macro thì dĩ nhiên nó không chạy và chả có gì xóa cả. Tôi không bàn về lý do (ở bài trước), cũng không bàn về hiệu quả (nếu disable macro) mà chỉ bổ sung code của quanghai thôi. Kiểu là: đã làm thì làm tới cùng như ... thế này.
Mà bạn nên học những điều có ích thì hơn.

ndu96081631 · 23/10/12

siwtom đã viết:
Bạn hỏi: Có cách nào Remove cả páss vba rôì mơí xóa tât cả không?
Tôi hỏi: code của bạn thì cần gì bẻ cái gì? Còn code của người khác thì tôi không chỉ.
Mà tôi đã nói: có pass hay không vẫn chạy. Tất nhiên nếu người ta không cho chạy macro thì dĩ nhiên nó không chạy và chả có gì xóa cả. Tôi không bàn về lý do (ở bài trước), cũng không bàn về hiệu quả (nếu disable macro) mà chỉ bổ sung code của quanghai thôi. Kiểu là: đã làm thì làm tới cùng như ... thế này.
Mà bạn nên học những điều có ích thì hơn.

Nghĩa là vầy: Với 1 VBProject được đặt password thì code không chạy anh à! Thành ra cần phải có công đoạn Unlock VBProject trước mới chạy code XÓA CODE

Quang_Hải · 23/10/12

Thông thường pass VBA rất dễ mở hoặc phá, nhưng em có file này không thể phá pass được. Anh chị nào mở hoặc phá được pass của file này em thật sự phục sát đất. File này không có dữ liệu gì cả, chỉ có pass VBA bên trong thôi

ndu96081631 · 23/10/12

quanghai1969 đã viết:
Thông thường pass VBA rất dễ mở hoặc phá, nhưng em có file này không thể phá pass được. Anh chị nào mở hoặc phá được pass của file này em thật sự phục sát đất. File này không có dữ liệu gì cả, chỉ có pass VBA bên trong thôi

Mở khóa trong vòng 3s

Quang_Hải · 23/10/12

ndu96081631 đã viết:
Mở khóa trong vòng 3s

Quả là đáng nể thật, em mày mò mãi không cách nào phá được.

siwtom · 23/10/12

ndu96081631 đã viết:
Mở khóa trong vòng 3s

Hình như 3s này chỉ là cách nói cường điệu một chút thì phải. Tôi mở bằng hexeditor --> tìm 3 "chú" --> sửa lại --> ghi lại. Tổng cộng mất mười mấy s.
Hay là Tuấn có automata? Chuột phải --> chọn automata --> xong luôn?

ndu96081631 · 23/10/12

siwtom đã viết:
Hình như 3s này chỉ là cách nói cường điệu một chút thì phải. Tôi mở bằng hexeditor --> tìm 3 "chú" --> sửa lại --> ghi lại. Tổng cộng mất mười mấy s.
Hay là Tuấn có automata? Chuột phải --> chọn automata --> xong luôn?

Em cũng dùng Hexeditor nhưng làm quen tay rồi anh à:
- Ctrl + F
- Gõ CMG, Enter
- Bôi đen chổ cần xóa rồi bấm nút Delete và Save
Xong!
Ẹc... Ẹc... 3s hơi cường điệu nhưng sự thật là rất nhanh

quykiemsau · 23/10/12

ndu96081631 đã viết:
Nghĩa là vầy: Với 1 VBProject được đặt password thì code không chạy anh à! Thành ra cần phải có công đoạn Unlock VBProject trước mới chạy code XÓA CODE

Đúng là trong trường hợp này Bác đã hiểu ý tôi.
Về trường hợp không cho chạy Macro thì chẳng phải bàn làm gì.
Nhưng mà đã nói là cho chạy thì cũng phải chạy 1 cách ngon nghẻ chứ!
Việc tự xóa vba này cũng là 1 trường hợp bảo mật.
Mà đã nói đến bảo mật đến mức phải xóa vba đi thì tất nhiên là phải đặt pass rồi.
Nhưng đặt Pass VBA thì mấy bài viết trên coi như là vô dụng.
E, thấy các Bác nghĩ về bài viết này theo chiều hướng xấu... định giải thích thêm với các BÁc nhưng mà chắc gì các BÁc đã tin
May có BÁc ndu nhìn thấu vấn đề !Ý em hỏi cũng như Bác ndu đã nói đó... lời nói của rất có trọng lượng...

thanhlanh · 23/10/12

ndu96081631 đã viết:
Em cũng dùng Hexeditor nhưng làm quen tay rồi anh à:
- Ctrl + F
- Gõ CMG, Enter
- Bôi đen chổ cần xóa rồi bấm nút Delete và Save
Xong!
Ẹc... Ẹc... 3s hơi cường điệu nhưng sự thật là rất nhanh

Trên mạng có file password.xla (chắc của một cao thủ nước ngoài), mình tìm nó không có CMG thì làm sao? Mình không muốn phá khóa để lấy code, chỉ muốn học cách khóa code như họ. Bạn có biết họ khóa kiểu gì không?

ndu96081631 · 24/10/12

QuỷKiếmSầu đã viết:
Nhưng đặt Pass VBA thì mấy bài viết trên coi như là vô dụng.

Vấn đề Unprotect Password VBA tôi đã nghiên cứu từ rất lâu rồi mà dường như.. không có cách
Tham khảo các trang web nước ngoài, người ta cũng chỉ có thể dùng phương pháp SendKeys (kiểu như "dạy" cho máy tính cách ta làm bằng tay bằng cách bấm các tổ hợp phím nào đó)
Tuy nhiên, phương pháp dùng SendKeys đôi lúc không ổn định, khi được khi không nên tôi chưa giới thiệu
Nghe đồn rằng có cách dùng hàm API để truy đến các cửa sổ lập trình VBA gì gì đó nhưng tiếc là tôi lại không rành ---> E rằng làm được món này chỉ có thể là siwtom ---> Chở xem
------------------------------------------

thanhlanh đã viết:
Trên mạng có file password.xla (chắc của một cao thủ nước ngoài), mình tìm nó không có CMG thì làm sao? Mình không muốn phá khóa để lấy code, chỉ muốn học cách khóa code như họ. Bạn có biết họ khóa kiểu gì không?

Cái này để mình bàn trong 1 dịp khác nha anh (vi phạm nội quy đấy)

siwtom · 24/10/12

ndu96081631 đã viết:
Vấn đề Unprotect Password VBA tôi đã nghiên cứu từ rất lâu rồi mà dường như.. không có cách
Tham khảo các trang web nước ngoài, người ta cũng chỉ có thể dùng phương pháp SendKeys (kiểu như "dạy" cho máy tính cách ta làm bằng tay bằng cách bấm các tổ hợp phím nào đó)
Tuy nhiên, phương pháp dùng SendKeys đôi lúc không ổn định, khi được khi không nên tôi chưa giới thiệu
Nghe đồn rằng có cách dùng hàm API để truy đến các cửa sổ lập trình VBA gì gì đó nhưng tiếc là tôi lại không rành ---> E rằng làm được món này chỉ có thể là siwtom ---> Chở xem
------------------------------------------

Cái này để mình bàn trong 1 dịp khác nha anh (vi phạm nội quy đấy)

Lại bị gọi lên bảng.
ndu nói thế là không đúng. Tự tôi không nghĩ ra được code vì cái khoản này nó thuộc "lập trình cao
cấp". Nhưng khi lập trình trong Delphi thì tôi cũng gặp và hiểu được cơ cấu của nó là như thế nào.
Và khi tôi đọc qua code có trong Excel.xls của quanghai gửi thì 99,99% tôi chắc chắn là nó sử dụng
"kỹ thuật lập trình cao cấp" mà tôi sẽ giải thích dưới đây.
Nếu các bạn có chút thời gian thì tôi sẽ giải thích nôm na nó như thế nào. Nôm na vì tôi sẽ dùng
ngôn ngữ thường ngày để giải thích chứ dùng ngôn ngữ "chuyên ngành" thì e rằng người không lập
trình khó hiểu.
---------------
1. Trước tiên nói về cái cửa sổ mà Excel bắt ta phải nhập mật khẩu. Như trong code Excel.xls "đã
chỉ rõ" thì Excel gọi hàm system là DialogBoxParam để hiển thị cửa sổ hộp thoại. Tất nhiên Excel
phải tạo một cửa sổ hộp thoại (template) đặt trong resource và truyền thông tin về nó cho hàm
DialogBoxParam. Hàm DialogBoxParam sẽ tạo (trên cơ sở template) hộp thoại và hiển thị. Excel
cũng phải lập một procedure cho cửa sổ (DialogProc) mà DialogBoxParam tạo và hiển thị. Để làm
gì? Để nhận các thông điệp. Vd. Windows sẽ gửi thông điệp WM_INITDIALOG khi cửa sổ được
khởi tạo. Ta có thể khi nhận được thông điệp này (tức ở thời điểm "chào buổi sáng") làm một số
việc thiết lập ban đầu, tạo thêm controls - nó giống như ta thiết lập một số cái trong
UserForm_Initialize ấy mà. Windows cũng gửi thông điệp khi user nhấn nút nào đấy (chỉ rõ là nút
nào) để DialogProc xử lý. Vd. nếu nút nhấn là Cancel thì code DialogProc "dọn đồ ra về" còn nếu là
OK thì kiểm tra dữ liệu nhập rồi cũng "dọn đồ" - tức hủy hộp thoại. Tất nhiên Windows còn gửi nhiều
thông điệp khác, nếu DialogProc "quan tâm" thì xử lý.
Khi người lập trình muốn hủy hộp thoại (user chọn Cancel?, chọn OK? ...) thì code của DialogProc
phải gọi EndDialog để system biết và hủy hộp thoại. Khi gọi EndDialog thì phải truyền kết quả trả
về dưới dạng thông số của EndDialog. Hàm DialogBoxParam cũng sẽ trả vể kết quả này. Từ cơ
cấu như trên thì người lập trình có thể viết code đại loại như sau:
a - Gọi hàm DialogBoxParam để tạo cửa sổ nhập mật khẩu - template sẽ gồm textbox (class "Edit"
của Windows) để nhập mật khẩu, nút OK và Cancel. Trong DialogProc nếu nhận được thông điệp
do Windows gửi nói là user nhấn Cancel thì gọi EndDialog(hDialog, 0) - hDialog là "handle to
dialog box", 0 là giá trị trả về, cũng là giá trị mà hàm DialogBoxParam trả về. Nếu thông điệp nói là
user nhấn OK thì: kiểm tra mật khẩu có đúng không, nếu đúng thì EndDialod(hDialog, 1) còn nếu sai
thì EndDialog(hDialog, 0)
Cũng cần nói rõ là khi gọi hàm DialogBoxParam và cửa sổ hiển thị thì hàm DialogBoxParam chỉ
trở về, và mọi code sau dòng gọi hàm DialogBoxParam được thực hiện, khi mà hộp thoại được
đóng (do code trong DialogProc gọi EndDialog). Trong suốt thời gian hộp thoại hiển thị thì chỉ có
code trong DialogProc được thực hiện mà thôi (kiểu như ShowModal ấy mà - cho tới khi cửa sổ
được đóng thì mọi code sau ShowModal "phải chờ")
b - Ở dòng code sau dòng gọi hàm DialogBoxParam thì người lập trình kiểm tra giá trị trả về bởi
hàm DialogBoxParam. Nếu là 0 (tức user chọn Cancel hoặc chọn OK nhưng mật khẩu sai) thì:

Mã:

MsgBox "Này ông tướng, phải nhập mật khẩu đúng mới được chiêm ngưỡng code đấy nhé"

Còn nếu là 1 (user chọn OK và nhập đúng mật khẩu) thì mở code cho user xem.
-----------------
Như trên đã thấy thì bình thường người lập trình sẽ làm trình tự như trên và Excel cũng làm như thế.
Bây giờ ta hình dung là ta viết code như sau:
Ta viết hàm DialogBoxParam "nhái" - vd. hàm MyDialogBoxParam, và đánh tráo nó với hàm
DialogBoxParam của system. Tất nhiên hàm "nhái" này phải có cấu trúc thông số y hệt hàm của
system. Lúc này nếu có "ai đó" gọi hàm DialogBoxParam thì Windows sẽ gọi hàm
MyDialogBoxParam. Hàm của ta nếu kiểm tra thấy template = 4070 thì chả hiển thị hộp thoại nào
cả mà hàm trả về luôn giá trị 1. Trong trường hợp ngược lại thì tráo lại thành hàm DialogBoxParam
của system và gọi nó - vì trong cùng thời điểm có thể những phần mềm khác trong system cũng gọi
hàm DialogBoxParam, ta phải trả lại "hiện trạng" cũ để các phần mềm đó hiển thị hộp thoại của
mình. Cách làm thế nào?
---------------
Tất cả các hàm của system đều nằm trong các thư viện động DLL. Mỗi thư viện như thế có nhiều
section, có header. Riêng về các function trong thư viện thì: Khi DLL được load vào RAM thì nó
nằm ở một chỗ nào đó, địa chỉ nào đó trong RAM. Lúc này mỗi function cũng nằm ở một địa chỉ
nào đó trong RAM. DLL là "dùng chung" cho mọi process, tức nếu A, B, C cùng "gọi" bla.dll thì
bla.dll sẽ được ánh xạ vào mỗi "không gian địa chỉ" của mỗi process A, B, C. "Địa chỉ" của mỗi
function có trong DLL sẽ được ghi trong RAM ở "đâu đó" trong phần header, mỗi function có 1
trường để ghi địa chỉ của nó. Ta xét vd. hàm DialogBoxParam. Giả sử "ở đấy ở đấy" có giá trị là
"123456789" thì bình thường khi process gọi hàm DialogBoxParam thì system sẽ tới "chỗ ấy chỗ
ấy" để đọc ra địa chỉ của hàm DialogBoxParam - sẽ đọc được "123456789". Lúc này sẽ có 1
bước nhẩy tới địa chỉ "123456789" và thực hiện code của DialogBoxParam vì code của
DialogBoxParam nằm ở địa chỉ ấy mà.
Bây giờ ta hãy tưởng tượng là ta viết hàm MyDialogBoxParam (hàm nhái) mà nó nằm ở địa chỉ
"abc...xyz" (đọc ra bằng AddressOf). Code sau đó nhẩy tới "chỗ ấy chỗ ấy" và ghi giá trị "abc...xyz"
đè lên "123456789". Từ lúc này mỗi khi process nào đó gọi DialogBoxParam thì system nhẩy tới
"chỗ ấy chỗ ấy" và đọc ra địa chỉ "abc...xyz" (chứ không phải "123456789" nữa) và nhẩy tới địa chỉ
"abc...xyz" để thực hiện code. Chỉ có điều ở "abc...xyz" là code của hàm nhái MyDialogBoxParam
chứ không phải của hàm DialogBoxParam.
Tất nhiên trước khi đánh tráo địa chỉ của hàm được ghi ở "đâu đó" (trong header của DLL) trong
RAM thì ta phải ghi nhớ nó để sau đó trả về hiện trạng cũ - lại tới "chỗ ấy chỗ ấy" và ghi vào
"123456789" đè lên "abc...xyz"
Những kỹ thuật: xin phép thao tác trong RAM ở vùng nào đó, ghi trong RAM, đánh tráo địa chỉ hàm
... là những kỹ thuật cao cấp. Người có trình độ trung bình cũng có thể thao tác trong RAM nhưng để
đánh tráo địa chỉ thì phải thông hiểu nhiều hơn mới biết cách làm - thay đổi những bai nào trong
RAM, ở đâu ...
----------------
Trở lại code của quanghai gửi nếu tôi không lầm thì hiện thời code "chưa làm gì cả". Vì khi hiển thị
FrmHookMain và nhấn nút "RemoveVBAPassword" thì code đánh tráo địa chỉ của hàm
DialogBoxParam (thay vì hướng tới DialogBoxParam thì hướng tới hàm nhái MyDialogBoxParam)
nhưng ta không click được vào VBAProject để xem code. Phải đóng FrmHookMain mới click vào
được. Nhưng khi đóng FrmHookMain thì địa chỉ cũ lại được trả lại (đánh tráo lại) trong
UserForm_Terminate nên lúc này có nhấn VBAProject thì hàm DialogBoxParam lại được thực hiện
chứ không phải hàm nhái nên ta lại thấy hộp thoại bắt nhập mật khẩu hiện ra.
Vậy trong tập tin đính kèm tôi làm như sau:
a - Trên Sheet có 2 nút: "Đánh tráo" và "Trả lại"
b - Trước tiên ta nhấn "Đánh tráo", code của nó là:

Mã:

If Hook Then
        MsgBox "VBA Password is Removed!", vbInformation, "Excel Tool"
End If

Từ lúc này mọi cuộc gọi hàm DialogBoxParam thì thực chất là gọi hàm nhái MyDialogBoxParam
mà nó sẽ trả về 1, tức Excel sau đó kiểm tra thấy 1 được trả về thì tưởng rằng user nhập đúng mật
khẩu và nhấn OK - y như cái procedure của hộp thoại mà nó thiết kế trả về khi user nhập đúng mật
khẩu và nhấn OK.
c - Ta nhấn VBAProject để xem và copy code
d - Ta nhấn "Trả lại" để thực hiện code RecoverBytes. Nó sẽ trả lại (trong RAM) địa chỉ cũ của hàm
DialogBoxParam.
-----------------
Nói đến test thì tôi lại là vua lười.
Vậy ndu hãy test và thông báo kết quả thế nào

ndu96081631 · 24/10/12

siwtom đã viết:
Nói đến test thì tôi lại là vua lười.
Vậy ndu hãy test và thông báo kết quả thế nào

Trời ơi! Lợi hại quá, password là cái quỷ gì nó cũng remove tuốt
Ghê gớm hơn nữa là:
- Tôi tạo 1 file khác có pass VBA
- Tiếp theo mở file của siwtom lên đồng thời với file mới vừa tạo rồi nhấn nút Đánh tráo
- Kết quả nhận được là: "cánh cửa" đã được mở cho cả 2 file luôn
- Thử nghiệm tiếp trên 3, 4 file có password, cứ chạy code của siwtom là xem như "mời vào nhà!"
-------------------
Anh đúng là hacker siêu hạng

siwtom · 24/10/12

ndu96081631 đã viết:
Trời ơi! Lợi hại quá, password là cái quỷ gì nó cũng remove tuốt
Ghê gớm hơn nữa là:
- Tôi tạo 1 file khác có pass VBA
- Tiếp theo mở file của siwtom lên đồng thời với file mới vừa tạo rồi nhấn nút Đánh tráo
- Kết quả nhận được là: "cánh cửa" đã được mở cho cả 2 file luôn
- Thử nghiệm tiếp trên 3, 4 file có password, cứ chạy code của siwtom là xem như "mời vào nhà!"
-------------------
Anh đúng là hacker siêu hạng

Không phải, hiểu lầm nhau rồi.
Code là của tác giả tập tin mà quanghai gửi lên. Tất nhiên tôi cũng từng viết trong Delphi để đánh tráo hàm nhưng cái code này đã có sẵn nên chả cần viết gì cả.
Chỉ có điều tôi biết về "kỹ thuật đánh tráo" nên chỉ đọc lướt qua code của tập tin do quanghai gửi lên thì tôi nhận ra ngay là nó đã làm thế nào. Do hiểu được nên tôi sửa chút để không hiển thị Form nào cả mà "đánh tráo" lúc nào" và "Trả về" thế nào. Chỉ thế thôi.

Mà code không Remove password. Nói ngắn gọn thì thế này:
Excel gọi hàm của system để hiển thị hộp thoại. Nếu user nhập đúng password và nhấn OK thì hàm trả về 1. Nếu nhấn Cancel hoặc nhập sai password thì trả về 0. Khi hộp thoại đóng thì Excel kiểm tra kết quả trả về của hàm vừa gọi. Nếu là 1 thì nó "cho là" user nhập đúng password và nhấn OK. Vậy nó mở cho user xem code. Không phải xóa password vì lần sau mở ra thì lại phải đánh tráo mới xem được.
Bây giờ ta đánh tráo sang là gọi hàm "nhái" của ta. Hàm nhái chả hiển thị cóc khô gì mà về luôn cùng với giá trị 1. Và Excel kiểm tra giá trị trả về thì thấy là 1 nên "tưởng" là user nhập đúng password và nhấn OK

Công to là của quanghai sưu tầm.

ndu96081631 · 24/10/12

Phát hiện thêm 1 chuyện nữa: Sau khi gọi hết tất cả các Add-Ins của MS lên (đương nhiên mấy Add-Ins này đều có Pass). Sau đó chạy code của siwtom thì toàn bộ các Add-Ins đều "mở cửa" ---> Xem code thoải mái
Quá sốc! _)()(-

----------------
Ẹc... Ẹc... Từ nay thì mấy "chú tào lao" đừng mong mà Pass VBA code gì nữa nhé ---> Nếu siêu thì cứ tạo DLL đi, còn không thôi (có đặt pass của uổng công)
//..,,

siwtom · 24/10/12

ndu96081631 đã viết:
Phát hiện thêm 1 chuyện nữa: Sau khi gọi hết tất cả các Add-Ins của MS lên (đương nhiên mấy Add-Ins này đều có Pass). Sau đó chạy code của siwtom thì toàn bộ các Add-Ins đều "mở cửa" ---> Xem code thoải mái
Quá sốc!
----------------
Ẹc... Ẹc... Từ nay thì mấy "chú tào lao" đừng mong mà Pass VBA code gì nữa nhé ---> Nếu siêu thì cứ tạo DLL đi, còn không thôi (có đặt pass của uổng công)

Nếu sốc thật thì cũng dể hiểu thôi. Không phải vô cớ mà chuyện đánh tráo hàm này là một trong những món "đặc sản" của hacker và rootkit. Họ là những người rất am tường về system, hiểu cơ cấu và cách thức hoạt động của system nên họ có thể đột nhập vào system để làm mưa làm gió.
Ngay như đột nhập vào một căn nhà có hệ thống cảnh báo chẳng hạn. Người thường thì không biết cách nhưng người am tường thì biết vào đường nào. Cửa chính, phụ? Qua đường hệ thống thông gió? Chỗ nào là điểm yếu của căn nhà? Vào rồi thì do am tường về các hệ thống cảnh báo nên họ biết phải "tắt" cái gì, tắt ở đâu v...v

Còn về "thuật toán" thì đơn giản thôi.
Giả dụ ta có ông A (system Windows) trực. Khi khách hàng gọi điện tới đặt ông sửa ống nước chẳng hạn (process gọi hàm Windows - SuaOngNuoc) thì ông A "đi" tới bảng ghi số điện thoại và đọc số của ông sửa ống nước (mỗi ngày có 1 ông khác với số khác - tương đương với mỗi lần DLL được load vào RAM thì nó nằm ở một địa chỉ khác), sau đó gọi cho ông thợ (nhẩy tới địa chỉ của hàm) và "kích hoạt", "cử" ông thợ đi làm (thực hiện code ở địa chỉ vừa nhẩy tới).
Thế bây giờ nếu ta "lén" sửa lại số điện thoại được ghi trên bảng và thay vào đó ghi số của nhân viên của ta thì sao? Thì ông A sẽ gọi cho nhân viên của ta và "cử" nhân viên củ ta đi làm, thế thôi.

Hoàng Trọng Nghĩa · 25/10/12

ndu96081631 đã viết:
Phát hiện thêm 1 chuyện nữa: Sau khi gọi hết tất cả các Add-Ins của MS lên (đương nhiên mấy Add-Ins này đều có Pass). Sau đó chạy code của siwtom thì toàn bộ các Add-Ins đều "mở cửa" ---> Xem code thoải mái
Quá sốc!
----------------
Ẹc... Ẹc... Từ nay thì mấy "chú tào lao" đừng mong mà Pass VBA code gì nữa nhé ---> Nếu siêu thì cứ tạo DLL đi, còn không thôi (có đặt pass của uổng công)

Với cái code này mở nhấp nháy sau cú click (chắc lẹ hơn 3s) mà lại coi tất cả các file đang mở, kể cả addins, ("thấy gúm quá") vậy có thủ tục nào mở file excel bị khóa không? (mà nhanh như vậy càng tốt).

Sẳn đã VBA làm rồi thì làm luôn cái File chắc cũng hỏng sao đâu hen!

Xin cám ơn trước.

thanhlanh · 25/10/12

siwtom đã viết:
...........................
b - Trước tiên ta nhấn "Đánh tráo", code của nó là:

Mã:

If Hook Then MsgBox "VBA Password is Removed!", vbInformation, "Excel Tool" End If

.............................

Mình không hiểu code này gọi hàm (thủ tục) kiểu gì? Đâu thấy call Hook, chỉ là một thông báo!
(Giống kiểu phát ngôn gây "sốc" hoặc là thần chú gì đó?)
Bạn nào giải thích giùm!

Hoàng Trọng Nghĩa · 25/10/12

thanhlanh đã viết:
Mình không hiểu code này gọi hàm (thủ tục) kiểu gì? Đâu thấy call Hook, chỉ là một thông báo!
(Giống kiểu phát ngôn gây "sốc" hoặc là thần chú gì đó?)
Bạn nào giải thích giùm!

Hàm Hook này là dạng boolean luôn trả về TRUE khi hoàn tất thủ tục, mở đầu Hook = False và kết thúc hàm là Hook = True

Theo em nghĩ, Khi ta dùng IF HOOK THEN tức là ta đã "gián tiếp" gọi hàm đó, dĩ nhiên nó phải kiểm tra HOOK và từ đó HOOK chạy từ False rồi thực hiện thủ tục, sau cùng trả về TRUE.

Mã:

Public Function Hook() As Boolean
    Dim TmpBytes(0 To 5) As Byte
    Dim p As Long
    Dim OriginProtect As Long
    
    [COLOR=#ff0000][B]Hook = False[/B][/COLOR]
    
'........................................
            [B][COLOR=#0000cd]Hook = True[/COLOR][/B]
        End If
    End If
End Function

thanhlanh · 25/10/12

Hoàng Trọng Nghĩa đã viết:
Hàm Hook này là dạng boolean luôn trả về TRUE khi hoàn tất thủ tục, mở đầu Hook = False và kết thúc hàm là Hook = True

Theo em nghĩ, Khi ta dùng IF HOOK THEN tức là ta đã "gián tiếp" gọi hàm đó, dĩ nhiên nó phải kiểm tra HOOK và từ đó HOOK chạy từ False rồi thực hiện thủ tục, sau cùng trả về TRUE.

Mã:

Public Function Hook() As Boolean Dim TmpBytes(0 To 5) As Byte Dim p As Long Dim OriginProtect As Long [COLOR=#ff0000][B]Hook = False[/B][/COLOR] '........................................ [B][COLOR=#0000cd]Hook = True[/COLOR][/B] End If End If End Function

Hay nhỉ?
Mình mở một file mới và chạy đoạn code

Sub test()
Dim Hook As Boolean
MsgBox Hook
End Sub

Kết quả luôn là False. Tức là Hook đã có giá trị rồi mà hàm Hook vẫn làm việc?

ndu96081631 · 25/10/12

thanhlanh đã viết:
Mình không hiểu code này gọi hàm (thủ tục) kiểu gì? Đâu thấy call Hook, chỉ là một thông báo!
(Giống kiểu phát ngôn gây "sốc" hoặc là thần chú gì đó?)
Bạn nào giải thích giùm!

Tầm trình độ của chúng ta thường hay viết khác:
- Viết code cho Sub Hook (chứ không phải Function)
- Dùng 1 biến public chk kiểu Boolean để kiểm tra xem Sub Hook đã chạy hoàn tất chưa
- Xong, viết 1 Sub khác cho gọi sub Hook, đồng thơi kiểm tra biến chk, nếu chk=TRUE thì sẽ làm việc khác

Mã:

Public chk as Boolean
Sub Hook()
  If.... gì gì đo then  
     chk = True
  End If
End Sub
Sub Main
  Call Hook
  If chk then
    'Làm việc khac
  End If
End Sub

Tuy nhiên, các nhà lập trình chuyên nghiệp thường hay viết kiểu khác: Thay đổi Sub Hook thành Function Hook và Function này trả về giá trị kiểu Boolean luôn.
Vậy nếu code trong Hook hoàn tất thì hàm trả về kết quả = TRUE và ngược lại
Cách này có cái tiện là khỏi cần phải qua biến tạm dạng Public
-------------------

thanhlanh đã viết:
Hay nhỉ?
Mình mở một file mới và chạy đoạn code

Sub test()
Dim Hook As Boolean
MsgBox Hook
End Sub

Kết quả luôn là False. Tức là Hook đã có giá trị rồi mà hàm Hook vẫn làm việc?

Anh viết vậy không đúng ---> Biến Hook của anh hóa ra trùng với tên hàm à
Lý ra chỉ vầy là được

Mã:

Sub test()
MsgBox Hook
End Sub

Hoàng Trọng Nghĩa · 25/10/12

thanhlanh đã viết:
Hay nhỉ?
Mình mở một file mới và chạy đoạn code

Sub test()
Dim Hook As Boolean
MsgBox Hook
End Sub

Kết quả luôn là False. Tức là Hook đã có giá trị rồi mà hàm Hook vẫn làm việc?

Với HOOK là một hàm trả về giá trị BOOLEAN, còn một đằng khai báo biến HOOK là một BOOLEAN, 2 trường hợp này hoàn toàn khác nhau.

Với hàm HOOK nó có tính Public, còn trong cái SUB của anh, biến HOOK chỉ là chạy "nội tại" mà đã là "nội tại" thì nó sẽ chạy trước, public nó chạy sau nếu nội tại không thỏa, tức chạy hết SUB nó sẽ hết tác dụng khi END SUB. Mặt khác, với HOOK trong SUB của anh nó chưa định giá trị TRUE hoặc FALSE cho nó vì vậy mặc định của biến này luôn là FALSE.

Thí nghiệm như vầy, cũng trên file đó, anh đặt Dim Hook As Boolean ở trên cùng rồi chạy thủ tục dưới đây như sau:

Mã:

[COLOR=#ff0000][B]Dim Hook As Boolean[/B][/COLOR]

'-----------------------------
Sub test()
    If Hook Then
        MsgBox "VBA Password is Removed!", vbInformation, "Excel Tool"
    End If
End Sub

Cho chạy Sub test bảo đảm với anh nó không thông báo gì cả!

Từ thí nghiệm này cho thấy, khi chạy thủ tục, nếu trùng tên Hàm/Sub nó sẽ thông báo lỗi, nếu Hàm trùng tên Biến, nó sẽ xét theo Biến.

quykiemsau · 25/10/12

Hoàng Trọng Nghĩa đã viết:
Với cái code này mở nhấp nháy sau cú click (chắc lẹ hơn 3s) mà lại coi tất cả các file đang mở, kể cả addins, ("thấy gúm quá") vậy có thủ tục nào mở file excel bị khóa không? (mà nhanh như vậy càng tốt).

Sẳn đã VBA làm rồi thì làm luôn cái File chắc cũng hỏng sao đâu hen!

Xin cám ơn trước.

Thât Bâ't ngo,Tks Bác siwtom nhiêù nhé!
Đúng là khôg có gì là không thê?!

Em nghi bài của Bác Nghĩa chăc là không thê thuc hiên = code dc rôì... vì de chay dc code thì file do' fai ActiveWindow thì code moi hoat dong dươc chú...
Theo em hieu la file chưa nhâpj pás Open thj ActiveWindow vân là Flase thi code chua thêr hoat dông dc dúng không ạ!

Hoàng Trọng Nghĩa · 25/10/12

QuỷKiếmSầu đã viết:
Thât Bâ't ngo,Tks Bác siwtom nhiêù nhé!
Đúng là khôg có gì là không thê?!

Em nghi bài của Bác Nghĩa chăc là không thê thuc hiên = code dc rôì... vì de chay dc code thì file do' fai ActiveWindow thì code moi hoat dong dươc chú...
Theo em hieu la file chưa nhâpj pás Open thj ActiveWindow vân là Flase thi code chua thêr hoat dông dc dúng không ạ!

Tôi không chắc chắn lắm, nhưng nếu chọn mở khóa một File Excel nào đó thì sẽ hiện lên một Browser và ta chỉ chọn file Excel cần mở khóa, thông qua đó chạy thủ tục mở khóa thôi, đâu nhất thiết mở khóa khi file đang activate đâu nhỉ?

TrungChinhs · 25/10/12

thanhlanh đã viết:
Mình không hiểu code này gọi hàm (thủ tục) kiểu gì? Đâu thấy call Hook, chỉ là một thông báo!
(Giống kiểu phát ngôn gây "sốc" hoặc là thần chú gì đó?)
Bạn nào giải thích giùm!

Mã:

Sub Button1_Click()
    If Hook Then
        MsgBox "VBA Password is Removed!", vbInformation, "Excel Tool"
    End If
End Sub

Trong VBA để gọi Hook ta có thể viết Hook hoặc Call Hook

Nếu không cần thông báo thì code trên chỉ cần viết Hook là đủ

Mã:

Sub Button1_Click()   
Hook
End Sub

thanhlanh · 25/10/12

TrungChinhs đã viết:
Mã:

Sub Button1_Click() If Hook Then MsgBox "VBA Password is Removed!", vbInformation, "Excel Tool" End If End Sub

Trong VBA để gọi Hook ta có thể viết Hook hoặc Call Hook

Nếu không cần thông báo thì code trên chỉ cần viết Hook là đủ

Mã:

Sub Button1_Click() Hook End Sub

Mình biết rồi, nhưng ở đây là If Hook nên mới siêu!

TrungChinhs · 25/10/12

thanhlanh đã viết:
Mình biết rồi, nhưng ở đây là If Hook nên mới siêu!

Vẫn chỉ là cách viết thay vì If Hook = True Then người ta viết If Hook Then cho nó khỏe (nghe nói code chạy nhanh hơn)

Mã:

Sub Button1_Click()
    If Hook = True Then
        MsgBox "VBA Password is Removed!", vbInformation, "Excel Tool"
    End If
End Sub

ndu96081631 · 25/10/12

thanhlanh đã viết:
Mình biết rồi, nhưng ở đây là If Hook nên mới siêu!

Thì cũng giống vầy thôi

Mã:

Function [COLOR=#ff0000]SheetExist[/COLOR](WorkSheetName As String) [COLOR=#ff0000]As Boolean[/COLOR]
  On Error Resume Next
  SheetExist = Not Sheets(WorkSheetName) Is Nothing
End Function
Sub Main
  If [COLOR=#ff0000]SheetExist("ABC") [/COLOR]then
    MsgBox "Sheet 'ABC' này ton tai"
  End If
End Sub

Em không nghĩ là anh lại thắc mắc chuyện đơn giản này
Ẹc... Ẹc...

thanhlanh · 25/10/12

ndu96081631 đã viết:
Thì cũng giống vầy thôi

Mã:

Function [COLOR=#ff0000]SheetExist[/COLOR](WorkSheetName As String) [COLOR=#ff0000]As Boolean[/COLOR] On Error Resume Next SheetExist = Not Sheets(WorkSheetName) Is Nothing End Function Sub Main If [COLOR=#ff0000]SheetExist("ABC") [/COLOR]then MsgBox "Sheet 'ABC' này ton tai" End If End Sub

Em không nghĩ là anh lại thắc mắc chuyện đơn giản này
Ẹc... Ẹc...

Lại hiểu sai ý của mình rồi!
Nếu như trước loạt bài này, muốn viết code Main trên thì mình phải viết là

Mã:

Sub Main()
    [COLOR=#ff0000]SheetExist ("ABC")    [/COLOR]' Hoac Call SheetExist("ABC")
    If SheetExist("ABC") Then
        MsgBox "Sheet 'ABC' này ton tai"
    End If
End Sub

ndu96081631 · 25/10/12

thanhlanh đã viết:
Lại hiểu sai ý của mình rồi!
Nếu như trước loạt bài này, muốn viết code Main trên thì mình phải viết là

Mã:

Sub Main() [COLOR=#ff0000]SheetExist ("ABC") [/COLOR]' Hoac Call SheetExist("ABC") If SheetExist("ABC") Then MsgBox "Sheet 'ABC' này ton tai" End If End Sub

Anh viết vậy là... quá thừa rồi còn gì
SheetExist là 1 Function chứ đâu phải 1 Sub ---> Nếu nó chạy thì nó phải trả về giá trị gì đó và ta phải "nhận" lấy để tính toán xem sẽ làm gì tiếp
Còn cách anh vừa viết là anh đã tự xem SheetExist là 1 Sub (không phải Function) và giá trị trả về của nó anh cũng không thèm đếm xỉa đến luôn....
Dòng đỏ ở trên chẳng biết để làm cái gì nữa, có chăng thì vầy mới hợp lý:

Mã:

Sub Main()
  Dim bChk as Boolean
  bChk = SheetExist ("ABC")
  If bChk Then
    MsgBox "Sheet 'ABC' này ton tai"
  End If
End Sub

Nói cho cùng thì cũng y chang cách em đã viết ở bài 57 thôi
Ẹc... Ẹc... (ngộ hen.. tự nhiên anh lại théc méc rất.. kỳ cục...)

thanhlanh · 25/10/12

ndu96081631 đã viết:
Anh viết vậy là... quá thừa rồi còn gì
SheetExist là 1 Function chứ đâu phải 1 Sub ---> Nếu nó chạy thì nó phải trả về giá trị gì đó và ta phải "nhận" lấy để tính toán xem sẽ làm gì tiếp
Còn cách anh vừa viết là anh đã tự xem SheetExist là 1 Sub (không phải Function) và giá trị trả về của nó anh cũng không thèm đếm xỉa đến luôn....
Dòng đỏ ở trên chẳng biết để làm cái gì nữa, có chăng thì vầy mới hợp lý:

Mã:

Sub Main() Dim bChk as Boolean bChk = SheetExist ("ABC") If bChk Then MsgBox "Sheet 'ABC' này ton tai" End If End Sub

Nói cho cùng thì cũng y chang cách em đã viết ở bài 57 thôi
Ẹc... Ẹc... (ngộ hen.. tự nhiên anh lại théc méc rất.. kỳ cục...)

Ờ, đúng ý mình đó, nếu trước đây, mình sẽ viết vậy! Dốt quá.

quykiemsau · 25/10/12

Xin Chào các Bác! Chúc sức khỏe! ^^
Trước hết là Em xin trân thành cám ơn các Bác đã giúp em hoàn thành Topfig này, Đặc biệt là 2 Bác siwtom và
ndu96081631 đã có những bài viết rất bất hủ.
Sau là xin Ban quản trị khóa TopFig này lại vì thật sự là bài viết thứ #41 của Bác siwtom quá ĐỘC!!!
Em không phải là người quá ích kỷ nhưng đúng như các Bác lo xa Xã hội "Lành ít Dữ nhiều" mà ở Diễn đàn này ai cũng mong muốn mọi điều tốt đẹp! Không ai muốn một tiếng xấu nào đến diễn đàn này cả!
Hơn nũa những ai cần biết trong chủ đề này đều được biết cả rồi không nên phổ biến rộng thêm nữa!
Còn bài viết này của Bác Nghĩa:

Hoàng Trọng Nghĩa đã viết:
Tôi không chắc chắn lắm, nhưng nếu chọn mở khóa một File Excel nào đó thì sẽ hiện lên một Browser và ta chỉ chọn file Excel cần mở khóa, thông qua đó chạy thủ tục mở khóa thôi, đâu nhất thiết mở khóa khi file đang activate đâu nhỉ?

Đúng là Em cũng muốn đợi đáp án! Nhưng nó đã đi quá xa so với chủ để Em đưa ra.
Nếu có thể được thì BÁc Nghĩa chuyển nó sang 1 chủ đề khác sát thực nhé!
Đã sống trong Luật thì phải theo Luật đúng không ạ!
Hj! Tks GPE! Em không ngờ TopFig đầu tay này lại Hot đến thế ( mới đầu đúng là hơi nản... )..)! ^^

siwtom · 25/10/12

thanhlanh đã viết:
Mình biết rồi, nhưng ở đây là If Hook nên mới siêu!

Bạn có 3 cách viết:
1.
a = Hook
if a then
2. if Hook = TRUE then
3. if Hook then
------------
Bạn biết gì về cấu trúc: IF đk THEN?
đk là biểu thức trả về giá trị lôgíc - boolean.
Khi gặp cấu trúc IF đk ... thì trước tiên biểu thức đk được tính giá trị, sau đó tùy giá trị thế nào mà thực hiện code.
Ta có các biến lôgíc, các hàm trả về giá trị lôgíc ... Chúng được kết nối với nhau bởi OR, AND, và >, <, >=, <=, = (với 2 vế không nhất thiết là các giá trị lôgíc).
Với a, b, HamGiDo(...) as boolean, c, d as Long thì:
TRUE, FALSE, a, b, HamGiDo, (a or b), (a or b) and HamGiDo, c = d, (c = d) and b, c >=<= d v...v đều là biểu thức.
Có thể nói TRUE, FALSE, a, b, HamGiDo là những biểu thức đơn.
Với IF HamGiDo THEN thì cũng như mọi khi thôi, tức trước tiên cần tính giá trị của "biểu thức" HamGiDo. Việc tính giá trị của biểu thức HamGiDo là việc xác định giá trị trả về bởi HàmGiDo, tức code của HamGiDo phải được thực hiện và giá trị trả về sau khi thực hiện code là giá trị của biểu thức.
Hàm Hook sau khi thực thi thì trả về giá trị Boolean cũng chính là giá trị của biểu thức điều kiện, thế thôi.
Khi bạn tính biểu thức trong đó có sin(x) (Riêng sin(x) cũng là biểu thức rồi) thì bạn "bấm" máy tính tay (tức thực hiện code tính sin): x --> sin, còn khi máy nó gặp HamGiDo thì nó "thực hiện code" của HamGiDo và có kết quả do hàm trả về.
Kiểu viết 2 và 3 như trên kết quả là như nhau nhưng thực hiện có sự khác nhau đấy nhé.
Ta tính giá trị của biểu thức (a = b), a và b có thể có dạng tổng quát vd. a = x + y, b = k + l + m + n
Việc tính được giá trị của a hay b vẫn chưa xong. Giá trị của biểu thức (a = b) được tính như sau:
1. tính a
2. tính b
3. tính a = b (so sánh)
Với a, b as boolean tương tự. Tính được a hay b TRUE hay FALSE vẫn chưa kết luận được gì về giá trị của biểu thức a = b. a có thể = FALSE, b = FALSE nhưng a = b = TRUE.
Với IF Hook then thì có được giá trị trả về của Hook cũng chính là giá trị của đk thì việc xác định đk kết thúc.
Với IF Hook = TRUE then thì dù có được giá trị do Hook trả về thì giá trị của đk vẫn chưa được xác định. Phải thực hiện phép so sánh Hook = TRUE mới có được giá trị của đk.
------------
Cũng nên nhớ là nếu bạn có hàm Hichic và bạn viết: call Hichic (Hichic) thì có nghĩa là: code của Hichic được thực hiện nhưng kết quả trả về không dùng làm gì cả, không được lưu ở đâu cả.
Nhưng khi bạn có:
a = Hichic
b = 5 + Hichic
IF Hichic > a + sin(xyz) THEN
....
Thì không chỉ là code của Hichic được thực thi mà giá trị do nó trả về còn dùng cho các tính toán tiếp theo.
Vì vậy với cùng một hàm Hichic thì "chỗ này" bạn cần giá trị do hàm trả về thì bạn viết: a = Hichic, nhưng ở "chỗ khác" bạn không cần giá trị trả về mà chỉ cần thực thi code thôi (hàm không chỉ trả về giá trị mà hàm có thể làm nhiều việc trong code) thì bạn viết: call Hichic. Bạn có thể viết a = Hichic nếu muốn nhưng không bắt buộc.

thanhlanh · 25/10/12

QuỷKiếmSầu đã viết:
Xin Chào các Bác! Chúc sức khỏe! ^^
Trước hết là Em xin trân thành cám ơn các Bác đã giúp em hoàn thành Topfig này, Đặc biệt là 2 Bác siwtom và
ndu96081631 đã có những bài viết rất bất hủ.
Sau là xin Ban quản trị khóa TopFig này lại vì thật sự là bài viết thứ #41 của Bác siwtom quá ĐỘC!!!
Em không phải là người quá ích kỷ nhưng đúng như các Bác lo xa Xã hội "Lành ít Dữ nhiều" mà ở Diễn đàn này ai cũng mong muốn mọi điều tốt đẹp! Không ai muốn một tiếng xấu nào đến diễn đàn này cả!
Hơn nũa những ai cần biết trong chủ đề này đều được biết cả rồi không nên phổ biến rộng thêm nữa!
Còn bài viết này của Bác Nghĩa:

Đúng là Em cũng muốn đợi đáp án! Nhưng nó đã đi quá xa so với chủ để Em đưa ra.
Nếu có thể được thì BÁc Nghĩa chuyển nó sang 1 chủ đề khác sát thực nhé!
Đã sống trong Luật thì phải theo Luật đúng không ạ!
Hj! Tks GPE! Em không ngờ TopFig đầu tay này lại Hot đến thế ( mới đầu đúng là hơi nản... )..)! ^^

Bạn lo ngại cho chủ đề "nhạy cảm" này rất đúng. Mình cũng thấy vậy nên chỉ bàn luận những câu loanh quanh chớ không hỏi vào trọng tâm. Nếu những dòng code trên của siwtom phục vụ cho yêu cầu khác thì mình còn được mổ xẻ học hỏi nhiều hơn.

Theo mình thì ngoài việc học được những câu lệnh trên, nhờ đó mình còn học được chiêm ngưỡng, học hỏi thế giới code mà ở đó, việc đặt pass chỉ là để tránh sự vô tình của người dùng làm hỏng file và những kẻ tào lao như mình còn học được: "Từ nay thì mấy "chú tào lao" đừng mong mà Pass VBA code gì nữa nhé ---> Nếu siêu thì cứ tạo DLL đi, còn không thôi (có đặt pass của uổng công)" - ndu
Học xong rồi thì muốn làm gì thì làm, đừng làm như Lý Thông là được.

Một cái dao sắc đưa cho người tiều phu sẽ có ích rất nhiều, còn nếu vào tay kẻ cướp thì thật nguy hiểm.

gakon_Office · 25/10/12

Hay cho cái câu Con dao sắc pử trong tay Bác Tiều Phu khác với ở trong tay bọn cướp!
Đôi khi có những cái mà ta muốn học hỏi ở 1 file nào đó nhưng điều kiện không cho phép nên cũng khổ!
Vậy thì vấn đề dưới đây! Mong các thầy cho đáp án!

Hoàng Trọng Nghĩa đã viết:
vậy có thủ tục nào mở file excel bị khóa không? (mà nhanh như vậy càng tốt).

Sẳn đã VBA làm rồi thì làm luôn cái File chắc cũng hỏng sao đâu hen!

Xin cám ơn trước.

dhn46 · 26/10/12

Thật quá bất ngờ (kinh ngạc) khả năng của VBA. Dùng Excel trị Excel. Dù chưa thể hiểu được Code của anh Siwtom nhưng cho Dhn46 bày tỏ lời cảm ơn vì biết tính năng mới này. Nhưng em có thắc mắc: Vì sao dùng Open Office thì có thể đọc được các File khóa mã và thậm chí cả file của anh Quanghai nữa còn Excel thì không? Cùng sử dụng VBA tại sao lại có sự khác nhau đó?

quykiemsau · 26/10/12

quanghai1969 đã viết:
Thông thường pass VBA rất dễ mở hoặc phá, nhưng em có file này không thể phá pass được. Anh chị nào mở hoặc phá được pass của file này em thật sự phục sát đất. File này không có dữ liệu gì cả, chỉ có pass VBA bên trong thôi

Giờ xem lại Em mới để ý! Bác Hải tự nhiên gửi lên 1 cái file rất lợi hại!
Nếu không có file này cũng E là hơi khó để kết thúc đề tài này

siwtom · 26/10/12

QuỷKiếmSầu đã viết:
Giờ xem lại Em mới để ý! Bác Hải tự nhiên gửi lên 1 cái file rất lợi hại!
Nếu không có file này cũng E là hơi khó để kết thúc đề tài này

Đã nói rồi. Công của quanghai to vô cùng.
Một kho vàng ... giả mà phơi bầy cho thiên hạ xem trong khi có viên ngọc quí thì cứ dấu mãi tới giờ.

viehoai · 26/10/12

siwtom đã viết:
Đã nói rồi. Công của quanghai to vô cùng.
Một kho vàng ... giả mà phơi bầy cho thiên hạ xem trong khi có viên ngọc quí thì cứ dấu mãi tới giờ.

Em thử file của bác tất cả các file của em đặt mật khẩu VBAProject đều mở ra được (kể cả các file AddIn) nhưng file của quanghai không mở được Bác nhỉ

siwtom · 26/10/12

viehoai đã viết:
Em thử file của bác tất cả các file của em đặt mật khẩu VBAProject đều mở ra được (kể cả các file AddIn) nhưng file của quanghai không mở được Bác nhỉ

file của quanghai là khác. Bạn đặt mật khẩu cho VBProject và nó luôn hiển thị cửa sổ cho bạn nhập mật khẩu. Còn file của quanghai nó có "đòi" cái gì đâu?
Loại như của quanghai thì bạn có thể thử dùng HexEditor rồi ... Đọc lại chủ đề này sẽ biết
Mỗi bệnh một thuốc chứ bạn

viehoai · 26/10/12

siwtom đã viết:
file của quanghai là khác. Bạn đặt mật khẩu cho VBProject và nó luôn hiển thị cửa sổ cho bạn nhập mật khẩu. Còn file của quanghai nó có "đòi" cái gì đâu?
Loại như của quanghai thì bạn có thể thử dùng HexEditor rồi ... Đọc lại chủ đề này sẽ biết
Mỗi bệnh một thuốc chứ bạn

Em hiểu cái khác file quangha là không cho view project là file Bác không mở được???
Bác cho em hỏi khắc phục nó như thế nào. Bây giờ file em muốn như thế thì làm như thế nào?
Cảm ơn Bác

TrungChinhs · 26/10/12

siwtom đã viết:
Đã nói rồi. Công của quanghai to vô cùng.
Một kho vàng ... giả mà phơi bầy cho thiên hạ xem trong khi có viên ngọc quí thì cứ dấu mãi tới giờ.

Quanghai chắc cũng vô tình thôi. Kịch tính chỉ bắt đầu xảy ra từ khi ndu gọi siwtom lên bảng và màn diễn "ảo thuật" của siwtom chỉ thực sự bùng nổ khi ndu khám phá ra tác dụng của nó. Cảm ơn 3 bạn rất nhiều.

siwtom · 26/10/12

viehoai đã viết:
Em hiểu cái khác file quangha là không cho view project là file Bác không mở được???
Bác cho em hỏi khắc phục nó như thế nào. Bây giờ file em muốn như thế thì làm như thế nào?
Cảm ơn Bác

Tôi đã viết rồi. Bạn đặt mật khẩu thì Excel hiển thị hộp thoại bắt bạn nhập rồi khi đóng hộp thoại thì Excel kiểm tra xem kết quả có "thỏa mãn" nó không, nếu có thì "mở". Do Excel gọi hàm của system để tạo hộp thoại nên mới có cơ hội đánh tráo hàm này bằng hàm của ta, mà hàm của ta chả hiển thị hộp thoại nào cả và trả về kết quả "thỏa mãn" Excel. Thế thôi.
Còn khi mà "người ta" không gọi gì cả để hiển thị hộp thoại nhập mật khẩu ("người ta" có đòi hỏi gì đâu mà hiển thị hộp thoại nhập mật khẩu?) thì tráo cái gì? Mà tráo cái gì, để làm gì? "Người ta" có cần kết quả nào đâu? "Người ta" đá đít mình luôn chứ có yêu cầu gì đâu?
Tôi đã nói rồi. Với dạng file như của quanghai thì bạn thử ... đọc ký chủ đề này đi. Bệnh khác thì phải dùng thuốc khác. Trong chủ đề có nói chút về thuốc mà.

dhn46 · 26/10/12

Vấn đề Unviewable em đã gặp và đã tìm được cách giải quyết từ hơn 1 năm về trước, và ngay trên diễn đàn tác giả Trần Thanh Phong cũng đã có những bài viết về vấn đề này (CMG, DPB, GC). Thực sự việc bảo mật Code cũng đã được nói rất nhiều, bàn rất nhiều, lộ thông tin, lộ bảo mật, mất dữ liệu...v.v.. Nhưng với trình độ không chuyên, mày mò, vật lộn với VBA cơ bản như em thì mớ Code ấy chưa là gì cả. Khi các anh chị chuyên IT viết phần mềm tức khắc các anh chị biết cách bảo mật. Về Topic này em nghĩ vẫn sẽ là nơi trao đổi bảo mật Excel trong giới hạn không chuyên.(Nếu chủ topic không có nhã ý thì đề nghị Mod cho 1 topic về bảo mật Version mới để các thành viên hỏi đáp). Những người tham gia diễn đàn này hầu hết có ý thức về Code, về Excel...vậy nên hỏi để biết, hỏi để tìm hiểu cũng là 1 nhu cầu chính đáng.
Xin cảm ơn!

siwtom · 27/10/12

viehoai đã viết:
Bây giờ file em muốn như thế thì làm như thế nào?

À mà "muốn như thế" có nghĩa là gì?
Là muốn bỏ "Project is unviewable"? Nếu thế thì đọc bài của dhn46
Là muốn bắt chước người ta làm "Project is unviewable"?
------------
Một khi ta đã biết là nếu cần bỏ "Project is unviewable" thì trong HexEditor ta có thể sửa CMG,
DPB, GC thì để làm được "Project is unviewable" ta cũng "tìm" ở "chỗ đó" thôi.
Tôi đã thử "vài cái" thì thấy làm cũng đơn giản thôi.
Tôi chỉ cách tốn ít thao tác nhất.
Bạn mở HexEditor --> chọn trong HexEditor để mở tập tin Excel mà bạn cần thao tác.
Chọn Search và tìm CMG. Bạn sẽ thấy đại loại là CMG="C4C6276D2F3533353335333533"
Bạn hãy sửa 1 ký tự trong ngoặc " " sang ký tự khác thuộc tập [0-9, A, B, C, D, E, F]. Bạn có thể sửa tất cả các ký tự nhưng ta đã
thống nhất với nhau là ít thao tác nhất rồi mà.
Ở lân cận CMG cũng có đại loại DPB="...". Bạn cũng sửa 1 ký tự trong ngoặc. Rồi ở gần có
GC="...". Làm tương tự. Save lại tập tin. Xong
Mang đi "dọa" đồng nghiệp

quykiemsau · 27/10/12

TrungChinhs đã viết:
Quanghai chắc cũng vô tình thôi. Kịch tính chỉ bắt đầu xảy ra từ khi ndu gọi siwtom lên bảng và màn diễn "ảo thuật" của siwtom chỉ thực sự bùng nổ khi ndu khám phá ra tác dụng của nó. Cảm ơn 3 bạn rất nhiều.

Ý Em nói file của Bác Quang Hải đưa nên chỉ tưởng nó là thách thức mở pass thôi.
Mở file nên nhìn chẳng có gì cả...bật trang lập trình thì mới nhìn thấy code.
VÀ ít khi ai quan tâm đến code đó là gì và có tác dụng như thế nào... rồi cuối cùng là quẳng file xếp xó!
Duy chỉ có Bác siwtom lúc đó đã để ý đến nó và đã phân tích hiểu được vấn đề rồi post nên khiến mọi người mới ngạc nhiên.
Điều em muốn nói ở đây là Bác siwtom là người rất cẩn thận và tinh tế! Dù là 1 chi tiết nhỏ Bác cũng không bỏ qua!
Em nghĩ người có Công nhiều nhất trong bài viết này vẫn là Bác, còn chủ nhân Bác Quang Hải tuy sở hữ file đó nhưng có thể Bác Hải chưa sử dụng được nó, vì Pass Bác cũng chưa mở được mà hì hì...
Bác ndu thì lại là người hiểu thấu mọi vấn đề trong lĩnh vực kiến thức thì ai cũng biết rồi, còn về suy nghĩ và ý tưởng của thành viên như tôi Bác nhìn nhận và hiểu được phân tích lại thắc mắc của tôi để mọi người tránh hiểu lầm nên chủ đề này mới có thể tiếp tục đến đây một cách thuyết phục!

Cám ơn 3 Bác nhiều nhé !!! ^^

quykiemsau · 27/10/12

dhn46 đã viết:
Về Topic này em nghĩ vẫn sẽ là nơi trao đổi bảo mật Excel trong giới hạn không chuyên.(Nếu chủ topic không có nhã ý thì đề nghị Mod cho 1 topic về bảo mật Version mới để các thành viên hỏi đáp). Những người tham gia diễn đàn này hầu hết có ý thức về Code, về Excel...vậy nên hỏi để biết, hỏi để tìm hiểu cũng là 1 nhu cầu chính đáng.
Xin cảm ơn!

Không có vấn đề gì cả, Nếu có thể được các Bác cứ trao đổi ở chủ đề này thoải mái thoải mái những vấn đề liên quan càng sôi nổi càng tốt.
Mới đầu các Bác lo ngại có chiều hướng không hay! Nhưng mọi việc đã được nhin nhận theo chiều hướng khá tốt rồi!
Đã đến nước này rồi thì cứ tơi lên các bác à!

minhhangg · 30/10/12

ndu96081631 đã viết:
Ẹc... Ẹc... Từ nay thì mấy "chú tào lao" đừng mong mà Pass VBA code gì nữa nhé ---> Nếu siêu thì cứ tạo DLL đi, còn không thôi (có đặt pass của uổng công)

Do em không biết có cách nào mở file trong trường hợp Project is unviewable không? Nhưng với file của anh siwtom thì chưa thành công anh à.

Quang_Hải · 30/10/12

minhhangg đã viết:
Do em không biết có cách nào mở file trong trường hợp Project is unviewable không? Nhưng với file của anh siwtom thì chưa thành công anh à.

Đương nhiên là không view được rồi vì anh Siwtom hướng dẫn làm cho Project Unview mà. Muốn view thì làm cách khác thôi, so sánh và thay thế... dùng Hexeditor thể tráo pass nhé.

ndu96081631 · 30/10/12

minhhangg đã viết:
Do em không biết có cách nào mở file trong trường hợp Project is unviewable không? Nhưng với file của anh siwtom thì chưa thành công anh à.

- Mở file bằng Hexeditor
- Xóa sạch hết từ CMG đến GC
- Lưu file lại
- Mở file lên kiểm tra ---> Bất cứ thằng Unview hay Protect VBA gì gì đó cũng sẽ đi.. Pháp ở

Hong.Van · 30/10/12

ndu96081631 đã viết:
- Mở file bằng Hexeditor
- Xóa sạch hết từ CMG đến GC
- Lưu file lại
- Mở file lên kiểm tra ---> Bất cứ thằng Unview hay Protect VBA gì gì đó cũng sẽ đi.. Pháp ở

Sao em thấy chưa được, Em xóa 3 thằng nhưng chỉ xóa những ký tự trong ngoặc kép còn vẫn để lại CMG""...
thì kết quả bị thế này & code khg còn một mống!Em cảm ơn!

viehoai · 30/10/12

ndu96081631 đã viết:
- Mở file bằng Hexeditor
- Xóa sạch hết từ CMG đến GC
- Lưu file lại
- Mở file lên kiểm tra ---> Bất cứ thằng Unview hay Protect VBA gì gì đó cũng sẽ đi.. Pháp ở

Theo như clip Sư phụ gửi không biết dùng lệnh gì trong việc "xóa sạch hết từ CMG đến GC" (quét vùng và nhấn Delete?) thì vùng chọn đó thay thế bằng "............",
Em quét vùng và nhấn Delete thì xóa mất hết luôn, lưu lại mở ra thì báo mất code trong VBE luôn (báo lỗi như bài viết của Hong.Van). Nếu thay tất cả các ký tự vùng đó (từ CMG đến GC) bằng các dấu "........" thì được. Ở đây em đang hỏi lý do Sư phụ làm được nhanh như thế ? em cũng mong mở được trong vòng 3s ẹc.. ẹc ..

thanhlanh · 30/10/12

Hong.Van đã viết:
View attachment 91390
Sao em thấy chưa được, Em xóa 3 thằng nhưng chỉ xóa những ký tự trong ngoặc kép còn vẫn để lại CMG""...
thì kết quả bị thế này & code khg còn một mống!Em cảm ơn!

Thế bạn trở thành dũng sỹ diệt code rồi, ha ha...
Nói vậy chớ xóa hết từ chữ "CMG" đến hết nội dung của GC, khi nào thành một loạt dấu .......(chấm) là được.

ndu96081631 · 30/10/12

viehoai đã viết:
Theo như clip Sư phụ gửi không biết dùng lệnh gì trong việc "xóa sạch hết từ CMG đến GC" (quét vùng và nhấn Delete?) thì vùng chọn đó thay thế bằng "............",
Em quét vùng và nhấn Delete thì xóa mất hết luôn, lưu lại mở ra thì báo mất code trong VBE luôn (báo lỗi như bài viết của Hong.Van). Nếu thay tất cả các ký tự vùng đó (từ CMG đến GC) bằng các dấu "........" thì được. Ở đây em đang hỏi lý do Sư phụ làm được nhanh như thế ? em cũng mong mở được trong vòng 3s ẹc.. ẹc ..

Hình như hôm trước tôi gửi video clip cho bạn rồi mà

[video=youtube;KnrSHYUjZhE]http://www.youtube.com/watch?v=KnrSHYUjZhE[/video]

Thì làm giống y chang như tôi đã làm thôi (trước giờ chưa từng bị bất kỳ lỗi gì)

-----------------

Hong.Van đã viết:
Sao em thấy chưa được, Em xóa 3 thằng nhưng chỉ xóa những ký tự trong ngoặc kép còn vẫn để lại CMG""...
thì kết quả bị thế này & code khg còn một mống!Em cảm ơn!

Cụ thể là file nào đâu? Cứ đưa lên đây, tôi quay video trực tiếp luôn trên file đó nhé

Hong.Van · 30/10/12

ndu96081631 đã viết:
Hình như hôm trước tôi gửi video clip cho bạn rồi mà

[video=youtube;KnrSHYUjZhE]http://www.youtube.com/watch?v=KnrSHYUjZhE[/video]

Thì làm giống y chang như tôi đã làm thôi (trước giờ chưa từng bị bất kỳ lỗi gì)

-----------------

Cụ thể là file nào đâu? Cứ đưa lên đây, tôi quay video trực tiếp luôn trên file đó nhé

Đây là File của em!..........

ndu96081631 · 30/10/12

Hong.Van đã viết:
Đây là File của em!..........

Thì cũng y chang như vừa làm thôi
Chú ý:
- Ctrl + F
- Đặt con trỏ chuột về phía bên phải số 47 rồi bấm Delete 3 phát
- Xong, đặt chuột vào ô vuông màu xanh, gõ CMG và bấm nút Find
Nói chung cứ chú ý kỹ thao tác tôi làm trong video clip là được rồi

[video=youtube;UEea2PXp4eY]http://www.youtube.com/watch?v=UEea2PXp4eY&feature=youtu.be[/video]

siwtom · 30/10/12

Hong.Van đã viết:
Đây là File của em!..........

Trước hết cần lưu ý là không phải HexEditor nào cũng như nhau. Vd. với HE nghèo nàn như của tôi thì bạn không thể thao tác như ndu hướng dẫn (đặt trỏ sau 47 và Delete 3 phát ...)
Bạn làm thế này.
Mở XLS --> Tìm CMG --> click vào G (ký tự cuối) --> gõ x --> nhìn xuống dưới (sau CMG="...") có DPB --> click vào B --> gõ x --> nhìn xuống dưới có GC --> click vào C --> gõ x
(cuối cùng ta có CMx, DPx, Gx)
--> Save
--> mở XLS bằng Excel --> có hỏi gì thì cứ OK (3 lần) --> khi mở xong thì chọn Save --> từ lần mở sau Excel không hỏi gì nữa
Khỏi cần Video hướng dẫn.
----------
Nếu HexEditor của bạn không click được vào G, B, C để đánh dấu và khi gõ x thì thay thế thì tôi đã đính kèm HexEditor ở dưới.

Hong.Van · 30/10/12

siwtom đã viết:
Trước hết cần lưu ý là không phải HexEditor nào cũng như nhau. Vd. với HE nghèo nàn như của tôi thì bạn không thể thao tác như ndu hướng dẫn (đặt trỏ sau 47 và Delete 3 phát ...)
Bạn làm thế này.
Mở XLS --> Tìm CMG --> click vào G (ký tự cuối) --> gõ x --> nhìn xuống dưới (sau CMG="...") có DPB --> click vào B --> gõ x --> nhìn xuống dưới có GC --> click vào C --> gõ x
(cuối cùng ta có CMx, DPx, Gx)
--> Save
--> mở XLS bằng Excel --> có hỏi gì thì cứ OK (3 lần) --> khi mở xong thì chọn Save --> từ lần mở sau Excel không hỏi gì nữa
Khỏi cần Video hướng dẫn.
----------
Nếu HexEditor của bạn không click được vào G, B, C để đánh dấu và khi gõ x thì thay thế thì tôi đã đính kèm HexEditor ở dưới.

Em cảm ơn các Thầy & anh chị!
Trước khi có bài gỡ PW của anh thì em đã dùng chương trình Office Password Recovery Toolbox, chương trình này chỉ gỡ PW BAV thông thường chứkg gỡ thằng Unviewable được!
Em có nghiên cứu một số trang như
http://www.pcreview.co.uk/forums/help-vba-password-lost-t3161183.html
...
Nhưng chưa được....
Có lẽ có nhiều nguyên do như chương trình Hexeditor của em dùng Free nên thiếu các chức năng, ví dụ như chương trình của Thầy Ndu khi bấm Ctrl+F nó ra cái khung khác, của em cái khung khác ...
--------
Nhân tiện đây cho em hỏi: những File Excel đã chuyển qua .exe thì có thể chuyển về .xls được không?
Em cảm ơn!

Quang_Hải · 30/10/12

Hong.Van đã viết:
Em cảm ơn các Thầy & anh chị!

Nhân tiện đây cho em hỏi: những File Excel đã chuyển qua .exe thì có thể chuyển về .xls được không?
Em cảm ơn!

Hic hình như là không thể trả vể .xls được rồi, nếu mất hết code trong file .exe đó thì xin chia buồn nhé

siwtom · 30/10/12

Hong.Van đã viết:
Nhân tiện đây cho em hỏi: những File Excel đã chuyển qua .exe thì có thể chuyển về .xls được không?
Em cảm ơn!

Tôi nghĩ là cái EXE kia chỉ là trá hình thôi. Từ đâu nó có "nội dung" file Excel để mà mở bằng Excel?
Vì vậy tôi nghĩ là toàn bộ nội dung file Excel "thằng" EXE kia nó có "trong cơ thể nó". Tức người viết code EXE "đính kèm" file Excel ở dạng resource (chuẩn), hoặc làm kiểu a ma tơ thì khi làm xong EXE thì dùng phần mềm "nối" file Excel vào đuôi EXE.
Khi EXE được kích hoạt thì nó "bung" file Excel từ resource, hoặc cắt từ đuôi EXE (tất nhiên cắt từ đâu thì cái phần mềm kia sẽ ghi, vd. 4 bai ở đuôi EXE sẽ dùng để ghi độ lớn của file Excel --> khi được kích hoạt thì EXE nhẩy tới 4 bai cuối để đọc độ lớn của file Excel, giả dụ là x --> EXE nhẩy tới bai cách bai cuối cùng (offset tính từ cuối) là x + 4 rồi đọc x bai - tóm lại phần mềm kia trước tiện ghi file Excel vào đuôi EXE sau đó ghi tiếp trong 4 bai độ lớn của file EXE, tổng cộng số bai ghi vào đuôi EXE là x + 4. Khi đọc ra thì EXE đọc 4 bai cuối để có x, sau đó nhẩy xuống cuối EXE "thực", tức offset = x + 4 tính từ cuối rồi đọc x bai liên tiếp), ghi lên đĩa
Do việc "nhúng" file Excel vào EXE có thể có nhiều cách (resource, a ma tơ) nên khó nói là lọc file Excel từ EXE như thế nào.
Nếu bạn đã từng dùng phần mềm để "convert" file Excel thành EXE thì hãy gửi lên cho tôi phần mềm đó. Tôi sẽ thử xem nó làm như thế nào. Nếu đúng là nó "nhúng" file Excel vào EXE thì chuyện tách ra không có gì là khó. Chỉ sợ là trước khi nhúng nó mã file Excel thì chịu vì biết nó mã thế nào để mà giải mã?
-----------------
Mà nếu đúng là khi được kích hoạt nó sẽ "bung" file Excel từ trong "cơ thể" nó rồi ghi trên đĩa cững để gọi Excel mở thì chỉ cần dò xem nó ghi ở đâu trên đĩa cứng thì lấy thôi. Cái dò này thì ai cũng làm được.
Bạn có file Excel đã được "convert" sang EXE không? Nếu không có gì bí mật thì gửi cho tôi xem.
--------------
Tất nhiên có thể mỗi thằng làm một khác, và không nhất thiết như tôi nói. Do có thể mỗi thằng làm một khác nên để biết chúng làm thế nào thì phải xét từng thằng cụ thể.
Vd. nếu bạn dùng thằng này

http://www.drmsoft.com/Excel-to-exe-converter.asp

thì tôi nghĩ việc lấy được file nguồn là hoàn toàn dễ dàng. Ít ra thì tôi cũng đã thử dùng nó để convert 1 file Excel sang EXE rồi khi kích hoạt EXE thì tôi lấy được file nguồn.

Hong.Van · 31/10/12

siwtom đã viết:
Bạn có file Excel đã được "convert" sang EXE không? Nếu không có gì bí mật thì gửi cho tôi xem.
--------------
Tất nhiên có thể mỗi thằng làm một khác, và không nhất thiết như tôi nói. Do có thể mỗi thằng làm một khác nên để biết chúng làm thế nào thì phải xét từng thằng cụ thể.
Vd. nếu bạn dùng thằng này

http://www.drmsoft.com/Excel-to-exe-converter.asp

thì tôi nghĩ việc lấy được file nguồn là hoàn toàn dễ dàng. Ít ra thì tôi cũng đã thử dùng nó để convert 1 file Excel sang EXE rồi khi kích hoạt EXE thì tôi lấy được file nguồn.

Chào anh!
Em kg sử dụng và tạo File .exe. Vì có tạo thì em fải thủ trước 1 File dự trữ rồi
Tình hình là như thế này, trước đây em có xem 1 File .exe chạy chương trình kế toán của 1 người bạn làm ở cty khác, em muốn bổ sung thêm một số đoạn code mà em sưu tầm được vào chương trình này. Vì thế em hỏi muốn chuyển từ File .exe về File .xls.
Sáng nay em có hỏi nó để lấy fần mềm này, nhưng chắc nó sợ lộ thông tin số liệu và sếp nó, nên nó kg muốn chuyển.
Em cảm ơn!

Quang_Hải · 7/11/12

Dùng Hex Editor để mở Unviewable của VBA, nhưng đối với dạng .xla thì mình làm thế nào để mở Unviewable hả các anh?

Hong.Van · 7/11/12

quanghai1969 đã viết:
Dùng Hex Editor để mở Unviewable của VBA, nhưng đối với dạng .xla thì mình làm thế nào để mở Unviewable hả các anh?

Anh hỏi thì mới để ý, kg tìm được CMG ... làm sao đổi được nhỉ?

ndu96081631 · 7/11/12

quanghai1969 đã viết:
Dùng Hex Editor để mở Unviewable của VBA, nhưng đối với dạng .xla thì mình làm thế nào để mở Unviewable hả các anh?

Thử gửi 1 file xla như thế lên đây nghiên cứu xem

Hong.Van · 7/11/12

ndu96081631 đã viết:
Thử gửi 1 file xla như thế lên đây nghiên cứu xem

File này đây, thầy xem

Quang_Hải · 7/11/12

ndu96081631 đã viết:
Thử gửi 1 file xla như thế lên đây nghiên cứu xem

Tác giả của file này là ai em không biết, nên không biết xin lỗi ai khi up file này lên đây.

ndu96081631 · 7/11/12

Hong.Van đã viết:
File này đây, thầy xem

quanghai1969 đã viết:
Tác giả của file này là ai em không biết, nên không biết xin lỗi ai khi up file này lên đây.

Cả 2 file đều bị lỗi. Thậm chí còn không dùng được trên Excel 2010 nên tôi chẳng biết phải test thế nào nữa

Quang_Hải · 7/11/12

ndu96081631 đã viết:
Cả 2 file đều bị lỗi. Thậm chí còn không dùng được trên Excel 2010 nên tôi chẳng biết phải test thế nào nữa

Lạ quá em mới test lại thì file vẫn bình thường. Có thể không mở được trên 2010

siwtom · 7/11/12

quanghai1969 đã viết:
Lạ quá em mới test lại thì file vẫn bình thường. Có thể không mở được trên 2010

Đây là project trên Excel 5.0/95 nên khi mở ra trên Excel 2007 thì có thông báo và VBA bị loại hết.
Của quanghai và Hong.Van đều như vậy.

http://i788.photobucket.com/albums/yy164/khachquaduong_2009/pass.jpg

View attachment 91848

l< i m · 7/11/12

Hong.Van đã viết:
File này đây, thầy xem

Code dưới này là thế nào vậy ta?
Tự đặt pass VBA khi mở file hay là tự đặt pass vba khi đóng file thế nhỉ?
có thể như vậy được sao? híc!

PHP:

' Setup & Registering functions

Sub auto_open()
    Application.EnableCancelKey = xlDisabled
    SetupFunctionIDs
    PickPlatform
    VerifyOpen
    RegisterFunctionIDs
End Sub

' O12:624902 - unregister analys32.xll if it's not installed so that funcres.xlam
'              closes and the UI is removed
Sub auto_close()
    Dim fATPInstalled As Boolean
    
    fATPInstalled = False
    For Each ai In Application.AddIns
        If UCase(ai.Name) = "ANALYS32.XLL" Then
            fATPInstalled = ai.Installed
            Exit For
        End If
    Next ai
    
    If Not fATPInstalled Then
        Application.ExecuteExcel4Macro ("unregister(""analys32.xll"")")
    End If
    
End Sub

Private Sub VerifyOpen()
    XLLName = ThisWorkbook.Sheets("Loc Table").Range(XLLNameCell).Value
    theArray = Application.RegisteredFunctions
    If Not (IsNull(theArray)) Then
        For i = LBound(theArray) To UBound(theArray)
            If (InStr(theArray(i, 1), XLLName)) Then
                Exit Sub
            End If
        Next i
    End If
    
    Quote = String(1, 34)
    ThisWorkbook.Sheets("REG").Activate
    WorkbookName = "[" & ThisWorkbook.Name & "]" & Sheet1.Name
    AnalysisPath = ThisWorkbook.Path
    
    AnalysisPath = AnalysisPath & DirSep
    XLLFound = Application.RegisterXLL(AnalysisPath & XLLName)
    If (XLLFound) Then
        Exit Sub
    End If
        
    AnalysisPath = ""
    XLLFound = Application.RegisterXLL(AnalysisPath & XLLName)
    If (XLLFound) Then
        Exit Sub
    End If
        
    AnalysisPath = LibPath
    XLLFound = Application.RegisterXLL(AnalysisPath & XLLName)
    If (XLLFound) Then
        Exit Sub
    End If
    
    XLLNotFoundErr = ThisWorkbook.Sheets("Loc Table").Range("B12").Value
    MsgBox (XLLNotFoundErr)
    ThisWorkbook.Close (False)
End Sub

Private Sub PickPlatform()
    Dim Platform
    
    ThisWorkbook.Sheets("REG").Activate
    Range("C3").Select
    Platform = Application.ExecuteExcel4Macro("LEFT(GET.WORKSPACE(1),3)")
    If (Platform = "Mac") Then
        DirSep = ThisWorkbook.Sheets("Loc Table").Range(MacDirSepCell).Value
        LibPath = ThisWorkbook.Sheets("Loc Table").Range(LibPathMacCell).Value
    Else
        DirSep = ThisWorkbook.Sheets("Loc Table").Range(WinDirSepCell).Value
        LibPath = ThisWorkbook.Sheets("Loc Table").Range(LibPathWinCell).Value
    End If
End Sub

Private Sub RegisterFunctionIDs()
    XLLName = ThisWorkbook.Sheets("Loc Table").Range(XLLNameCell).Value
    Quote = String(1, 34)
    For i = LBound(FunctionIDs) To UBound(FunctionIDs)
        Dim StrCall
        StrCall = "REGISTER.ID(" & Quote & AnalysisPath & XLLName & Quote & "," & Quote & FunctionIDs(i, 0) & Quote & ")"
        FunctionIDs(i, 1) = ExecuteExcel4Macro(StrCall)
    Next i
End Sub

Private Sub SetupFunctionIDs()
    FunctionIDs(0, 0) = "fnAnova1"
    FunctionIDs(1, 0) = "fnAnova2"
    FunctionIDs(2, 0) = "fnAnova3"
    FunctionIDs(3, 0) = "fnMCorrel"
    FunctionIDs(4, 0) = "fnMCovar"
    FunctionIDs(5, 0) = "fnDescr"
    FunctionIDs(6, 0) = "fnExpon"
    FunctionIDs(7, 0) = "fnFourier"
    FunctionIDs(8, 0) = "fnFtestV"
    FunctionIDs(9, 0) = "fnHistogram"
    FunctionIDs(10, 0) = "fnMoveAvg"
    FunctionIDs(11, 0) = "fnRandom"
    FunctionIDs(12, 0) = "fnRankPerc"
    FunctionIDs(13, 0) = "fnRegress"
    FunctionIDs(14, 0) = "fnSample"
    FunctionIDs(15, 0) = "fnTtestM"
    FunctionIDs(16, 0) = "fnTtestUeq"
    FunctionIDs(17, 0) = "fnTtestEq"
    FunctionIDs(18, 0) = "fnZtestM"
    FunctionIDs(19, 0) = "fnAnova1Q"
    FunctionIDs(20, 0) = "fnAnova2Q"
    FunctionIDs(21, 0) = "fnAnova3Q"
    FunctionIDs(22, 0) = "fnMCorrelQ"
    FunctionIDs(23, 0) = "fnMCovarQ"
    FunctionIDs(24, 0) = "fnDescrQ"
    FunctionIDs(25, 0) = "fnExponQ"
    FunctionIDs(26, 0) = "fnFourierQ"
    FunctionIDs(27, 0) = "fnFtestVQ"
    FunctionIDs(28, 0) = "fnHistogramQ"
    FunctionIDs(29, 0) = "fnMoveAvgQ"
    FunctionIDs(30, 0) = "fnRandomQ"
    FunctionIDs(31, 0) = "fnRankPercQ"
    FunctionIDs(32, 0) = "fnRegressQ"
    FunctionIDs(33, 0) = "fnSampleQ"
    FunctionIDs(34, 0) = "fnTtestMQ"
    FunctionIDs(35, 0) = "fnTtestUeqQ"
    FunctionIDs(36, 0) = "fnTtestEqQ"
    FunctionIDs(37, 0) = "fnZtestMQ"
End Sub

l< i m · 7/11/12

Tiếp!

PHP:

' ANALYSIS TOOLPAK  -  Excel AddIn
' The following function declarations provide interface between VBA and ATP XLL.

' These variables point to the corresponding cell in the Loc Table sheet.
Const XLLNameCell = "B8"
Const MacDirSepCell = "B3"
Const WinDirSepCell = "B4"
Const LibPathWinCell = "B10"
Const LibPathMacCell = "B11"

Dim DirSep As String
Dim LibPath As String
Dim AnalysisPath As String
Dim WorkbookName As String

Dim FunctionIDs(37, 0 To 1)

Private Function GetMacroRegId(FuncText As String) As String
    For i = LBound(FunctionIDs) To UBound(FunctionIDs)
        If (LCase(FunctionIDs(i, 0)) = LCase(FuncText)) Then
            If (Not (IsError(FunctionIDs(i, 1)))) Then
                GetMacroRegId = FunctionIDs(i, 1)
                Exit Function
            End If
        End If
    Next i
End Function

'Procedures
 
Sub Anova1(inprng As Variant, Optional outrng As Variant, Optional grouped As Variant, Optional labels As Variant, Optional alpha As Variant)
    xAnova1 = Application.Run(GetMacroRegId("fnAnova1"), inprng, outrng, grouped, labels, alpha)
End Sub

Sub Anova1Q(Optional inprng As Variant, Optional outrng As Variant, Optional grouped As Variant, Optional labels As Variant, Optional alpha As Variant)
    xAnova1Q = Application.Run(GetMacroRegId("fnAnova1Q"), inprng, outrng, grouped, labels, alpha)
End Sub

Sub Anova2(inprng As Variant, Optional outrng As Variant, Optional sample_rows As Variant, Optional alpha As Variant)
    xAnova2 = Application.Run(GetMacroRegId("fnAnova2"), inprng, outrng, sample_rows, alpha)
End Sub

Sub Anova2Q(Optional inprng As Variant, Optional outrng As Variant, Optional sample_rows As Variant, Optional alpha As Variant)
    xAnova2Q = Application.Run(GetMacroRegId("fnAnova2Q"), inprng, outrng, sample_rows, alpha)
End Sub

Sub Anova3(inprng As Variant, Optional outrng As Variant, Optional labels As Variant, Optional alpha As Variant)
    xAnova3 = Application.Run(GetMacroRegId("fnAnova3"), inprng, outrng, labels, alpha)
End Sub

Sub Anova3Q(Optional inprng As Variant, Optional outrng As Variant, Optional labels As Variant, Optional alpha As Variant)
    xAnova3Q = Application.Run(GetMacroRegId("fnAnova3Q"), inprng, outrng, labels, alpha)
End Sub

Sub Descr(inprng As Variant, Optional outrng As Variant, Optional grouped As Variant, Optional labels As Variant, Optional summary As Variant, Optional ds_large As Variant, Optional ds_small As Variant, Optional confid As Variant)
    xDescr = Application.Run(GetMacroRegId("fnDescr"), inprng, outrng, grouped, labels, summary, ds_large, ds_small, confid)
End Sub

Sub DescrQ(Optional inprng As Variant, Optional outrng As Variant, Optional grouped As Variant, Optional labels As Variant, Optional summary As Variant, Optional ds_large As Variant, Optional ds_small As Variant, Optional confid As Variant)
    xDescrQ = Application.Run(GetMacroRegId("fnDescrQ"), inprng, outrng, grouped, labels, summary, ds_large, ds_small, confid)
End Sub

Sub Expon(inprng As Variant, Optional outrng As Variant, Optional damp As Variant, Optional stderrs As Variant, Optional chart As Variant, Optional labels As Variant)
    xExpon = Application.Run(GetMacroRegId("fnExpon"), inprng, outrng, damp, stderrs, chart, labels)
End Sub

Sub ExponQ(Optional inprng As Variant, Optional outrng As Variant, Optional damp As Variant, Optional stderrs As Variant, Optional chart As Variant, Optional labels As Variant)
    xExponQ = Application.Run(GetMacroRegId("fnExponQ"), inprng, outrng, damp, stderrs, chart, labels)
End Sub

Sub Fourier(inprng As Variant, Optional outrng As Variant, Optional inverse As Variant, Optional labels As Variant)
    xFourier = Application.Run(GetMacroRegId("fnFourier"), inprng, outrng, inverse, labels)
End Sub

Sub FourierQ(Optional inprng As Variant, Optional outrng As Variant, Optional inverse As Variant, Optional labels As Variant)
    xFourierQ = Application.Run(GetMacroRegId("fnFourierQ"), inprng, outrng, inverse, labels)
End Sub

Sub Ftestv(inprng1 As Variant, inprng2 As Variant, Optional outrng As Variant, Optional labels As Variant, Optional alpha As Variant)
    xFtestv = Application.Run(GetMacroRegId("fnFtestV"), inprng1, inprng2, outrng, labels, alpha)
End Sub

Sub FtestvQ(Optional inprng1 As Variant, Optional inprng2 As Variant, Optional outrng As Variant, Optional labels As Variant, Optional alpha As Variant)
    xFtestvQ = Application.Run(GetMacroRegId("fnFtestVQ"), inprng1, inprng2, outrng, labels, alpha)
End Sub

Sub Histogram(inprng As Variant, Optional outrng As Variant, Optional binrng As Variant, Optional pareto As Variant, Optional chartc As Variant, Optional chart As Variant, Optional labels As Variant)
    xHistogram = Application.Run(GetMacroRegId("fnHistogram"), inprng, outrng, binrng, pareto, chartc, chart, labels)
End Sub

Sub HistogramQ(Optional inprng As Variant, Optional outrng As Variant, Optional binrng As Variant, Optional pareto As Variant, Optional chartc As Variant, Optional chart As Variant, Optional labels As Variant)
    xHistogramQ = Application.Run(GetMacroRegId("fnHistogramQ"), inprng, outrng, binrng, pareto, chartc, chart, labels)
End Sub

Có thể dùng vba để xóa vba đc không? (1 người xem)

Người dùng đang xem chủ đề này

Thành viên chính thức

Thành viên gạo cội

Huyền thoại GPE

Thành viên chính thức

Huyền thoại GPE

Thành viên chính thức

Busy

Thành viên chính thức

Thành viên gạo cội

Huyền thoại GPE

Thành viên chính thức

Huyền thoại GPE

Thành viên chính thức

Huyền thoại GPE

Thành viên gạo cội

Thành viên chính thức

Thành viên gạo cội

Thành viên chính thức

Thành viên gạo cội

Thành viên gạo cội

Thành viên chính thức

Thành viên gắn bó

Thành viên gạo cội

Thành viên chính thức

Thành viên tích cực

Huyền thoại GPE

Thành viên chính thức

Thành viên gắn bó

Thành viên tiêu biểu

Thành viên chính thức

Thành viên gắn bó

Huyền thoại GPE

Thành viên gạo cội

File đính kèm

Huyền thoại GPE

File đính kèm

Thành viên gạo cội

Thành viên gắn bó

Huyền thoại GPE

Thành viên chính thức

Thành viên tích cực

Huyền thoại GPE

Thành viên gắn bó

File đính kèm

Huyền thoại GPE

Thành viên gắn bó

Huyền thoại GPE

Thành viên gắn bó

Chuyên gia GPE

Thành viên tích cực

Chuyên gia GPE

Thành viên tích cực

Huyền thoại GPE

Chuyên gia GPE

Thành viên chính thức

Chuyên gia GPE

Thành viên tích cực

Thành viên tích cực

Thành viên tích cực

Huyền thoại GPE

Thành viên tích cực

Huyền thoại GPE

Thành viên tích cực

Thành viên chính thức

Thành viên gắn bó

Thành viên tích cực

Nguyễn Hoàng Nhi

Hướng tới tương lai

Thành viên chính thức

Thành viên gắn bó

Thành viên gắn bó

Thành viên gắn bó

Thành viên gắn bó

Thành viên tích cực