Tôi không tải file bạn, nhưng bạn xem file tôi viết có thể áp dụng cho file của mình được hay không? Trong file có tham khảo code ở link sau:
Làm vậy cũng được, nhưng phần lớn người dùng sẽ không biết đưa UAC về mức thấp nhất (Có thể viết hướng dẫn nhưng cách này sẽ không được chuyên nghiệp lắm). Vì vậy viết được code làm luôn điều này nửa mới ngon, tức là trước khi Update mình đưa nó về mức thất nhất, sau đó Update, khi update xong trả nó về hiện trạng ban đầu (dùng luôn code VBA) nhưng hiện tại mình tịch cái vụ này. Nên cách giải quyết hiện tại là cho phép người dùng chọn đường dẫn lưu file setup về máy, sau đó cài lại file setup, thấy hơi phiền.Có cách này: bạn hiện thông báo "nếu muốn cập nhật thành công vui lòng bật UAC về mức MIN rồi bấm cập nhật".
Hoặc chạy bằng CMD với quyền Administrator: ShellExecute
Không bạn ơi.
Hay quá
Hay lắm, nhưng có cách nào nó tự click ok luôn hong hén.Tôi không tải file bạn, nhưng bạn xem file tôi viết có thể áp dụng cho file của mình được hay không? Trong file có tham khảo code ở link sau:
VBProject non protégé du code VB
webdevdesigner.com
Cách này ổn. Tôi đã dùng kiểu này. Khi thay đổi code, tôi chỉ cần gửi cho người dùng 1 file trống. Người dùng chạy sub chuyển hết dữ liệu từ file cũ sang. Các name (nếu có), format đều code để mang sang hết.Thực ra là tôi chưa trải nghiệm cái vụ phân phối ứng dụng bằng Excel và tung ra các bản nâng cấp của nó sau đó.
Vì ứng dụng Excel không có tách được dữ liệu ra riêng và ứng dụng giao diện người dùng riêng nên việc tung các bản cập nhật sẽ gặp khó khăn trong việc chuyển dữ liệu đang sử dụng sang file mới.
Theo tôi nếu bạn thiết kế CSDL kỹ lưỡng, chuẩn hoá, dữ liệu lưu trong các sheet riêng thì có thể dùng cách copy (viết code để đồng bộ) các dữ liệu gốc này sang file mới và chạy thôi. Một chú ý quan trọng là bản nâng cấp không đụng gì tới việc thay đổi cấu trúc, thiết kế bảng dữ liệu (không thêm cột, thay đổi thứ tự cột v.v..).
Một số ý kiến cá nhân là vậy, để các bạn chuyên về ứng dụng trên nền Excel góp ý thêm nhé.
Mình tạo ra 3 file để điều khiển bởi vì mình phải quản lý thêm nember và phân quyền cho từng người.
Anh ơi,Tôi không tải file bạn, nhưng bạn xem file tôi viết có thể áp dụng cho file của mình được hay không? Trong file có tham khảo code ở link sau:
VBProject non protégé du code VB
Nếu bạn muốn thay nhiều Module thì bạn phải cho nó vào vòng lặp chứ. Ví dụ
For i = 1 To UBound(Arr)
Set Md = .VBProject.VBComponents.Import(Arr(i))
Md.Name = Arr_New(i)
Next i If UCase(mdlName) = Module_Name Then
.VBProject.VBComponents.Remove .VBProject.VBComponents(mdlName)
Exit For
End IfPrivate Sub InsertModule()
Dim Wb As Workbook, mdlName As String, Md As Object
Dim sh As Worksheet, nameArr, pathArr
Dim J As Integer, i As Integer, eR As Integer, K As Integer
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'Neu lay du lieu tu Sheet thi cho chay dong code duoi day
'Call GetData 'Dong code này se khong can chay neu khai bao hang
Set Wb = ThisWorkbook
Set sh = Wb.Sheets("Update")
Call UnlockProject(Wb.VBProject, Pass) 'Test_UnlockProject(Pass)
eR = sh.Range("A100").End(xlUp).Row
With Wb
For J = .VBProject.VBComponents.Count To 1 Step -1
If .VBProject.VBComponents(J).Type = 1 Or .VBProject.VBComponents(J).Type = 3 Then '.Type = 0
mdlName = .VBProject.VBComponents(J).name '.CodeModule.name
For K = 1 To eR
ReDim Module_Name(K)
Module_Name(K) = sh.Range("A" & K).Value
If UCase(mdlName) = UCase(Module_Name(K)) Then
.VBProject.VBComponents.Remove .VBProject.VBComponents(mdlName)
'Exit For
End If
Next K
End If
Next J
'----------------------------------------------------------------
For i = 1 To eR
ReDim pathArr(i)
ReDim Module_Name(i)
Module_Name(i) = sh.Range("A" & i).Value
pathArr(i) = sh.Range("C" & i).Value
Set Md = .VBProject.VBComponents.Import(pathArr(i))
Md.name = Module_Name(i)
Next i
.Save
'.Close True
End With
Set Md = Nothing
Set Wb = Nothing
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
