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.
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.
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.
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.
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
JavaScript:
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
JavaScript:
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
JavaScript:
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
JavaScript:
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
JavaScript:
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
JavaScript:
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
