Unpass VBA (1 người xem)

[khongtu19bk]

Để unprotect một sheet của một file excel ta có code:

Workbooks.Open "D:\abc.xls", , False
Workbooks("abc.xls").Worksheets("sheet1").Activate
ActiveSheet.Unprotect Password:="8577"

Vậy nếu một file excel không phải là protect nữa mà là được ta đặt pas, vậy thì câu lệnh dùng macro để mở file excle được đặt pas này là như thế nào?

Ai biết xin mách dùm

 

[PhanTuHuong]

Bạn nghiên cứu phương thức Open của Workbooks:

Workbooks.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad)

 

[khongtu19bk]

re

Vậy, để đọc ReadOnly với file đặt pas thì ta làm thế này:

Workbooks.Open "D:\VBA\book1.xls", , True

Nhưng mở với chế độ bình thường thì chưa được, hjc

Workbooks.Open "D:\VBA\book1.xls", , , , "123456"

 

[nguoikemcoi]

Workbooks.Open "D:\VBA\book1.xls", , , , "123456"