Giúp em mở khoá VBA chạy code cho sổ kế toán?

[hitlecp]

Chào các anh, chị!
Hiện file này của em là do người cũ nghĩ việc ngang nên khi giao file sổ kế toán này chạy bằng code VBA đã khoá mật khẩu, có anh, chị nào mở khoá được giúp em với và cho số liệu chạy ở các sheet "SDDK_CN" , "CDSPS". Nhờ các anh, chị giúp em ạ
Em cám ơn!

 

[VetMini]

Bảo công ty liên hệ với chính quyền buộc người kia phải mở khoá.
Nếu người ấy lý luận rằng code của mình (*) thì bảo người ấy mở khoá và xoá code đi. Bạn tự mở khoá là vi phạm bản quyền của người viết code.

(*) thường thì những gì ở công ty là sở hữu của công ty. Nếu người kia chứng mình rằng code của mình từ nhà đem vào thì đó là lỗi của công ty không chịu kiểm soát.
Theo nguyên tắc thì người kế toán khi thôi việc có bổn phận phải để lại sổ sách trong tình trạng đang hoạt động.

 

[quick87]

Chào các anh, chị!
Hiện file này của em là do người cũ nghĩ việc ngang nên khi giao file sổ kế toán này chạy bằng code VBA đã khoá mật khẩu, có anh, chị nào mở khoá được giúp em với và cho số liệu chạy ở các sheet "SDDK_CN" , "CDSPS". Nhờ các anh, chị giúp em ạ
Em cám ơn!

file không có pass bạn ơi, click ok là được:

 

[hitlecp]

dạ, sao sheet "CDSPS" số liệu không chạy vậy ạ?

 

[hitlecp]

các Anh, chị giúp em với ạ, sheet "CDSPS" sao không chạy được số liệu vậy ạ?

 

[NghiaKieu]

Hình như do code không chạy được trên win 64 bit thôi.

 

[hitlecp]

Hình như do code không chạy được trên win 64 bit thôi.

Có cách nào trên win10 64bit chạy được không ạ?

 

[vanaccex]

Có cách nào trên win10 64bit chạy được không ạ?

Bạn thử sửa theo kiểu này xem

#If VBA7 And Win64 Then
Declare PtrSafe Function SetTimer Lib "user32" (ByVal hWnd As LongPtr, ByVal nIDEvent As LongPtr, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr)
Private Declare PtrSafe Function KillTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long
#Else
Private Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Private Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
#End If