Mở file có pass bảo vệ

[challenge98]

Mọi người cho mình hỏi là giả sử mình có một file có pass mở là 123 pass chỉnh sửa là gpe vậy phải viết code thế nào để khi open nó không hỏi pass nữa mà tự đăng nhập khi run code trong VB6

   Set objXL = CreateObject("Excel.Application")
    With objXL
    .Workbooks.Open App.Path & "\Test.xls"
       .Run "VBAproject.Module1.Test"
        .DisplayAlerts = False
    End With
    Set objXL = Nothing

Vui lòng xem file đính kèm

 

[PhanTuHuong]

Thủ tục để mở file xls có pass:

Sub Macro1()
Workbooks.Open Filename:="C:\Users\PhanTuHuong\Documents\Book1.xls", Password:=321
End Sub

 

[tanlahill]

Cám ơn nhưng chưa đúng yêu cầu lắm!

Thủ tục để mở file xls có pass:

Thủ tục mở file có pass của bạn cần sửa lại như sau là OK luôn! Nhưng tôi chỉ gán nó vào button chứ không auto_open() được! Bạn vui lòng chỉnh lại giup mình là autorun với nghe. Cám ơn bạn nhiều!

Sub Macro1()
Workbooks.Open Filename:="D:\Tân\test.xls", Password:=123, WriteResPassword:="gpe"
End Sub

 

[tanlahill]

Xin hướng dẫn cụ thể hơn!

Mọi người cho mình hỏi là giả sử mình có một file có pass mở là 123 pass chỉnh sửa là gpe vậy phải viết code thế nào để khi open nó không hỏi pass nữa mà tự đăng nhập khi run code trong VB6

   Set objXL = CreateObject("Excel.Application")
    With objXL
    .Workbooks.Open App.Path & "\Test.xls"
       .Run "VBAproject.Module1.Test"
        .DisplayAlerts = False
    End With
    Set objXL = Nothing

Vui lòng xem file đính kèm

Đoạn code trên không thấy có tác dụng gì khi mở file cả? Xin vui lòng hướng dẫn cụ thể hơn bởi có thể tôi đặt code không đúng chỗ của nó! Rất cám ơn.