Thoát chế độ Read only file word. Nhờ mọi người giúp ạ (1 người xem)

[Manhhung90]

Chào mọi người. Em cần giúp đỡ 1 vấn đề ạ. Em hay dùng link từ excel sang word, tuy nhiên đôi lúc file word bị kẹt lại ở chế độ là read only, em thường reset lại máy mới hết. Nhờ mọi người có cách nào khác để thoát chế độ read only này không ạ. Em cảm ơn nhiều.

 

[Hoàng Tuấn 868]

Chào mọi người. Em cần giúp đỡ 1 vấn đề ạ. Em hay dùng link từ excel sang word, tuy nhiên đôi lúc file word bị kẹt lại ở chế độ là read only, em thường reset lại máy mới hết. Nhờ mọi người có cách nào khác để thoát chế độ read only này không ạ. Em cảm ơn nhiều.

Bạn thử thao tác như sau xem sao:
>> Mở file Word mà bạn muốn chỉnh sửa
>> Chuyển đến tab File trên thanh công cụ.
>> Chọn Info >> Nhấp vào Restrict Editing trong phần Protect Document để mở bảng điều khiển bên phải.
>> Trong bảng điều khiển Restrict Editing, bạn sẽ thấy một nút Stop Protection ở phía dưới. Nhấp vào nút này.

 

[truongvu317]

read only,hết khi restart máy thì chứng tỏ đã có 1 ứng dụng đang mở file mà không nhìn thấy, kiểu như mở file đó 2 lần, lần 1 chưa đóng thì lại mở lần 2.

 

[Manhhung90]

read only,hết khi restart máy thì chứng tỏ đã có 1 ứng dụng đang mở file mà không nhìn thấy, kiểu như mở file đó 2 lần, lần 1 chưa đóng thì lại mở lần 2.

Đúng ạ. Do mình đang link từ excel qua word bị lỗi nên nó như vậy. Mình phải tắt word bằng task manager nhưng mở ra vẫn read only ạ.

 

[HeSanbi]

Dùng VBA thoát ứng dụng Word đi là được, không cần đến khởi động máy tính. Nhưng nếu tệp word được mở ở ứng dụng lạ thì thôi bó tay.

Cách gọi để thoát tất cả:
CloseOfficeWordApp False
Thoát ứng dụng Word ẩn:
CloseOfficeWordApp True

Sub CloseOfficeWordApp(Optional OnlyHidden As Boolean = True)
  Dim o As Object, b As Boolean, k%
  On Error Resume Next
  Do
    Err.Clear:  Set o = GetObject(, "Word.Application")
    If Err <> 0 OR O Is Nothing Then Exit Do
    If OnlyHidden Then
      If Not o.Visible Then o.ActiveDocument.Close True: o.Quit
    Else
      o.ActiveDocument.Close True: o.Quit
    End If
    k = k + 1
  Loop Until k > 20
End Sub

Lệnh thoát tất cả Word mạnh hơn

Sub TerminateOfficeWordApp()
  Dim p
  On Error Resume Next
  For Each p In Interaction.GetObject("winmgmts:\\.\root\CIMV2").ExecQuery _
                             ("SELECT * FROM Win32_Process WHERE Name = ""WINWORD.exe""", , 48)
    p.Terminate
  Next
End Sub

 

[Manhhung90]

Dùng VBA thoát ứng dụng Word đi là được, không cần đến khởi động máy tính. Nhưng nếu tệp word được mở ở ứng dụng lạ thì thôi bó tay.

Cách gọi để thoát tất cả:
CloseOfficeWordApp False
Thoát ứng dụng Word ẩn:
CloseOfficeWordApp True

Sub CloseOfficeWordApp(Optional OnlyHidden As Boolean = True)
  Dim o As Object, b As Boolean, k%
  On Error Resume Next
  Do
    Err.Clear:  Set o = GetObject(, "Word.Application")
    If Err Then Exit Do
    If OnlyHidden Then
      If Not o.Visible Then o.ActiveDocument.Close True: o.Quit
    Else
      o.ActiveDocument.Close True: o.Quit
    End If
    k = k + 1
  Loop Until k > 20
End Sub

Lệnh thoát tất cả Word mạnh hơn

Sub TerminateOfficeWordApp()
  Dim p
  On Error Resume Next
  For Each p In Interaction.GetObject("winmgmts:\\.\root\CIMV2").ExecQuery _
                             ("SELECT * FROM Win32_Process WHERE Name = ""WINWORD.exe""", , 48)
    p.Terminate
  Next
End Sub

Dùng VBA thoát ứng dụng Word đi là được, không cần đến khởi động máy tính. Nhưng nếu tệp word được mở ở ứng dụng lạ thì thôi bó tay.

Cách gọi để thoát tất cả:
CloseOfficeWordApp False
Thoát ứng dụng Word ẩn:
CloseOfficeWordApp True

Sub CloseOfficeWordApp(Optional OnlyHidden As Boolean = True)
  Dim o As Object, b As Boolean, k%
  On Error Resume Next
  Do
    Err.Clear:  Set o = GetObject(, "Word.Application")
    If Err Then Exit Do
    If OnlyHidden Then
      If Not o.Visible Then o.ActiveDocument.Close True: o.Quit
    Else
      o.ActiveDocument.Close True: o.Quit
    End If
    k = k + 1
  Loop Until k > 20
End Sub

Lệnh thoát tất cả Word mạnh hơn

Sub TerminateOfficeWordApp()
  Dim p
  On Error Resume Next
  For Each p In Interaction.GetObject("winmgmts:\\.\root\CIMV2").ExecQuery _
                             ("SELECT * FROM Win32_Process WHERE Name = ""WINWORD.exe""", , 48)
    p.Terminate
  Next
End Sub

Cảm ơn bạn. Mình sẽ thử ạ. File word này là file gốc để mình sử dụng excel link qua file word này và tạo 1 file word hoàn chỉnh khác ạ