File bị khóa khi chạy Marco?

[KUMI]

Xin chào các thầy và BQT GPE!
Em đang mở mấy file để làm việc và có file chứa đoạn code như bên dưới:

Sub Prt()
Application.ScreenUpdating = False
    Dim Path$
    Application.DisplayAlerts = False
    i = ActiveWorkbook.Path & "/" & ActiveWorkbook.Name
    ActiveWorkbook.SaveAs Filename:=i, Password:=TxtFLFilter, CreateBackup:=False
    ActiveWorkbook.ProtectSharing
End Sub

Em chay thử code này chạy xong kết quả tất cả các file đang mở bị khóa lại.Nghĩa là khi mở file thì nó đòi Password dạng như đặt password Open đó ạ!
Mà em không biết password là gì để mở các file bị khóa nữa.
Thậm chí em cũng không hiểu nội dung của code trên ntn nữa(do tò mò nên mới chạy thử...hix).
Mong nhận được sự giúp đỡ của các thầy trong GPE.
Xin cảm ơn.

 

[ketxu]

Password:=TxtFLFilter
Giá trị TxtFLFilter bạn đã gán ở đâu chưa ?

 

[KUMI]

Password:=TxtFLFilter
Giá trị TxtFLFilter bạn đã gán ở đâu chưa ?

Em cũng loay hoay mãi với đoạn này,và không biết tìm ở đâu nữa.
Xin hỏi làm thế nào để biết nó gắn vào đâu ạ?
Mong các thầy chỉ giáo.

 

[ketxu]

Public Const TxtFLFilter = "TÏxt File,*.txt "
Bạn thử phần bôi đỏ xem

 

[KUMI]

Public Const TxtFLFilter = "TÏxt File,*.txt "
Bạn thử phần bôi đỏ xem

Cám ơn anh! Em đã chú ý đến phần này rồi và cpy phần bôi đỏ để làm pass nhập nhậpvaanx không được?

 

[dhn46]

pass: TÏxt File,*.txt
Chú ý có 1 khoảng trắng phía sau txt, bạn thử có được không.

 

[KUMI]

pass: TÏxt File,*.txt
Chú ý có 1 khoảng trắng phía sau txt, bạn thử có được không.

Đúng rồi ạ! Cám ơn anh & các bạn nhiều nhé!
Nhân đây xin hỏi luôn! Anh chị nào có bảng viết tắt của các ký tự đặc biệt thì cho em xin.
Thanks!