Xoá Password Open file

[gakon_Office]

Dear GPE!
Em đang vướng 1 vấn đề không biết làm thế nào cả.
Làm thế nào để tự xoá Pass Open file sau khi nhập đúng pass để vào file ạ!

Mong nhận được sự giúp đỡ của các chuyên gia GPE!
Em xin cảm ơn.

 

[viehoai]

Dear GPE!
Em đang vướng 1 vấn đề không biết làm thế nào cả.
Làm thế nào để tự xoá Pass Open file sau khi nhập đúng pass để vào file ạ!
Mong nhận được sự giúp đỡ của các chuyên gia GPE!
Em xin cảm ơn.

Trên diễn đàn không cho phép làm việc này bạn à. Tuy nhiên nếu bạn chứng minh được là file của bạn, gửi qua email mình sẽ giúp bạn (và đương nhiên bạn phải chịu trách nhiệm về việc này)

 

[ndu96081631]

Dear GPE!
Em đang vướng 1 vấn đề không biết làm thế nào cả.
Làm thế nào để tự xoá Pass Open file sau khi nhập đúng pass để vào file ạ!

Mong nhận được sự giúp đỡ của các chuyên gia GPE!
Em xin cảm ơn.

Thử vầy xem:

Sub Auto_Open()
  Application.DisplayAlerts = False
  ActiveWorkbook.SaveAs ThisWorkbook.FullName, , ""
  Application.DisplayAlerts = True
End Sub

 

[gakon_Office]

Trên diễn đàn không cho phép làm việc này bạn à. Tuy nhiên nếu bạn chứng minh được là file của bạn, gửi qua email mình sẽ giúp bạn (và đương nhiên bạn phải chịu trách nhiệm về việc này)

Thầy ơi thầy bị ám ảnh rồi!
Tất nhiên phải biết pass thì mới vào được chứ.
Mà đã biết thì việc xoá và đổi pass bằng công cụ Ex thì đơn giản mà.
Đằng này em muốn tự xoá sau khi nhập pass vào file mà (bằng VBA như thầy ndu ạ).
Cảm ơn các thầy