Chuyển đổi thuộc tính ReadOnly của file (2 người xem)

[MinhKhai]

Em muốn thay đổi thuộc tính của file bằng Code mà làm luẩn quẩn mãi không ra, mong các anh chị chỉ cho em biết em sai ở đâu ??
Cái file gửi kèm của em, mở đi mở lại nhiều lần (có tích vào checkbox) mới thấy lỗi

 

[ndu96081631]

Em muốn thay đổi thuộc tính của file bằng Code mà làm luẩn quẩn mãi không ra, mong các anh chị chỉ cho em biết em sai ở đâu ??
Cái file gửi kèm của em, mở đi mở lại nhiều lần (có tích vào checkbox) mới thấy lỗi

Không biết mục đích cuối cùng của việc chuyển ReadOnly là để làm cái gì?

 

[Quang_Hải]

Em muốn thay đổi thuộc tính của file bằng Code mà làm luẩn quẩn mãi không ra, mong các anh chị chỉ cho em biết em sai ở đâu ??
Cái file gửi kèm của em, mở đi mở lại nhiều lần (có tích vào checkbox) mới thấy lỗi

Hãy thử thêm 2 dòng này lên đầu code

On Error Resume Next
Application.DisplayAlerts = False
.......

Application.DisplayAlerts = True
End Sub

 

[MinhKhai]

Không biết mục đích cuối cùng của việc chuyển ReadOnly là để làm cái gì?

Cảm ơn bác. File em gửi thì không có nội dung gì, nhưng cái Code sẽ dùng cho các file khác của em.

Chằng là các file của em được chia sẻ và đồng bộ qua DropBox để rất nhiều người cùng mở xem. Tạo thuộc tính chống ghi để nếu cùng lúc có > 2 người mở file (ở 2 máy khác nhau) thì ngăn ngừa những thay đổi vô ý hoặc/và hạn chế DropBox tạo Conflicted copy. Tuy nhiên đôi khi người dùng cũng cần thay đổi nhỏ thì khi đang mở file rồi có thể dễ dàng chuyển RO-->RW, sau khi xong lại RW-->RO

Những yêu cầu của em đều xuất phát từ nhu cầu thực tiễn, và dùng VBA để tối ưu thời gian thao tác.

 

[MinhKhai]

Hãy thử thêm 2 dòng này lên đầu code

On Error Resume Next
Application.DisplayAlerts = False
.......

Application.DisplayAlerts = True
End Sub

Em thử rồi mà file chạy vẫn báo lỗi

Dù sao cũng cảm ơn anh. Chúc anh luôn mạnh khỏe, có 1 ngày bận rộn nhưng vẫn vui vẻ.

HAPPY BIRTHDAY

 

[Quang_Hải]

Em thử rồi mà file chạy vẫn báo lỗi

Sao lỗi được chứ. Cái dòng On Error Resume Next mà cái lỗi nào bị thông báo mới lạ nghen.

 

[Hoàng Trọng Nghĩa]

Sao lỗi được chứ. Cái dòng On Error Resume Next mà cái lỗi nào bị thông báo mới lạ nghen.

Thật ra cái On Error Resume Next là cái lướt qua những lỗi thông thường thôi Anh Quang Hải, chẳng hạn nếu mình đặt Option Explicit ở đầu module, rồi chạy thủ tục có biến i nhưng không được khai báo thì nó vẫn xảy ra lỗi.

 

[MinhKhai]

Sao lỗi được chứ. Cái dòng On Error Resume Next mà cái lỗi nào bị thông báo mới lạ nghen.

Đây, em đã thêm code vào đây

https://dl.dropboxusercontent.com/s...wZZZ8NKvXRJo7gxUNC9BONW2PVj7fZ5y68noOm9g&dl=1
Bác Khi mở file nhiều lần, bác thử 2 tình huống, trước khi thoát file, đang ReadOnly và đang ReadWirte

 

[Quang_Hải]

Code trong sự kiện Workbook_Open bạn chưa có dòng On Error .... Lỗi là phải rồi

 

[MinhKhai]

Code trong sự kiện Workbook_Open bạn chưa có dòng On Error .... Lỗi là phải rồi

Em đã bổ sung code và thấy chạy được tương đối ngon.
Cho em hỏi thêm là muốn ép phải nhập Password khi chuyển từ RO-->RW thì làm thế nào ạ?