nhờ mọi người hướng dẫn cách làm Project is unviewable

[Mutants Men]

mình có xem bài này nhưng khi làm thử theo hướng dẫn của #10 thì chương trình báo không tìm thấy bất kỳ chữ nào trong 3 chữ này (CMG, DPB và CG) cả
http://www.giaiphapexcel.com/forum/...rkbook-Sheet-VBAProject-Project-is-unviewable
và mình có thử làm luôn #9 nhưng khi hoàn thành xong thì mất luôn thanh công cụ thao tác mà đã tạo ra trước đó
mình dùng win 7 64 bit + office 2013 & 2016 32bit

 

[Kiều Mạnh]

mình có xem bài này nhưng khi làm thử theo hướng dẫn của #10 thì chương trình báo không tìm thấy bất kỳ chữ nào trong 3 chữ này (CMG, DPB và CG) cả
http://www.giaiphapexcel.com/forum/...rkbook-Sheet-VBAProject-Project-is-unviewable
và mình có thử làm luôn #9 nhưng khi hoàn thành xong thì mất luôn thanh công cụ thao tác mà đã tạo ra trước đó
mình dùng win 7 64 bit + office 2013 & 2016 32bit

Thì trong một loạt bài đó hướng dẫn hết rồi đó vào đó mà từ từ ngâm cứu

Mình khuyên thật lòng nha:

1/ khi Bạn viết code thì nên đặt pass VBA thôi khi cần chỉnh sủa code thì mở nó nhanh mà chỉnh sữa ...

2/ Đề phòng người khác vô tình bấm quái quỷ gì đó lỗi code họ thấy mấy chữ tiếng anh việt lung tung xóa đi thì tèo

3/ Còn nói dóc một tí cho vui Pass tui mở chớt mắt Nếu bạn nào cố chấp thì dòng này bỏ qua vì nói dóc chơi thôi mà No comment dòng này ....hahahahaha

 

[Bảy Dzõ]

Bạn Kieumanh đâu nói dóc, thật ra VBA ấp chỉ dành cho các bạn mới bước chân vào VBA thôi còn đối với cao thủ thì chả là gì cả... Bạn Kieumanh thuộc hàng cao thủ rồi nên bạn không nói dóc rồi. Thân

 

[Mutants Men]

Thì trong một loạt bài đó hướng dẫn hết rồi đó vào đó mà từ từ ngâm cứu

Mình khuyên thật lòng nha:

1/ khi Bạn viết code thì nên đặt pass VBA thôi khi cần chỉnh sủa code thì mở nó nhanh mà chỉnh sữa ...

2/ Đề phòng người khác vô tình bấm quái quỷ gì đó lỗi code họ thấy mấy chữ tiếng anh việt lung tung xóa đi thì tèo

3/ Còn nói dóc một tí cho vui Pass tui mở chớt mắt Nếu bạn nào cố chấp thì dòng này bỏ qua vì nói dóc chơi thôi mà No comment dòng này ....hahahahaha

thì em chỉ làm chơi hù gà mờ không biết vba thôi mà bác, chứ mấy đại cao thủ thì sao em hù đc huống gì em còn là cùi bắp tiên sinh mà. vậy chắc đành giữ file chạy chơi 1 mình lun quóa.

 

[doveandrose]

thì em chỉ làm chơi hù gà mờ không biết vba thôi mà bác, chứ mấy đại cao thủ thì sao em hù đc huống gì em còn là cùi bắp tiên sinh mà. vậy chắc đành giữ file chạy chơi 1 mình lun quóa.

tôi ủng hộ bạn hết mình , Kiều Mạnh và các bạn khác không được chọc chủ topic nha .
vì nguồn file excel Unviewable trên mạng giờ rất khan hiếm , cần được bảo tồn và nâng niu , chứ bạn Kiều Mạnh chọc người ta quá thì đến 1 ngày chả còn file excel Unviewable nào cho Kiều Mạnh nghiên cứu nữa .

 

[thaipv]

mình có xem bài này nhưng khi làm thử theo hướng dẫn của #10 thì chương trình báo không tìm thấy bất kỳ chữ nào trong 3 chữ này (CMG, DPB và CG) cả
http://www.giaiphapexcel.com/forum/...rkbook-Sheet-VBAProject-Project-is-unviewable
và mình có thử làm luôn #9 nhưng khi hoàn thành xong thì mất luôn thanh công cụ thao tác mà đã tạo ra trước đó
mình dùng win 7 64 bit + office 2013 & 2016 32bit

Gửi các bạn file mình viết để tạo Project is unviewable áp dụng cho file .xls, .xla (Nếu file khác như .xlsm, .xlsb, .xlam, ... thì các bạn trích xuất lấy file vbaproject.bin trong tập tin nén nhé)

 

[Kiều Mạnh]

thì em chỉ làm chơi hù gà mờ không biết vba thôi mà bác, chứ mấy đại cao thủ thì sao em hù đc huống gì em còn là cùi bắp tiên sinh mà. vậy chắc đành giữ file chạy chơi 1 mình lun quóa.

Tính mình hay cà chớn một tí vậy đó .... bỏ qua đi nha .....Bài #5 nói đúng đó
Sorry Bạn nhiều Nhiều..........vui vẻ ha đừng có mới chọc tẹo là nản

 

[phulien1902]

Gửi các bạn file mình viết để tạo Project is unviewable áp dụng cho file .xls, .xla (Nếu file khác như .xlsm, .xlsb, .xlam, ... thì các bạn trích xuất lấy file vbaproject.bin trong tập tin nén nhé)

Bài viết của bạn rất hữu ích. Bạn có thể chia sẻ cách mở khóa được không? Cám ơn bạn nhiều.

 

[thaipv]

Bài viết của bạn rất hữu ích. Bạn có thể chia sẻ cách mở khóa được không? Cám ơn bạn nhiều.

Bạn nghiên cứu lại bài viết của anh Phong nhé
(http://www.giaiphapexcel.com/forum/...rkbook-Sheet-VBAProject-Project-is-unviewable)

 

[Mutants Men]

Gửi các bạn file mình viết để tạo Project is unviewable áp dụng cho file .xls, .xla (Nếu file khác như .xlsm, .xlsb, .xlam, ... thì các bạn trích xuất lấy file vbaproject.bin trong tập tin nén nhé)

sao thấy không tác dụng bác nhỉ. mỉnh thử lưu file của bác thành .xlsm rồi mở file .xlsm thử trên file .xls thì nó mất hết cả code trong file đó nhỉ?

 

[phulien1902]

Bạn nghiên cứu lại bài viết của anh Phong nhé
(http://www.giaiphapexcel.com/forum/...rkbook-Sheet-VBAProject-Project-is-unviewable)

Bài của anh Phong là 1 cách, chỉ mất 1-2 giây.
Còn Code của bạn mình biết cách mở khóa rồi.
Cảm ơn bài viết của bạn.

 

[thaipv]

sao thấy không tác dụng bác nhỉ. mỉnh thử lưu file của bác thành .xlsm rồi mở file .xlsm thử trên file .xls thì nó mất hết cả code trong file đó nhỉ?
View attachment 155389

Bạn thứ với file khác nhé, file của mình có đặt 1 số chỗ 'ảo' (có nhiều CMG, PDP, GC) nên sẽ không có tác dụng với cách này.
Tuy nhiên đây cũng chỉ là 1 cách thôi (không dùng được với mọi trường hợp), bạn hãy kết hợp nhiều cách khác nữa nhé.

 

[Mutants Men]

Bạn thứ với file khác nhé, file của mình có đặt 1 số chỗ 'ảo' (có nhiều CMG, PDP, GC) nên sẽ không có tác dụng với cách này.
Tuy nhiên đây cũng chỉ là 1 cách thôi (không dùng được với mọi trường hợp), bạn hãy kết hợp nhiều cách khác nữa nhé.

mình làm trên file .xlam không được bạn à
"vbaproject.bin trong tập tin nén nhé" file đó ở đâu bạn
mình có thử đổi

[/FONT][/COLOR][code]File1 = Left$(File0, Len(File0) - 4) & " -LockCode" & Right$(File0, 4)

thành

File1 = Left$(File0, Len(File0) - 5) & " -LockCode" & Right$(File0, 5)

và

.Filters.Add "Tap tin ho tro", "*.xls,*.bin,".xlsm"

nhưng không được nhỉ. mong bạn chỉ giúp.

 

[thaipv]

mình làm trên file .xlam không được bạn à
"vbaproject.bin trong tập tin nén nhé" file đó ở đâu bạn
mình có thử đổi

[/FONT][/COLOR][code]File1 = Left$(File0, Len(File0) - 4) & " -LockCode" & Right$(File0, 4)

thành

File1 = Left$(File0, Len(File0) - 5) & " -LockCode" & Right$(File0, 5)

và

.Filters.Add "Tap tin ho tro", "*.xls,*.bin,".xlsm"

nhưng không được nhỉ. mong bạn chỉ giúp.

Đối với những file excel trước 2007 (.xls, .xla) bạn làm bình thường.
Đối với những file excel 2007 trở về sau (.xlsm, .xlsb, .xlam, ...), bạn làm theo các bước :
+ Đổi tâp thành file nén (đối đuôi thành .zip hoặc .rar)
+ Giải nén file vbaproject.bin trong \xl của file nén trên
+ Dùng LockCode để tạo 'Project is unviewable' giống như đối với file excel trước 2007
+ Ghi đè file vbaproject.bin (mới - Phải đổi lại tên cho đúng) vào file nén (ở bước 1)
+ Làm ngược lại bước 1
Chúc thành công

Những dòng code trên bạn sửa không đúng, chỉ sửa dòng này thôi :

.Filters.Add "Tap tin ho tro", "*.xls,*.xla,*.bin"

(Lý do : Thêm file .xla, code trước mình viết thiếu)

 

[Mutants Men]

Đối với những file excel trước 2007 (.xls, .xla) bạn làm bình thường.
Đối với những file excel 2007 trở về sau (.xlsm, .xlsb, .xlam, ...), bạn làm theo các bước :
+ Đổi tâp thành file nén (đối đuôi thành .zip hoặc .rar)
+ Giải nén file vbaproject.bin trong \xl của file nén trên
+ Dùng LockCode để tạo 'Project is unviewable' giống như đối với file excel trước 2007
+ Ghi đè file vbaproject.bin (mới - Phải đổi lại tên cho đúng) vào file nén (ở bước 1)
+ Làm ngược lại bước 1
Chúc thành công

Những dòng code trên bạn sửa không đúng, chỉ sửa dòng này thôi :


(Lý do : Thêm file .xla, code trước mình viết thiếu)

cảm ơn bạn, kết quả rất MỸ MÃN -> mất hết code, chỉ còn giữ lại ribbon

 

[thaipv]

cảm ơn bạn, kết quả rất MỸ MÃN -> mất hết code, chỉ còn giữ lại ribbon

Vậy bạn làm theo cách của anh Phong nhé (mình cũng dựa vào lý thuyết đó mà viết code thôi) (sửa ký tự bất kỳ trong chuỗi CGM, PBD, GC)
Hoặc bạn cũng có thể gửi trực tiếp file về email của mình

 

[Mutants Men]

Vậy bạn làm theo cách của anh Phong nhé (mình cũng dựa vào lý thuyết đó mà viết code thôi) (sửa ký tự bất kỳ trong chuỗi CGM, PBD, GC)
Hoặc bạn cũng có thể gửi trực tiếp file về email của mình

mình cũng đã thử với winhex trước kia dùng rack hitosoft rồi mà vẫn không tài nào tìm đc chuỗi CGM,PBD,GC trong file mình đã làm. vậy có gì chỉ hộ mình. mình sẽ gửi file qua mail. cho mình mail nhé.

 

[thaipv]

mình cũng đã thử với winhex trước kia dùng rack hitosoft rồi mà vẫn không tài nào tìm đc chuỗi CGM,PBD,GC trong file mình đã làm. vậy có gì chỉ hộ mình. mình sẽ gửi file qua mail. cho mình mail nhé.

Bạn đọc kỹ lại #15 đi nhé, sẽ tìm được 3 mã trên (trong file vbaproject.bin) đó. Bạn có thể dùng HxD (miễn phí - tự tìm Google nhé) để sửa mã Hex.

Mail của mình là thaipv@live.com