Cần giúp đỡ save changes

[quocthan92]

Mình đã chạy lệnh này trong thisworkbook giờ không thể vào VB mở code lên được.
Có ai gặp tình huống dỡ khóc dỡ cười như mình không?
ActiveWorkbook.Close savechanges:=False

 

[befaint]

Mình đã chạy lệnh này trong thisworkbook giờ không thể vào VB mở code lên được.
Có ai gặp tình huống dỡ khóc dỡ cười như mình không?
ActiveWorkbook.Close savechanges:=False

Nghịch ngợm mà không biết làm sao nữa hả?
Mở Excel rồi vào Options, disable all macro đi. Quay ra mở lại file đó.

 

[quocthan92]

Nghịch ngợm mà không biết làm sao nữa hả?
Mở Excel rồi vào Options, disable all macro đi. Quay ra mở lại file đó.

Ok,
P/s: đóng nút đỏ excel thoát người dung vẫn save nhưng mình không cho save thì code thế nào ad.
thanks
mình dung cái này nhưng tội chỗ là nó không cho mình lưu code.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
MsgBox "You can't save this workbook!"
Cancel = True
End Sub

 

[ndu96081631]

Ok,
P/s: đóng nút đỏ excel thoát người dung vẫn save nhưng mình không cho save thì code thế nào ad.
thanks
mình dung cái này nhưng tội chỗ là nó không cho mình lưu code.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
MsgBox "You can't save this workbook!"
Cancel = True
End Sub

Bấm nút Save trong cửa sổ VBA ấy!

 

[quocthan92]

Bấm nút Save trong cửa sổ VBA ấy!

Không được ndu, em đã thử change True --> False mới save code được nhưng như vậy thì không có tác dụng.

 

[huuthang_bd]

Không được ndu, em đã thử change True --> False mới save code được nhưng như vậy thì không có tác dụng.

Trước khi save bạn chọn Run | Design Mode (cửa sổ VBA)

 

[quocthan92]

Trước khi save bạn chọn Run | Design Mode (cửa sổ VBA)

tuyệt vời ông mặt trời. Thanks bạn