Làm sao để phân biệt file đó đang mở chế độ bình thường hay các chế độ Khác như: Readonly, Repaired...

[hunglam123]

Chào cả nhà GPE. Hiện em chưa tìm ra câu lệnh nào để phát hiện file đó đang được mở Bình thường, hay là đang ở chế độ khác như ( readonly, Repaired, Vervsion Autosaved,....





Vâng vâng và nhiều chế độ khác
Vậy cho em hỏi có câu lệnh nào để phát hiện file đó là đang mở chế độ bình thường ( tức là không có chữ gì sau tên file ) hay là các chế độ khác/ Nếu là bình thường = True, các chế độ khác = False

Ví dụ File đang ở chế độ Readonly thì em dùng câu lệnh này để Xét điều kiện. Còn các chế độ khác thì em chưa biết

Sub dada()
If ActiveWorkbook.ReadOnly = True Then
    Range("a1") = " Dang o che do Readonlye"
Else
   Range("a1") = " Ok binh thuong"
End If
End Sub

Xin chân thành cảm ơn!

 

[YêuCN]

Chào cả nhà GPE. Hiện em chưa tìm ra câu lệnh nào để phát hiện nếu là Repaired thì =True, Ngược lại là False
View attachment 239733

Ví dụ File đang ở chế độ Readonly thì em dùng câu lệnh này để Xét điều kiện. Còn Repaired em chưa biết

Sub dada()
If ActiveWorkbook.ReadOnly = True Then
    Range("a1") = " Dang o che do Readonlye"
Else
   Range("a1") = " Ok binh thuong"
End If
End Sub

Xin chân thành cảm ơn!

Bạn thử câu lệnh lấy tên file đang mở thử

 

[hunglam123]

Bạn thử câu lệnh lấy tên file đang mở thử

Đã thử nhưng nó không lấy được tên Repaired

 

[huuthang_bd]

Bạn thử lệnh này.

ActiveWindow.Caption

 

[VetMini]

Bạn thử lệnh này.

ActiveWindow.Caption

Thớt này khó tính lắm. (có lẽ quen Xê-cọng-cọng nên cần cái class viết cho mình phải chỉ dẫn cách dùng giao diện)

Bạn không chỉ cách dùng InStr hay Like để dò các "chế độ" thì chưa chuẩn đâu.

Chú: nếu viết code cả hàm thì nhớ ký tên kẻo về sau này mất bản quyền ráng chịu.
Ở đây có người có thành tích chôm code và tự ký tên mình vào đấy.

 

[VetMini]

Đại khái vầy nè:
cheDo = ""
For Each cd In array( "chế độ 1", "chế độ 2", ...)
If ActiveWindow.Caption Like "*" & cd" "*" Then cheDo = cheDo & ", " & cd
Next cd
If cheDo = "" Then cheDo = "bình thường"

 

[hunglam123]

Bạn thử lệnh này.

ActiveWindow.Caption

cái này chỉ lấy mổi tên thôi anh ơi.

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

Đại khái vầy nè:
cheDo = ""
For Each cd In array( "chế độ 1", "chế độ 2", ...)
If ActiveWindow.Caption Like "*" & cd" "*" Then cheDo = cheDo & ", " & cd
Next cd
If cheDo = "" Then cheDo = "bình thường"

ActiveWindow.Caption chỉ lấy tên File thôi bác. Em đã test rất kỷ nó không lấy được các chữ phía sau Ví dụ ( readonly, Autosaved, Version,...)

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

Bạn thử lệnh này.

ActiveWindow.Caption

Gửi anh kết quả. nó chỉ lấy tên và đuôi thôi

 

[ptm0412]

Save 1 cái, sau đó tìm path của file
Nếu là "document\gì gì đó" quen quen: là vài tình trạng (a, b, ...)
Nếu là "c:\user\gì gì đó" là vài tình trạng (x, y, ...)
Nếu lỗi, là tình trạng m, n gì đó
Ba nhóm trên theo tôi là đủ để có thể xử lý những nhu cầu thông thường. Ngoài nhu cầu thông thường ra thì theo tôi không cần nghiên cứu tìm hiểu