Mở khoá bằng vba đc không bạn, thí dụ pass là 1234. Thì viết trong code để mở khoá giống như unprotect sheet được không?
Dạ, gần như vâỵ ạ. Xin chỉ giáo. Cảm ơn anh,
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 đó.
Mình cũng có thiết kế 1 file tự cập nhật khi có phiên bản mới
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é.
Thật ra giờ mình cũng không hình dung ra cách làm như thế nào nữa
Trong hệ thống này mình đã cắt khá nhiều code. không phải bảo mật nên chia sẻ về cách update của mình nhé.
Mình cũng có suy nghĩ đó. triệu likeCó 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
là như thế nào anhCó 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
Nói qua nói lại tới sáng cũng chưa xong bạn muốn gì thì đưa cái file thực tế cần lên chứ cứ đoán mò thế này ko ai giúp dc bạn đâu !
giải nén xong bạn mở file "File ng khac su dung" lên là code sẽ chạy. mình mở khóa sẵn rồi nha.
còn đối với file "Member_Data" thì không có code đâu nên các bạn không cần xem gì đâu.
thắc mắc gì cứ hú mình nhé. nếu có time mình sẽ phản hồi.
Ah thêm nữa trong hệ thống này cũng cố một số code mình chưa xóa. các bạn có thể lấy tham khỏa nha. khá nhiều code hay đấy.
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.
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
