Nhờ ACE cao thủ sửa dùm macro sửa số liệu.

[vu_ctn]

mình có làm 1 file tính giá thành vật tư, nhưng sắp hết năm file của mình gặp sự cố. không thể sửa số liệu được.
mọi thắc mắc mình đã viết trong file đính kèm. Mong các ACE giúp đỡ. THank các ACE trước nhe.

Sorry bạn, mình quên. pass là 03020712. Thành thật xin lỗi các bạn

 

[SA_DQ]

File của bạn mình không thể sao lưu làm file trong máy mình được, cớ sao vậy bạn?

 

[vu_ctn]

file do dung dung vba sửa nên kg thể nào đổi tên khác đc.

 

[thanhlanh]

File của bạn mình không thể sao lưu làm file trong máy mình được, cớ sao vậy bạn?

Tại cái này nè Anh:

Private Sub workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel As Boolean)
Dim lReply As Long
If SaveAsUI = True Then
lReply = MsgBox("Xin loi ! Ban khong the luu file nay duoi bat ky ten nao khac, hay lien he voi tac gia theo SDT : 0906.737.717 (mail : [EMAIL="vu_ctn@zing.vn"]vu_ctn@zing.vn[/EMAIL]) de duoc huong dan.", vbQuestion + vbOKCancel)
Cancel = (lReply = vbCancel)
lReply = MsgBox("Ban co muon luu file nay duoi dang ten cu khong ?", vbQuestion + vbOKCancel)
Cancel = (lReply = vbCancel)
If Cancel = False Then Me.Save
Cancel = True
End If
End Sub

Vậy đúng chưa Bạn vu_tcn (xem file):


P/s: File của bạn khó hiểu quá, với lại theo mình thì khi gởi bài lên nhờ bạn nên tháo hết pass ra, mọi người sẽ nhiệt tình hơn!

 

[vu_ctn]

cảm ơn bạn đã xem file của mình và đã sửa theo đúng ý mình rồi. Đây chỉ là 1 macrro nhỏ trong file, các dữ liệu khác mình đã cắt bỏ nên bạn nhìn hơi khó hiểu đó.
Một lần nữa mình cảm ơn bạn đã đóng góp ý kiến nhiệt tinh, lần sau post bài mình sẽ tháo hết pass.