Code vba tự tạo pass project (1 người xem)

[nguyenkhoadng]

Chào các anh chị trên GPE!
em muốn nhờ các anh chị giúp 1 đoạn code vba có chức năng tự tạo pass project cho file excel. Nghĩa là khi chạy code thì file excel đó sẽ có pass project ngay. ko đặt pass bằng thủ công nữa, vì nhiều lúc cũng quên.
Mặc dù em cũng biết pass kiểu này những ai chơi code thì cớ 3s là vô hiệu ngay. tuy nhiên mục đích chính cùa e là hạn chế người dùng khác đụng đến code, làm file chạy ko chính xác. chỉ là hạn chế thôi các anh ah.

Em cảm ơn trước!

 

[haonlh]

Như vậy, khi bạn mở thì chương trình nó tự điền pass cho bạn.
Có vẻ rất là tiện.

Chỉ khó là làm sao chương trình biết là bạn hay ai vừa mở nó???

Vậy nên bạn phải có 1 thông báo nào đó để chương trình biết là bạn vừa mở chương trình. Cái thông báo đó phải bí mật đó, người khác mà biết là "toi".

Quẩn quanh thì vẫn phải tự làm pass, hoặc máy sinh pass tự động nhưng hiện thông báo để bạn nhớ nó (chắc là khó nhớ hơn pass do bạn tự tạo)

 

[nguyenkhoadng]

Mình vừa giải quyết được vấn đề trên.
Cảm ơn các bạn!

 

[haonlh]

Mình vừa giải quyết được vấn đề trên.
Cảm ơn các bạn!

Ồ, hay qua. Bạn hãy nêu cách làm. Ít ra là cũng có tôi rất quan tâm.
Cảm ơn trước

 

[nguyenkhoadng]

Sub VBProject()
    ProtectVBProject ActiveWorkbook, "1234"
End Sub


Sub ProtectVBProject(WB As Workbook, ByVal Password As String)
     
    Dim VBP As VBProject, oWin As VBIDE.Window
    Dim wbActive As Workbook
    Dim i As Integer
     
    Set VBP = WB.VBProject
    Set wbActive = ActiveWorkbook
     
    For Each oWin In VBP.VBE.Windows
        If InStr(oWin.Caption, "(") > 0 Then oWin.Close
    Next oWin
     
    WB.Activate

    Application.OnKey "%{F11}"
    SendKeys "+{TAB}{RIGHT}%V{+}{TAB}" & Password & "{TAB}" & Password & "~"
    Application.VBE.CommandBars(1).FindControl(ID:=2578, recursive:=True).Execute
    WB.Save
End Sub

Đoạn code trên đó bạn.