Kiểm tra tình trạng Read-Only của file Excel (1 người xem)

[AndOrNot]

Chào các bác!
Em có 1 file Excel mà muốn add thêm 1 code để kiểm tra tình trạng của nó có phải là Read-Only hay không. Nhờ các bác giúp cho

 

[pro8x]

là sao.ý bạn là xem file bạn đang mở có phải là read-only k hả.nếu đúng như vậy thì m Pos tay ktra read-only ma cần code nữa.

 

[Hai Lúa Miền Tây]

Dùng code sau:

Sub Test()
    If GetAttr("DuongDanDenFileExcel.xls") And 1 Then
        MsgBox "File is Read-only"
    Else
        MsgBox "File is not read-only"
    End If

End Sub

Lưu ý là code trên sẽ kiểm tra file có chọn là read-only ở thuộc tính, còn đã mở thì không thể.