Xử lý trường hợp VBA này như nào? (1 người xem)

[cuongyb87]

các bạn cho mình hỏi chút. mình bị trường hợp chạy file VBA như sau thì sử lý sao.
file VBA lúc đầu có mật khẩu và hàm yêu điều kiện lúc mở không đúng là tự xóa. mình mở trên máy A lên lần đầu thấy báo lỗi, sau đó mình tải lại. rồi gỡ mật khẩu và điều kiện tự xóa đi. file đã chạy được nhưng khi chạy thì một fom điền thông tin vẫn bị lỗi. mình copy file gốc sang một máy tính khác máy B làm tương tự nhưng khóa chạy VBA để xóa pass và điều kiện kill file thì file đó chạy bình thường fom bị lỗi kia chạy bình thường không lỗi. mình gửi file chạy được trên máy B sang máy A nhưng chạy trên máy A vẫn bị lỗi đó mình nghĩ là do máy A lúc đầu khi chạy excel đã lưu lại cái gì đó của cái file VBA đó nên bị vậy mình tắt máy đi khởi động lại cũng không được. bạn nào giải thích giúp mình với

 

[Cu Tồ]

1.Xử lý chứ không phải "sử lý"
2.Còn phải xem cái form đó có liên quan gì với cái lệnh kill file kia không nói chung là đọc mô tả đoán không ra bệnh trừ khi người có kinh nghiệm làm cái này nhiều
3.sẽ ít người trả lời câu hỏi của bạn khi đọc mỗi mô tả mà không xem file để biết nó có liên quan như thế nào và một phần nữa là vì người ta muốn tôn trọng tác giả viết ra file đó

 

[tigertiger]

các bạn cho mình hỏi chút. mình bị trường hợp chạy file VBA như sau thì sử lý sao.
file VBA lúc đầu có mật khẩu và hàm yêu điều kiện lúc mở không đúng là tự xóa. mình mở trên máy A lên lần đầu thấy báo lỗi, sau đó mình tải lại. rồi gỡ mật khẩu và điều kiện tự xóa đi. file đã chạy được nhưng khi chạy thì một fom điền thông tin vẫn bị lỗi. mình copy file gốc sang một máy tính khác máy B làm tương tự nhưng khóa chạy VBA để xóa pass và điều kiện kill file thì file đó chạy bình thường fom bị lỗi kia chạy bình thường không lỗi. mình gửi file chạy được trên máy B sang máy A nhưng chạy trên máy A vẫn bị lỗi đó mình nghĩ là do máy A lúc đầu khi chạy excel đã lưu lại cái gì đó của cái file VBA đó nên bị vậy mình tắt máy đi khởi động lại cũng không được. bạn nào giải thích giúp mình với

Tốt nhất là hỏi tác giả gốc của code đó
Còn đã phá thì nên im lặng, la làng thì khác chi là .....
Tóm lại nên tôn trọng code người khác, có như thế mới phát triển được tiếp.

 

[befaint]

Mình gửi file đó lên đây nhé..

 

[cuongyb87]

1.Xử lý chứ không phải "sử lý"
2.Còn phải xem cái form đó có liên quan gì với cái lệnh kill file kia không nói chung là đọc mô tả đoán không ra bệnh trừ khi người có kinh nghiệm làm cái này nhiều
3.sẽ ít người trả lời câu hỏi của bạn khi đọc mỗi mô tả mà không xem file để biết nó có liên quan như thế nào và một phần nữa là vì người ta muốn tôn trọng tác giả viết ra file đó

file này thì cũng đi xin ở đâu đó thôi bạn, người đi xin cũng không rõ tác giả là ai. do công việc có thêm yêu cầu mới nên cần có những chỉnh sửa, đợt này mình đang mày mò VBA nên muốn học từ việc này luôn. mong được ae chỉ giúp.

Bài đã được tự động gộp: 1/12/20

Mình gửi file đó lên đây nhé..

file này thì cũng đi xin ở đâu đó thôi bạn, người đi xin cũng không rõ tác giả là ai. do công việc có thêm yêu cầu mới nên cần có những chỉnh sửa, đợt này mình đang mày mò VBA nên muốn học từ việc này luôn. mong được ae chỉ giúp.

Bài đã được tự động gộp: 1/12/20

Tốt nhất là hỏi tác giả gốc của code đó
Còn đã phá thì nên im lặng, la làng thì khác chi là .....
Tóm lại nên tôn trọng code người khác, có như thế mới phát triển được tiếp.

file này thì cũng đi xin ở đâu đó thôi bạn, người đi xin cũng không rõ tác giả là ai. do công việc có thêm yêu cầu mới nên cần có những chỉnh sửa, đợt này mình đang mày mò VBA nên muốn học từ việc này luôn. mong được ae chỉ giúp.

 

[Maika8008]

các bạn cho mình hỏi chút. mình bị trường hợp chạy file VBA như sau thì sử lý sao.
file VBA lúc đầu có mật khẩu và hàm yêu điều kiện lúc mở không đúng là tự xóa. mình mở trên máy A lên lần đầu thấy báo lỗi, sau đó mình tải lại. rồi gỡ mật khẩu và điều kiện tự xóa đi. file đã chạy được nhưng khi chạy thì một fom điền thông tin vẫn bị lỗi. mình copy file gốc sang một máy tính khác máy B làm tương tự nhưng khóa chạy VBA để xóa pass và điều kiện kill file thì file đó chạy bình thường fom bị lỗi kia chạy bình thường không lỗi. mình gửi file chạy được trên máy B sang máy A nhưng chạy trên máy A vẫn bị lỗi đó mình nghĩ là do máy A lúc đầu khi chạy excel đã lưu lại cái gì đó của cái file VBA đó nên bị vậy mình tắt máy đi khởi động lại cũng không được. bạn nào giải thích giúp mình với

Chắc bạn đoán đúng rồi. Người ta lấy thông tin của máy A để làm điều kiện bảo mật và lưu ở đâu đó.

 

[Maika8008]

Viết về vụ bảo mật file và cũng tiện thể xem sau 15 phút thì chức năng gộp bài tự động có hoạt động không.

File của bạn đang dùng bảo mật bằng cách dùng mật khẩu kết hợp kiểm tra số hiệu của CPU trong máy của người dùng. Tuy nhiên mọi cốt kiếc phơi trần ra cả trong Workbook_Open. Tôi nghĩ khi bạn đã vộ hiệu hóa được các điều kiện này thì đã dùng được. Còn chuyện 1 form bị lỗi là do người viết code sai gì đó thôi.

 

[cuongyb87]

Chắc bạn đoán đúng rồi. Người ta lấy thông tin của máy A để làm điều kiện bảo mật và lưu ở đâu đó.

máy B là máy bàn của mình bạn ah. mình tải về trên máy A là laptop của mình làm như lúc đầu thấy không được nên copy xuống máy B. tắt macro đi và vào được code, mình xóa hết phần đăng nhập thì chạy bình thường. làm lại như vậy tương tự trên máy A thì không được, gửi cả file chạy được trên máy B lên máy A chạy cũng bị lỗi.

Bài đã được tự động gộp: 1/12/20

Viết về vụ bảo mật file và cũng tiện thể xem sau 15 phút thì chức năng gộp bài tự động có hoạt động không.

File của bạn đang dùng bảo mật bằng cách dùng mật khẩu kết hợp kiểm tra số hiệu của CPU trong máy của người dùng. Tuy nhiên mọi cốt kiếc phơi trần ra cả trong Workbook_Open. Tôi nghĩ khi bạn đã vộ hiệu hóa được các điều kiện này thì đã dùng được. Còn chuyện 1 form bị lỗi là do người viết code sai gì đó thôi.

bây giờ là thế nào mà bỏ được bảo mật nó trên máy A của mình được bạn. mình đã xóa hết các file, gỡ đi cài lại office, tải lại file mới về làm vẫn không được.

 

[Maika8008]

máy B là máy bàn của mình bạn ah. mình tải về trên máy A là laptop của mình làm như lúc đầu thấy không được nên copy xuống máy B. tắt macro đi và vào được code, mình xóa hết phần đăng nhập thì chạy bình thường. làm lại như vậy tương tự trên máy A thì không được, gửi cả file chạy được trên máy B lên máy A chạy cũng bị lỗi.

Bài đã được tự động gộp: 1/12/20

bây giờ là thế nào mà bỏ được bảo mật nó trên máy A của mình được bạn. mình đã xóa hết các file, gỡ đi cài lại office, tải lại file mới về làm vẫn không được.

Tôi đã dùng và bị code kill file nhưng sau đó tôi copy lại file gốc rồi vẫn dùng lại bình thường. Không có lý gì mà dùng file bị lỗi khi bạn vô hiệu hết các sub bảo mật cả

 

[Maika8008]

Lúc khác, khi làm trên máy tính, tôi sẽ gửi file đã gỡ hết các hạn chế cho bạn.

 

[cuongyb87]

Tôi đã dùng và bị code kill file nhưng sau đó tôi copy lại file gốc rồi vẫn dùng lại bình thường. Không có lý gì mà dùng file bị lỗi khi bạn vô hiệu hết các sub bảo mật cả

m làm trên 2 máy tính thì một máy được và một máy lỗi 1 ô nhập thông tin. cũng không biết sao nữa.

Bài đã được tự động gộp: 1/12/20

Lúc khác, khi làm trên máy tính, tôi sẽ gửi file đã gỡ hết các hạn chế cho bạn.

cảm ơn bạn, giúp mình chút nhé.

 

[befaint]

giúp mình chút

Có người chỉ cho cách vào mục "ThisWorkbook" xóa hết code đi là được. Vậy mình chưa làm hay sao mà vẫn hỏi hoài?

 

[Maika8008]

m làm trên 2 máy tính thì một máy được và một máy lỗi 1 ô nhập thông tin. cũng không biết sao nữa.

Bài đã được tự động gộp: 1/12/20

cảm ơn bạn, giúp mình chút nhé.

Tôi gửi kèm file như đã nói.

Còn chuyện ô bị lỗi, ô nào lỗi thì nói luôn ra đi. Bạn hỏi mà cũng hà tiện, tôi rất ghét kiểu vậy.

 

[cuongyb87]

Tôi gửi kèm file như đã nói.

Còn chuyện ô bị lỗi, ô nào lỗi thì nói luôn ra đi. Bạn hỏi mà cũng hà tiện, tôi rất ghét kiểu vậy.

Cảm ơn bạn nhe. Mình đang muốn là cái video cho dễ thấy nhưng đang bận quá.

 

[cuongyb87]

Tôi gửi kèm file như đã nói.

Còn chuyện ô bị lỗi, ô nào lỗi thì nói luôn ra đi. Bạn hỏi mà cũng hà tiện, tôi rất ghét kiểu vậy.

bạn xem video lỗi nó đây bạn. mình khó hiểu lắm

 

[Maika8008]

bạn xem video lỗi nó đây bạn. mình khó hiểu lắm

Vụ này bạn xem lại bộ gõ trên máy bị lỗi. Thử tắt tiếng Việt đi rồi gõ thử

 

[befaint]

lỗi

Ấn vào cái nút khoanh đỏ mình à.

 

[cuongyb87]

Vụ này bạn xem lại bộ gõ trên máy bị lỗi. Thử tắt tiếng Việt đi rồi gõ thử

mình đã thử tắt tiếng việt, tắt bộ gõ, gỡ bộ gõ ra nhưng vẫn bị lỗi đó. điền chữ thì được thỏa mái số thì chỉ được 3 số như vậy.

Bài đã được tự động gộp: 1/12/20

Ấn vào cái nút khoanh đỏ mình à.


View attachment 250379

ấn rồi không được bạn ơi, không hiểu sao.

 

[VetMini]

Ấn vào cái nút khoanh đỏ mình à.
...

Chỉ luôn cái nút sửa tiêu đề.

 

[Maika8008]

mình đã thử tắt tiếng việt, tắt bộ gõ, gỡ bộ gõ ra nhưng vẫn bị lỗi đó. điền chữ thì được thỏa mái số thì chỉ được 3 số như vậy.

Kỳ ha. Chỉ có 1 máy ấy bị lỗi nên khó thiệt. Để dò lại sự kiện của texbox xem

 

[cuongyb87]

Kỳ ha. Chỉ có 1 máy ấy bị lỗi nên khó thiệt. Để dò lại sự kiện của texbox xem

Uk mình cũng đau đầu vụ này đang muốn tìm nguyên nhân. Chứ cài lại win chắc sẽ hết.

 

[batman1]

Uk mình cũng đau đầu vụ này đang muốn tìm nguyên nhân. Chứ cài lại win chắc sẽ hết.

Ai lại đi cài lại Win khi chưa biết rõ có phải do Win hay không.

1. Mở tập tin mới cứng, chọn 1 ô trên sheet. Gõ được mấy chữ số?
2. Thêm UserForm với TextBox vào tập tin ở điểm 1. Khi hiện Form thì gõ được mấy chữ số trong TextBox?
3. Mở các phần mềm khác, vd. notepad, Word ... Bây giờ gõ được mấy chữ số?

 

[cuongyb87]

Ai lại đi cài lại Win khi chưa biết rõ có phải do Win hay không.

1. Mở tập tin mới cứng, chọn 1 ô trên sheet. Gõ được mấy chữ số?
2. Thêm UserForm với TextBox vào tập tin ở điểm 1. Khi hiện Form thì gõ được mấy chữ số trong TextBox?
3. Mở các phần mềm khác, vd. notepad, Word ... Bây giờ gõ được mấy chữ số?

các ô khác nhập dữ liệu bình thường bạn. bạn xem video mình test chưa cùng một file nhưng máy bàn thì được máy laptop thì không. bạn đọc từ đầu sẽ rõ.

 

[Maika8008]

Uk mình cũng đau đầu vụ này đang muốn tìm nguyên nhân. Chứ cài lại win chắc sẽ hết.

Máy bị lỗi đó đang dùng định dạng number kiểu gì: dấu phẩy hay dấu chấm cho phân cách hàng ngàn? Vào control panel thử đổi lại ngược lại xem.

 

[batman1]

các ô khác nhập dữ liệu bình thường bạn. bạn xem video mình test chưa cùng một file nhưng máy bàn thì được máy laptop thì không. bạn đọc từ đầu sẽ rõ.

Máy bàn là máy khác. Ý tôi là cùng trên 1 máy bị lỗi, tức laptop, hãy kiểm tra 3 điểm kia.

 

[batman1]

Máy bị lỗi đó đang dùng định dạng number kiểu gì: dấu phẩy hay dấu chấm cho phân cách hàng ngàn? Vào control panel thử đổi lại ngược lại xem.

Liên quan gì nhỉ? Nếu tôi nhấn 1, 2, ..., 9, tức không gõ dấu thập phân, không gõ phân cách hàng nghìn mà không được thì đâu có phải là do dấu này hay dấu kia?

Nhưng để kiểm tra thì xóa code

Private Sub txt29_Change()
Me.txt29 = Format(Me.txt29.Value, "#,##0")

End Sub

 

[cuongyb87]

Máy bị lỗi đó đang dùng định dạng number kiểu gì: dấu phẩy hay dấu chấm cho phân cách hàng ngàn? Vào control panel thử đổi lại ngược lại xem.

đã thử nhưng vẫn lỗi bạn ơi. khoai thật

Bài đã được tự động gộp: 1/12/20

Laptop là máy khác. Ý tôi là cùng trên 1 máy bị lỗi, tức máy bàn, hãy kiểm tra 3 điểm kia.

vấn đề mình đang muốn biết tại sao cùng 1 file mà máy chạy được máy không. máy không chạy được thì cài lại cả office xóa hết cả key trong regedit rồi. khó hiểu quá

Bài đã được tự động gộp: 1/12/20

Liên quan gì nhỉ? Nếu tôi nhấn 1, 2, ..., 9, tức không gõ dấu thập phân, không gõ phân cách hàng nghìn mà không được thì đâu có phải là do dấu này hay dấu kia?

Nhưng để kiểm tra thì xóa code

Private Sub txt29_Change()
Me.txt29 = Format(Me.txt29.Value, "#,##0")

End Sub

là file của mình thiếu đoạn code này ah bạn.

 

[batman1]

đã thử nhưng vẫn lỗi bạn ơi. khoai thật

Bài đã được tự động gộp: 1/12/20

vấn đề mình đang muốn biết tại sao cùng 1 file mà máy chạy được máy không. máy không chạy được thì cài lại cả office xóa hết cả key trong regedit rồi. khó hiểu quá

Hiện thời ta chỉ biết là trên laptop thì lỗi. Bạn hỏi lý do thì thánh cũng không trả lời được, vì đơn giản là thánh không ngồi trên máy bạn. Vì thế thánh mới đề̉ nghị kiểm tra trên laptop 3 điểm đã nêu. Nhưng bạn không muốn thử mà chỉ muốn thánh cho biết nguyên nhân lỗi. Vậy thì thánh nói rõ: tôi, thánh đây, tôi không biết nguyên nhân. Vì thế tôi đề nghị kiểm tra để loại bỏ dần dần những khả nghi và tiến dần tới đích. Nhưng bạn không muốn nhọc công thì thôi.

Tôi chấm dứt tại đây. Tôi sẽ không trả lời nữa.

 

[Maika8008]

Liên quan gì nhỉ? Nếu tôi nhấn 1, 2, ..., 9, tức không gõ dấu thập phân, không gõ phân cách hàng nghìn mà không được thì đâu có phải là do dấu này hay dấu kia?

Nhưng để kiểm tra thì xóa code

Private Sub txt29_Change()
Me.txt29 = Format(Me.txt29.Value, "#,##0")

End Sub

Tôi nghĩ thế vì khi nạp dữ liệu của 1 KH vào thì textbox đó hiển thị dấu phẩy phân cách hàng ngàn, nhưng khi tự gõ vào thì nó là dấu chấm.

Bài đã được tự động gộp: 1/12/20

đã thử nhưng vẫn lỗi bạn ơi. khoai thật

Bài đã được tự động gộp: 1/12/20

vấn đề mình đang muốn biết tại sao cùng 1 file mà máy chạy được máy không. máy không chạy được thì cài lại cả office xóa hết cả key trong regedit rồi. khó hiểu quá

Bài đã được tự động gộp: 1/12/20

là file của mình thiếu đoạn code này ah bạn.

Bạn thử điểm 2 của batman1 đi.

 

[cuongyb87]

Hiện thời ta chỉ biết là trên laptop thì lỗi. Bạn hỏi lý do thì thánh cũng không trả lời được, vì đơn giản là thánh không ngồi trên máy bạn. Vì thế thánh mới đề̉ nghị kiểm tra trên laptop 3 điểm đã nêu. Nhưng bạn không muốn thử mà chỉ muốn thánh cho biết nguyên nhân lỗi. Vậy thì thánh nói rõ: tôi, thánh đây, tôi không biết nguyên nhân. Vì thế tôi đề nghị kiểm tra để loại bỏ dần dần những khả nghi và tiến dần tới đích. Nhưng bạn không muốn nhọc công thì thôi.

Tôi chấm dứt tại đây. Tôi sẽ không trả lời nữa.

vấn đề mình là dân gà VBA bạn ơi, chứ hiểu ý và biết là đã thử luôn rồi.
cái 1 và 3 thì mình thử rồi mọi thứ bình thường. đang trả lời trên laptop lỗi đây 11123116546

 

[batman1]

Tôi nghĩ thế vì khi nạp dữ liệu của 1 KH vào thì textbox đó hiển thị dấu phẩy phân cách hàng ngàn, nhưng khi tự gõ vào thì nó là dấu chấm.

Sau khi xem code thấy có Sub txt29_Change thì tôi viết

Nhưng để kiểm tra thì xóa code

Bạn có cho là có thể xóa cái chưa có, chưa tồn tại không? *** Tôi nghĩ đã là xóa thì chỉ xóa được cái đang có, đang tồn tại.

*** Tôi hỏi vì có thể tôi nhầm lẫn. Rằng vẫn có thể xóa cái chưa có.

 

[ptm0412]

*** Tôi hỏi vì có thể tôi nhầm lẫn. Rằng vẫn có thể xóa cái chưa có.

Em xác định với thánh là có. Em tải đúng cái file trong clip, mở lên và tìm tất cả code liên quan đến txt29, kể cả code đọc, ghi vào nó rồi. Máy em chạy bình thường và em không phải thánh nên cũng không trả lời được cái nguyên nhân

 

[cuongyb87]

Sau khi xem code thấy có Sub txt29_Change thì tôi viết

Bạn có cho là có thể xóa cái chưa có, chưa tồn tại không? *** Tôi nghĩ đã là xóa thì chỉ xóa được cái đang có, đang tồn tại.

*** Tôi hỏi vì có thể tôi nhầm lẫn. Rằng vẫn có thể xóa cái chưa có.

bác nghiên cứu xem có phát hiện ra cái gì không

Bài đã được tự động gộp: 1/12/20

Em xác định với thánh là có. Em tải đúng cái file trong clip, mở lên và tìm tất cả code liên quan đến txt29, kể cả code đọc, ghi vào nó rồi. Máy em chạy bình thường và em không phải thánh nên cũng không trả lời được cái nguyên nhân

Bài đã được tự động gộp: 1/12/20

Tôi nghĩ thế vì khi nạp dữ liệu của 1 KH vào thì textbox đó hiển thị dấu phẩy phân cách hàng ngàn, nhưng khi tự gõ vào thì nó là dấu chấm.

Bài đã được tự động gộp: 1/12/20

Bạn thử điểm 2 của batman1 đi.

 

[truongvu317]

bác nghiên cứu xem có phát hiện ra cái gì không

Để ý thì thấy khi gõ 3 số 2, thì được 222 ( mọi chuyện vẫn ổn). Khi gõ thêm số 2 ( tức lúc này có 4 số 2) thì nó xóa chỉ còn một số 2. Tôi đoán nếu gõ 1234 thì nó sẽ thành 1. Có thể khi gõ 1234 thì nó chuyển thành 1,234, rồi nó lại chuyển 1,234 thành 1 ( do sự kiện được gọi 2 lần).

thử thay bằng đoạn code này trong form:

Private Sub txt29_Change()

Dim d As Double
d = VBA.CDbl(txt29.Text)
Me.txt29 = Format(d, "#,##0")

End Sub

Mà hỏi luôn chủ thớt có biết cho cái đoạn code trên vào chỗ nào không?

Bài đã được tự động gộp: 1/12/20

Tôi chấm dứt tại đây. Tôi sẽ không trả lời nữa.

Sao cứ cảm thấy chủ thớt này như mới học vba, cái gì cũng mới lạ, chính vậy cứ đơ như cây cơ trước những điều bác nói.

 

[batman1]

Sao cứ cảm thấy chủ thớt này như mới học vba, cái gì cũng mới lạ, chính vậy cứ đơ như cây cơ trước những điều bác nói.

Tôi viết rất rõ

Nhưng để kiểm tra thì xóa code

Private Sub txt29_Change()
Me.txt29 = Format(Me.txt29.Value, "#,##0")

End Sub

Có 2 câu hỏi:
1. Có thể xóa cái chưa có không? Câu trả lời "không" có nghĩa là đoạn code trên ĐANG TỒN TẠI.

Cái từ "Xóa" kia có khó hiểu không? Có cần lanh lợi đặc biệt để hiểu không? Nếu không thì sao lại đặt câu hỏi (nhưng lại không có dấu hỏi): "là file của mình thiếu đoạn code này ah bạn."
Còn một khi đã hiểu là đoạn code kia tồn tại thì dò từng dòng để xem nó ở đâu rồi xóa thôi, đâu có cần lanh lợi mà viện cớ không biết VBA?


2. Nếu ở điểm 1 câu trả lời là "không" thì cứ làm như tôi yêu cầu rồi xem kết quả như thế nào và "Báo cáo sếp ..."

Thế thôi, ai đâu có thời gian viết nhiều, van nài.

 

[cuongyb87]

có ae nào có nhã hứng muốn thử làm thì pm zalo mình 0935798386 để ultraview nhé.

 

[ptm0412]

Chủ đề này không giải quyết được do người hỏi không đáp ứng phương pháp kiểm tra lỗi của người muốn giúp. Ngoài ra tác giả chủ đề cũng muốn kết thúc không hỏi nữa, nên tôi đóng chủ đề này lại.