Lỗi mở File Excel tự biến mất không hiểu vì sao (1 người xem)

[congnguyen88]

Mình có 1 file Excel , có vài đoạn code để cuộn trang và copy thôi, File này mình
mở trên gần 100 cái máy tính trên công ty đều ok, không hiểu sao lúc sáng
mình teamview cho 1 người bạn mở lên File Excel này lên
thì vừa thấy mở lên thì cũng lúc đó tự tắt luôn, không thấy nó nằm thanh Taskbar của Window luôn, mình tắt chế độ Macro thì mở dược, mình bật Macro thì không mở được. Máy này mình đã cài lại oFFice và cũng xóa hết chương trình diệt virut
ai biết bịnh này giúp em với


Coce của File gán với nút bấm nek


Sub copydata()
Range("AM16:AM25").Copy
Range("Z3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("Z3").Select
End Sub



Sub batctrang()
If ActiveWindow.FreezePanes = False Then
Range("f5").Select
ActiveWindow.FreezePanes = True
Range("f5").Select
Else
ActiveWindow.FreezePanes = False
Range("f5").Select
End If
End Sub

 

[hungpecc1]

Mình có 1 file Excel , có vài đoạn code để cuộn trang và copy thôi, File này mình
mở trên gần 100 cái máy tính trên công ty đều ok, không hiểu sao lúc sáng
mình teamview cho 1 người bạn mở lên File Excel này lên
thì vừa thấy mở lên thì cũng lúc đó tự tắt luôn, không thấy nó nằm thanh Taskbar của Window luôn, mình tắt chế độ Macro thì mở dược, mình bật Macro thì không mở được. Máy này mình đã cài lại oFFice và cũng xóa hết chương trình diệt virut
ai biết bịnh này giúp em với


Coce của File gán với nút bấm nek


Sub copydata()
Range("AM16:AM25").Copy
Range("Z3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("Z3").Select
End Sub



Sub batctrang()
If ActiveWindow.FreezePanes = False Then
Range("f5").Select
ActiveWindow.FreezePanes = True
Range("f5").Select
Else
ActiveWindow.FreezePanes = False
Range("f5").Select
End If
End Sub

thử gưi file lên, hoặc mở file đó trên máy tính khác xem kết quả thế nào !

 

[congnguyen88]

File này chỉ toàn dữ liệu bán hàng quan trọng nên mình không đưa lên được.
Code thì chỉ có 2 đoạn code copy, và Cuộn trang do mình tự viết thôi
mình nghĩ chắc chắn là về máy tính chứ không phải File đâu a, bệnh kỳ lạ nhất trước giờ mình mới thấy, Mở File không co Code thì được, có code thì biến mất luôn

 

[hungpecc1]

File này chỉ toàn dữ liệu bán hàng quan trọng nên mình không đưa lên được.
Code thì chỉ có 2 đoạn code copy, và Cuộn trang do mình tự viết thôi
mình nghĩ chắc chắn là về máy tính chứ không phải File đâu a, bệnh kỳ lạ nhất trước giờ mình mới thấy, Mở File không co Code thì được, có code thì biến mất luôn

thử vào excel option --> trust center --> marco setting --> dissable all marco without motification , rồi mở lại file đó lên xem thế nào !

 

[hungpecc1]

thử vào excel option --> trust center --> marco setting --> dissable all marco without motification , rồi mở lại file đó lên xem thế nào !

nếu làm cách trên mà file Excel của bạn mở được, thì tiếp theo bạn xóa tất cả các file EXD ở thư mục này đi:
C:\Users\%USERNAME%\AppData\Roaming\Microsoft\Forms\
sau đó chọn lại disdissable all marco with motification

 

[congnguyen88]

Ok để mình Teamview lại xem sao, Chứ máy tính mình thì mở Ok rồi, Cảm ơn bạn nha
Máy tính của mình có đường dẫn như thế này đúng không bạn

C:\Documents and Settings\Root\Application Data\Microsoft\Forms


nếu vẫn bị nữa thì, chắc anh teamview giúp em coi cái máy đó luôn, anh cho e xin địa chỉ mail hay số điện thoại, facebook gì đi

 

[hungpecc1]

Ok để mình Teamview lại xem sao, Chứ máy tính mình thì mở Ok rồi, Cảm ơn bạn nha
Máy tính của mình có đường dẫn như thế này đúng không bạn

C:\Documents and Settings\Root\Application Data\Microsoft\Forms
View attachment 128963

nếu vẫn bị nữa thì, chắc anh teamview giúp em coi cái máy đó luôn, anh cho e xin địa chỉ mail hay số điện thoại, facebook gì đi

trước khi xóa thử copy file xóa ra chỗ khác , sau khi xóa nếu vẫn không được thì copy trả lại !