Tạo thông báo khi save excel

[BBmall]

Mình là có 1 file excel nhưng muốn nhắc là phải thay đổi ô đó vì sợ quên nên mình muốn là khi save nó tạo ra thông báo để người đang làm file đó có đổi chưa. Nếu thông báo luôn ô đó càng tốt. Hoặc là khi click vào save nó thông báo nội dung và chọn yes / no
Hoặc là có cách nào chẳng hạn như save thì vẫn đúng nội dung đó nhưng khi open thì ô đó bị xóa đi không ?
Ai có cách nào giúp mình với. Thanks

 

[lameco411]

Mình là có 1 file excel nhưng muốn nhắc là phải thay đổi ô đó vì sợ quên nên mình muốn là khi save nó tạo ra thông báo để người đang làm file đó có đổi chưa. Nếu thông báo luôn ô đó càng tốt. Hoặc là khi click vào save nó thông báo nội dung và chọn yes / no
Hoặc là có cách nào chẳng hạn như save thì vẫn đúng nội dung đó nhưng khi open thì ô đó bị xóa đi không ?
Ai có cách nào giúp mình với. Cảm ơn

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim a As Variant
a = MsgBox("Thay doi noi dung o nao do", vbYesNo, "Thong bao")
If a = vbNo Then Cancel = True
End Sub

 

[batman1]

Hoặc là có cách nào chẳng hạn như save thì vẫn đúng nội dung đó nhưng khi open thì ô đó bị xóa đi không ?

Alt + F11 -> đúp chuột trên Thisworkbook -> dán code sau vào

Private Sub Workbook_Open()
    ThisWorkbook.Worksheets("Sheet1").Range("E1").Value = Empty
End Sub

Code sẽ xóa nội dung ô E1 trên sheet tên là Sheet1. Hãy thay đổi cho phù hợp với tên sheet và ô của mình

 

[BBmall]

Mình có làm theo nhưng khi save nó vẫn không báo gì. Vì không rành cái vbb này nên bạn chỉ giúp. Mình nhấn alt+F11 rồi paste cái code kia nhưng vẫn không thấy gì. Không biết mình làm có sai chỗ nào không ?

Bài đã được tự động gộp: 3/10/18

Alt + F11 -> đúp chuột trên Thisworkbook -> dán code sau vào

Private Sub Workbook_Open()
    ThisWorkbook.Worksheets("Sheet1").Range("E1").Value = Empty
End Sub

Code sẽ xóa nội dung ô E1 trên sheet tên là Sheet1. Hãy thay đổi cho phù hợp với tên sheet và ô của mình

Mình làm được nhưng ở đây khi save nó đã xóa dữ liệu ô đó rồi. Mình muốn là khi mở file đó nó mới xóa có được k ? File để mình import nên khi save nó xóa thì không còn tác dụng. Thanks bạn

 

[phulien1902]

Vậy bạn thử:

Private Sub Workbook_Open()
    Dim a As Variant
    a = MsgBox("Ban muon xoa Cell A1?", vbYesNo, "Thong bao")
    If a = vbYes Then Range("A1").ClearContents
    If a = vbNo Then Cancel = True
End Sub

Với A1 là Cell cần xóa.

 

[batman1]

Mình làm được nhưng ở đây khi save nó đã xóa dữ liệu ô đó rồi. Mình muốn là khi mở file đó nó mới xóa có được k ? File để mình import nên khi save nó xóa thì không còn tác dụng. Cảm ơn bạn

Làm gì có chuyện đó. Code trong Workbook_Open thì làm sao khi Save đã xóa được.

 

[BBmall]

Làm gì có chuyện đó. Code trong Workbook_Open thì làm sao khi Save đã xóa được.

Tức là khi mình save. Mình import file đó vào chỗ khác thì nó hiểu là data ô đó trống. Mình đã thử lại kể cả đã đóng file và chưa đóng file excel đó. Khi save thì nhìn hiển thị vẫn có. Thanks bạn đã giúp
@phulien1902 : Có cách nào mà khi thông báo nó hiện mỗi chữ OK. Click vào đó nó xóa ô đó đi và nếu có thì con trỏ ở ô đó luôn càng tốt. Và nếu xóa 1 lúc nhiều ô hơn có làm k ? Thanks bạn

 

[phulien1902]

Ví dụ 1 Cell

Option Explicit
Private Sub Workbook_Open()
    Dim a As Variant
    MsgBox "Xoa Cell: " & Range("A1").Value
    Range("A1").ClearContents
End Sub

 

[BBmall]

Không cái nào dùng được luôn. Khi import nó lại load cái thông báo lên. Chắc cái xóa này không áp dụng được. Không biết ai có cách nào nữa không ? Có gì mình gửi anh em hỗ trợ cái thẻ cào. Thanks

 

[batman1]

Thẻ cào chả là cái gì.

Muốn được giúp thì đính kèm tập tin rồi mô tả từng bước thao tác: tôi mở tập tin -> tôi gõ ... vào ..., sau đó lại gõ chơi ... vào ..., sau đó tôi chọn Save thì tôi muốn thế này ..., khi tôi đóng tập tin thì tôi muốn thế này ... Sau đó tôi import (cũng chả hiểu import ở đây nó là cái quái gì nếu không giải thích). Cứ như thế từng bước, từng thao tác, từng yêu cầu, từng mong đợi.
------------
Yêu cầu là khi mở tập tin thì xóa ô nào đó thì người ta đãb làm cho thế mà sau đó còn

Mình muốn là khi mở file đó nó mới xóa có được k ?

Rồi bây giờ lại

Không cái nào dùng được luôn

Mà nói bâng quơ thế thì chịu "cái nào" nó là cái gì

 

[BBmall]

Trong file mình có ghi nội dung mình muốn. Nếu cần thêm hình ảnh import nó thông báo gì thì mình chụp rồi gửi luôn

Bài đã được tự động gộp: 3/10/18

Ý của mình nghĩ phía trên áp dụng được 1 cái vào nhưng cuối cùng không được cái nào là ý mình nói thế vì lúc đó chưa test import. Giờ test thì mới thấy nó lỗi đó mà

 

[BBmall]

Chẳng nhẽ không có giải pháp nào sao mọi người ?