Viết code bỏ password

[pomete]

Tôi không biết viết marco mà chỉ biết ứng dụng thôi. Bây giờ tôi có một file tên là "Tong hop.xls" có password là: tonghop
Có code nào để khi mở file "Tong hop.xls" thì file sẽ được mở lên mà không phải nhập password nữa. Chú ý là code này chỉ áp dụng cho file có tên là "Tong hop.xls" và password thì không đổi (khi mở các file khác tên file này thì code sẽ không có tác dụng)
(có thể bỏ password đi cũng được)

Thanks!

 

[Po_Pikachu]

Cái này ko phải code kiết gì cả bạn à?
Chỉ đơn giản là bạn mở file Tong hop.xls ra rồi vào Tools -> Options -> chọn thẻ Security -> Nhập vào khung Open pass gì đó -> Nhập lại thêm lần nữa -> OK. Rồi Save file lại là xong.
Khi mở file đó ra nó sẽ hỏi Pass và chỉ riêng file này mới bị thôi.
Thân.

 

[pomete]

Không phải vậy, File "Tong hop.xls" này mình sẽ copy từ nguồn tổng về vì vậy mình muốn khi copy về máy của mình sẽ không phải đánh password ra nữa. Vì trên nguồn tổng thay đổi liên tục nên hàng ngày mình sẽ phải copy rất nhiều lần về và mỗi lần như vậy thì lại phải đánh password. Hơn nữa có rất nhiều file phải làm tương tự như vậy. Thanks!

 

[PhanTuHuong]

Cái này có lẽ dùng VB6 hay VBA từ chương trình hoặc file Excel khác để mở, nhưng phải khai báo chính xác đường dẫn.

 

[pomete]

Đúng rùi ah, đường dẫn lẫn tên file và password luôn luôn là cố định. Chính vì vậy em mới nghĩ là dùng code có thể viết được

 

[PhanTuHuong]

Chạy thủ tục này ở file xls nào đó:
Filename:="C:\Pass 321.xls" là tên đầy đủ đường dẫn file, bạn khai báo lại trong dấu ngoặc kép.
Password:="321" là tên pass, khai báo lại trong dấu ngoặc kép

Sub Mofile()
    Workbooks.Open Filename:="C:\Pass 321.xls", Password:="321"
End Sub

 

[pomete]

Cám ơn anh nhiều, mặc dù phải mở thông qua file khác nhưng cũng rất ok rùi!!!

 

[Po_Pikachu]

Bạn thử dùng Add-in này của mình xem. Đầu tiên bạn copy file TestFile.xla bỏ vào thư mục này:
C:\Documents and Settings\HOME\Application Data\Microsoft\Excel\XLSTART Rồi thử mở file Tong hop.xls lên xem. Nó sẽ hỏi Pass đó. Nếu file Tong hop.xls mà có tính toán quá nhiều thì chỉ cần mở file TestFile.xla ra chỉnh tăng thêm thông số Time là ổn ngay.
Thân.