Sửa Code mở file có password to open và modify

[AnhThu-1976]

Em chào các anh chị thành viên
Em đang ở 1 file, mà muốn mở 1 file tên là Xoa1, mà file này chỉ có 1 pass word to open (pass: 123) thì code

Sub Macro2()

Workbooks.Open Filename:= _
                   "C:\Users\Admin\Dropbox\Nam_2024\TS\SoSachKT\Xoa1.xlsm", Password:="123"
                  
    Windows("Xoa1.xlsm").Activate

End Sub

bây giờ file Xoa1 có pass word to open là 123 và pass word to modify là 321
thì code trên phải sửa như thế nào ạ! Em cảm ơn

 

[befaint]

W r i t e R e s P a s s w o r d

Workbooks.Open method (Excel)

Office VBA reference topic

learn.microsoft.com

 

[AnhThu-1976]

W r i t e R e s P a s s w o r d

Workbooks.Open method (Excel)

Office VBA reference topic

learn.microsoft.com

Em cảm ơn anh nhiều
Đọc xong bài thì còn tù mờ, em chưa áp dụng được!

 

[huhumalu]

Em chào các anh chị thành viên
Em đang ở 1 file, mà muốn mở 1 file tên là Xoa1, mà file này chỉ có 1 pass word to open (pass: 123) thì code

Sub Macro2()

Workbooks.Open Filename:= _
                   "C:\Users\Admin\Dropbox\Nam_2024\TS\SoSachKT\Xoa1.xlsm", Password:="123"
                
    Windows("Xoa1.xlsm").Activate

End Sub

bây giờ file Xoa1 có pass word to open là 123 và pass word to modify là 321
thì code trên phải sửa như thế nào ạ! Em cảm ơn

Anh/ chị thử

 ... , Password:="123", WriteResPassword:="321"

 

[AnhThu-1976]

Anh/ chị thử

 ... , Password:="123", WriteResPassword:="321"

cảm ơn bạn nhiều! (vọc từ sáng giờ chưa ra)