Có thể viết Code "lừa máy tính" khi cài Phần mềm nó cài vào ổ D thay vì ổ C

[Phanhanhdai]

Máy của cơ quan em họ đặt chế độ Admin nên không cho cài đặt phần mềm, trong khi đó nhiều file em làm thêm Copy từ các máy khác nó rất nhiều Name rác, em muốn cài VirusMacroWarning của anh Nguyễn Duy Tuân để rọn dẹp. Tuy nhiên, khi cài vào C\Windows thì do không có Admin nên không thể cài được.

Em xin hỏi có thể viết Code nào có thể tạo ra cách nào đó để có thể tạm thời VirusMacroWarning được không?

Em rất cần tình huống này, rất mong nhận được sự giúp đỡ./.

 

[Phanhanhdai]

Em xin phép hỏi Name Manager 4.1 của thày DOSNET tại http://www.giaiphapexcel.com/forum/...me-manager-4-1-Công-cụ-quản-lý-name-tuyệt-vời hoặc VirusMacroWarning của thày Nguyễn Duy Tuân tại http://bluesofts.net/index.php?option=com_content&view=article&id=81&Itemid=91&lang=vi có thể chuyển sang Add-Ins được không? Nếu có thể được kính nhờ các tác giả giúp đỡ dùm em, em đang rất cần cái này
[h=2][/h]

 

[ndu96081631]

Máy của cơ quan em họ đặt chế độ Admin nên không cho cài đặt phần mềm, trong khi đó nhiều file em làm thêm Copy từ các máy khác nó rất nhiều Name rác, em muốn cài VirusMacroWarning của anh Nguyễn Duy Tuân để rọn dẹp. Tuy nhiên, khi cài vào C\Windows thì do không có Admin nên không thể cài được.

Em xin hỏi có thể viết Code nào có thể tạo ra cách nào đó để có thể tạm thời VirusMacroWarning được không?

Em rất cần tình huống này, rất mong nhận được sự giúp đỡ./.

Tôi không hiểu sao bạn lại thấy khó khăn trong mấy vụ này thế nhỉ? Cài không được phần mềm thì đừng cài, bắt virus bằng tay vậy!
Bạn tham gia diễn đàn đã lâu, lý nào mấy trò chơi cỏn con này vẫn chưa học được?
Phần mềm này đúng là cần thiết nhưng cùng lắm cũng chỉ cần thiết cho dân.. không biết gì về tin học... còn các bạn đã là thành viên GPE, cũng có thể tạm coi là có chút tay nghề về Excel, chẳng lý nào không tự mình vặt lông được mấy con virus tào lao ấy!

 

[Phanhanhdai]

Tôi không hiểu sao bạn lại thấy khó khăn trong mấy vụ này thế nhỉ? Cài không được phần mềm thì đừng cài, bắt virus bằng tay vậy!
Bạn tham gia diễn đàn đã lâu, lý nào mấy trò chơi cỏn con này vẫn chưa học được?
Phần mềm này đúng là cần thiết nhưng cùng lắm cũng chỉ cần thiết cho dân.. không biết gì về tin học... còn các bạn đã là thành viên GPE, cũng có thể tạm coi là có chút tay nghề về Excel, chẳng lý nào không tự mình vặt lông được mấy con virus tào lao ấy!

Lâu em đi công tác, không làm văn phòng, về xóa Name em chỉ còn nhớ cách xóa bằng Excel2010 (Ctrl+F3), nhưng nhiều Name rất cứng đầu xóa không nổi, nhờ thày chỉ dùm em vài chiều "vặt lông được mấy con virus tào lao ấy", em đang cần gấp (rất nhiều file dự toán, thanh quyết toán của em trong tình trạng như vậy).

 

[ndu96081631]

Lâu em đi công tác, không làm văn phòng, về xóa Name em chỉ còn nhớ cách xóa bằng Excel2010 (Ctrl+F3), nhưng nhiều Name rất cứng đầu xóa không nổi, nhờ thày chỉ dùm em vài chiều "vặt lông được mấy con virus tào lao ấy", em đang cần gấp (rất nhiều file dự toán, thanh quyết toán của em trong tình trạng như vậy).

Nếu file không có macro, bạn cứ SaveAs nó thành xlsx rồi dùng thằng này để xóa nhé (ngược lại, file có macro thì SaveAs thành xlsm)
Cách dùng:
- Đóng file của bạn lại
- Mở file DelName.xlsm
- Bấm nút 'Del Names' chỉ đến file của bạn rồi.. chờ
- Khi có thông báo đã xóa xong, mở file của bạn để kiểm tra
-----------------
Khuyến mãi luôn file dùng để xóa Style rác (cách dùng tương tự).
Yêu cầu:
- File của bạn phải được Save thành xlsm hoặc xlsx thì dùng tool mới hiệu quả
- Trên máy bạn có cài WinRAR

 

[Phanhanhdai]

Yêu cầu:
- File của bạn phải được Save thành xlsm hoặc xlsx thì dùng tool mới hiệu quả
- Trên máy bạn có cài WinRAR

Thưa thày tại sao lại cần có Winrar trong khi chạy Code, bởi vì sau khi em giải nén em phải chạy nó bằng Portable( Excel2010), bỏi Excel cài trên máy họ không cho chạy Code, khi tìm file xóa name thì nó báo lỗi (No Archives Found)

 

[ndu96081631]

Thưa thày tại sao lại cần có Winrar trong khi chạy Code, bởi vì sau khi em giải nén em phải chạy nó bằng Portable( Excel2010), bỏi Excel cài trên máy họ không cho chạy Code, khi tìm file xóa name thì nó báo lỗi (No Archives Found)

Bạn xem code trong file sẽ biết, bên trong có dùng công cụ giải nén của WinRAR, mục đích để giải nén file xlsx, xlsm rồi xử lý nội dung bên trong để xóa name hoặc style
Thế thôi!
Ngoài ra trước khi muốn xóa name 1 file nào đó (A.xls chẳng hạn) thì bạn phải SaveAs A.xls thành A.xlsx hoặc A.xlsm nhé

 

[Phanhanhdai]

Toàn bộ các file của em không có macro, em đã chuyển tất cả sang .xlsx, em thử bỏ một số đoạn liên quan đến xlsm nhưng chạy vẫn chưa được (do lâu rồi em không sử dụng Code), kính nhờ thày chỉ giúp em bỏ đoạn Code trong file xóa Name, để khi chạy nó không cần Winra nữa.

 

[ndu96081631]

Toàn bộ các file của em không có macro, em đã chuyển tất cả sang .xlsx, em thử bỏ một số đoạn liên quan đến xlsm nhưng chạy vẫn chưa được (do lâu rồi em không sử dụng Code), kính nhờ thày chỉ giúp em bỏ đoạn Code trong file xóa Name, để khi chạy nó không cần Winra nữa.

Code xóa name cũng đơn giản thôi

Sub DelNames()
  Dim N As Name
  On Error Resume Next
  For Each N In ActiveWorkbook.Names
    N.Visible = True
    N.Delete
  Next
End Sub

Nhưng dám cá với bạn rồi nó cũng sẽ không xóa được những name cứng đầu.
Với file tôi đưa ở trên lại khác, nó xử lý mà không mở file, chỉ "giải phẩu" file ra xử lý bên trong (bằng cách dùng WinRAR) nên sẽ không có bất cứ name cứng đầu nào "sống nỗi"

 

[Lê Duy Thương]

Nếu file không có macro, bạn cứ SaveAs nó thành xlsx rồi dùng thằng này để xóa nhé (ngược lại, file có macro thì SaveAs thành xlsm)
Cách dùng:
- Đóng file của bạn lại
- Mở file DelName.xlsm
- Bấm nút 'Del Names' chỉ đến file của bạn rồi.. chờ
- Khi có thông báo đã xóa xong, mở file của bạn để kiểm tra
-----------------
Khuyến mãi luôn file dùng để xóa Style rác (cách dùng tương tự).
Yêu cầu:
- File của bạn phải được Save thành xlsm hoặc xlsx thì dùng tool mới hiệu quả
- Trên máy bạn có cài WinRAR

vậy file . xlsb có chạy được không anh. em hay dùng đuôi xlsb nên chưa dám thử

 

[ndu96081631]

Bạn xem cách tôi dùng Tool (tại bài 5) để xóa 1 file chứa virus cứng đầu đây. Một phát sạch láng:

[video=youtube;49paTs-uPbU]http://www.youtube.com/watch?v=49paTs-uPbU&feature=youtu.be[/video]

 

[ndu96081631]

vậy file . xlsb có chạy được không anh. em hay dùng đuôi xlsb nên chưa dám thử

Chắc là không được! Vì khi giải nén file xlsb bằng WinRAR, bên trong nó không tìm thấy file workbook.xml như loại file xlsx hoặc xlsm
Nói chung, kiểu file xlsb phải nghiên cứu lại

 

[thanhlanh]

To ndu: Nó xóa sạch hết tất cả các Name, kể cả các Name đang sử dụng, file bị tèo thì sao bạn?

 

[Phanhanhdai]

Code xóa name cũng đơn giản thôi

....
Với file tôi đưa ở trên lại khác, nó xử lý mà không mở file, chỉ "giải phẩu" file ra xử lý bên trong (bằng cách dùng WinRAR) nên sẽ không có bất cứ name cứng đầu nào "sống nỗi"[/QUOTE]

Thưa thày, có nghĩa là muốn xóa file cứng đầu thì cơ chế xóa triệt để như thày nói ở trên nhất thiết phải có Winra?

 

[siwtom]

Toàn bộ các file của em không có macro, em đã chuyển tất cả sang .xlsx, em thử bỏ một số đoạn liên quan đến xlsm nhưng chạy vẫn chưa được (do lâu rồi em không sử dụng Code), kính nhờ thày chỉ giúp em bỏ đoạn Code trong file xóa Name, để khi chạy nó không cần Winra nữa.

Tôi không hiểu bạn. Bạn viết

Tuy nhiên, khi cài vào C\Windows thì do không có Admin nên không thể cài được

Tức là bạn không cài được vào C:\Windows. Cứ cho là bạn không cài được vào cả C:\Program Files hay nói chung không cài được trên C.

Nhưng một khi bạn đã viết tiêu đề

Có thể viết Code "lừa máy tính" khi cài Phần mềm nó cài vào ổ D thay vì ổ C

thì tôi hiểu là bạn có khả năng cài phần mềm trên D.
Thế thì tại sao bạn lại không cài WinRAR trên D? Khi cài phần mềm "đàng hoàng", mà WinRAR là phần mềm đàng hoàng chứ không phải phần mềm của ông a ma tơ nào đó, thì bạn có quyền quyết định cài ở đâu cơ mà. Hay từ trước tới giờ khi cài phần mềm bạn không đọc các thông báo mà cứ nhắm mắt nhấn "NEXT"?

Tất nhiên một số phần mềm tuy cho chọn drive khác nhưng một số tập tin vẫn phải ghi trên phân vùng cài hđh (vd. C:\Windows\System32) nhưng WinRAR tôi nghĩ không ghi thêm ở đâu cả.

Đã nói mãi là qui trình xóa Name rác đã nêu cần tới WinRAR mà bạn chả hiểu gì cả. Nếu đã nghĩ ra cách không cần WinRAR thì "người ta" đã trình bạn luôn rồi chứ đâu lại cho bạn cách dùng WinRAR cho rách việc?

 

[Phanhanhdai]

Tôi không hiểu bạn. Bạn viết



Tức là bạn không cài được vào C:\Windows. Cứ cho là bạn không cài được vào cả C:\Program Files hay nói chung không cài được trên C.

Dạ, cái này em viết không rõ: Chẳng là máy cơ quan em họ không cho cài bất cứ phần mềm nào trên ổ C bác ah, kể cả Excel2007 họ không cho phép chạy Marco nên em phải sài Portable,

Tuy vậy khi chạy Excel bằng Portable (nó không liên hệ được với Winra trên ổ C) nên chương trình của thày Ndu không chạy được.

 

[siwtom]

Dạ, cái này em viết không rõ: Chẳng là máy cơ quan em họ không cho cài bất cứ phần mềm nào trên ổ C bác ah, kể cả Excel2007 họ không cho phép chạy Marco nên em phải sài Portable,

Tuy vậy khi chạy Excel bằng Portable (nó không liên hệ được với Winra trên ổ C) nên chương trình của thày Ndu không chạy được.

Thế thì cái tiêu đề nó có nghĩa thế nào? Nếu không cài được trên cả D thì sao lại có tiêu đề như thế?
Nếu không cài được ở bất cứ đâu thì bạn thử xem:
1. Về nhà "cài - bung" WinRAR sang USB
2. Trong tập tin xóa Name viết đường dẫn tới WinRAR trên USB
---------
À mà sao lại có cái này

nó không liên hệ được với Winra trên ổ C

???

Như vậy thì cuối cùng bạn đã cài được WinRAR trên C hay không?. Vì câu trên đỏ đỏ nói như thế.
Nếu cài được WinRAR rồi thì trong tập tin xóa Name thử viết đường dẫn đầy đủ tới WinRAR xem sao.

 

[Phanhanhdai]

Híc, xin lỗi bác do em không có chuyên môn nên diễn tả khó hiểu quá, em xin giải thích chút nữa ah:

Máy chỗ em họ đã cài Winra sẵn rồi, tuy nhiên em chạy file của thày Ndu bằng Portable Excel thì không được. Vì em đoán rằng Portable là môi trường ảo, nó không liên quan gì đến Windows hay Program của ổ C, vì lẽ đó nên khi xóa Name bằng chương trình của thày Ndu nó hiểu không tìm thấy Winra chăng?

(Ý em là Excel Portable và Winra cài trong ổ C sống ở hai môi trường khác nhau nên không cơ sự liên hệ với nhau?)

 

[ndu96081631]

Híc, xin lỗi bác do em không có chuyên môn nên diễn tả khó hiểu quá, em xin giải thích chút nữa ah:

Máy chỗ em họ đã cài Winra sẵn rồi, tuy nhiên em chạy file của thày Ndu bằng Portable Excel thì không được. Vì em đoán rằng Portable là môi trường ảo, nó không liên quan gì đến Windows hay Program của ổ C, vì lẽ đó nên khi xóa Name bằng chương trình của thày Ndu nó hiểu không tìm thấy Winra chăng?

(Ý em là Excel Portable và Winra cài trong ổ C sống ở hai môi trường khác nhau nên không cơ sự liên hệ với nhau?)

Tôi không nghĩ là Excel Portable lại không chạy được!
Như anh siwtom đã nói, thử viết đường dẫn đầy đủ cho WinRAR xem.
Cụ thể trong code, dòng thứ tư có đoạn:
Private Const rarApp = "winrar.exe"
Vậy bạn sửa dòng này thành:
Private Const rarApp = "C:\Program Files\WinRAR\winrar.exe"
Nói chung là đường dẫn chỉ chính xác đến file WinRAR.exe trên máy bạn
Thử xem

 

[Phanhanhdai]

............
Cụ thể trong code, dòng thứ tư có đoạn:
Private Const rarApp = "winrar.exe"
Vậy bạn sửa dòng này thành:
Private Const rarApp = "C:\Program Files\WinRAR\winrar.exe"
Nói chung là đường dẫn chỉ chính xác đến file WinRAR.exe trên máy bạn
Thử xem

Em thử rồi, chạy rất chuẩn ah, thày cho em hỏi tại sao lại phải chuyển xls--> xlsx thì nó mới diệt hiệu quả.