Code tự động open/ close file có password

[Cu Tồ]

chào các anh chị trong diễn đàn!
cho em hỏi là muốn mở file có mật khẩu dùng dòng lệnh ở dười thì phần tự đọng điền mật khẩu sẽ như thế nào ạ?mong mọi người giúp đỡ!
Sub mo_file()
Workbooks.Open ("dia_chi_file.xlsm")
End Sub

 

[huuthang_bd]

chào các anh chị trong diễn đàn!
cho em hỏi là muốn mở file có mật khẩu dùng dòng lệnh ở dười thì phần tự đọng điền mật khẩu sẽ như thế nào ạ?mong mọi người giúp đỡ!
Sub mo_file()
Workbooks.Open ("dia_chi_file.xlsm")
End Sub

Bạn làm như vầy.

Workbooks.Open(Filename:="dia_chi_file.xlsm", Password:="abc")

 

[Cu Tồ]

Bạn làm như vầy.

Workbooks.Open(Filename:="dia_chi_file.xlsm", Password:="abc")

Sub mo_file()
Workbooks.Open(Filename:=" C:\Users\cuto\Desktop\hoctap.xlsx", Password:="241216")
End Sub
em đã thử và nó báo thiếu := vậy cho e hỏi là nó thiếu chỗ nào ah

Bài đã được tự động gộp: 27/5/20

Sub mo_file()
Workbooks.Open(Filename:=" C:\Users\cuto\Desktop\hoctap.xlsx", Password:="241216")
End Sub
em đã thử và nó báo thiếu := vậy cho e hỏi là nó thiếu chỗ nào ah

 

[giaiphap]

Sub mo_file()
Workbooks.Open(Filename:=" C:\Users\cuto\Desktop\hoctap.xlsx", Password:="241216")
End Sub
em đã thử và nó báo thiếu := vậy cho e hỏi là nó thiếu chỗ nào ah

Bài đã được tự động gộp: 27/5/20

View attachment 238134

Nó thiếu ở chổ bạn không có kiến thức cơ bản. Sửa lại thế này.

Sub mo_file()
Workbooks.Open Filename:="C:\Users\cuto\Desktop\hoctap.xlsx", Password:="241216"
End Sub

 

[Cu Tồ]

Nó thiếu ở chổ bạn không có kiến thức cơ bản. Sửa lại thế này.

Sub mo_file()
Workbooks.Open Filename:="C:\Users\cuto\Desktop\hoctap.xlsx", Password:="241216"
End Sub

được rồi ah, cảm ơn bác rất nhiều ah.tại em đang bắt đầu học nên nhiều kiến thức cơ bản không nắm được được ah,tiện đây cho em hỏi là lệnh để lưu một file có cài mật khẩu thì như thế nào ah?

 

[giaiphap]

được rồi ah, cảm ơn bác rất nhiều ah.tại em đang bắt đầu học nên nhiều kiến thức cơ bản không nắm được được ah,tiện đây cho em hỏi là lệnh để lưu một file có cài mật khẩu thì như thế nào ah?

Dùng thử code này.

Sub Save_File()
    Application.DisplayAlerts = False
    ThisWorkbook.SaveAs Filename:="C:\Users\cuto\Desktop\hoctap.xlsm", FileFormat:=52, Password:="123"
    Application.DisplayAlerts = True
End Sub

 

[Cu Tồ]

Dùng thử code này.

Sub Save_File()
    Application.DisplayAlerts = False
    ThisWorkbook.SaveAs Filename:="C:\Users\cuto\Desktop\hoctap.xlsm", FileFormat:=52, Password:="123"
    Application.DisplayAlerts = True
End Sub

ảm ơn bác nhiều ah