Cách bỏ cái thông báo này trong Excel,

[Love You]

Ðề: Cách bỏ cái thông báo này trong Excel,

Giờ muốn nhờ vả cao thủ chỉcách bỏ cái thông báo đó cũng như cách tạo cái thông báo đó để mà viết vài cái ứng dụng. Ai biết hướng dẫn dùm cái ik,

Cưng nhiều lắm luôn,

 

[xuanthanh]

Ðề: Cách bỏ cái thông báo này trong Excel,

Giờ muốn nhờ vả cao thủ chỉcách bỏ cái thông báo đó cũng như cách tạo cái thông báo đó để mà viết vài cái ứng dụng. Ai biết hướng dẫn dùm cái ik,

Cưng nhiều lắm luôn,

1/ Muốn phá được, thì ít nhất phải vào được VBA mà cái này thì không ai bày được cho Love mặc dù người ta làm được nhưng vì lý do rất đơn giản mà ai cũng biết
2/ CÒn tạo ra nó?
Đơn giản thôi.

Private Sub Workbooks_Open()
If Sheet1.Range("A1")="" Then Sheet1.Range("A1")=Date
If Sheet1.Range("A1")<>"" Then SoNgay = Date-Sheet1.Range("A1").Value
If SoNgay >30 Then MsgBox"Ban het ngay su dung",,"Love You"
ThisWorkbook.Save
ThisWorkbook.Close
End Sub

Đại loại như thế
Thân

 

[le dat]

Ðề: Cách bỏ cái thông báo này trong Excel,

ý 1: mục đích gì? tạo hay bỏ thông báo đó nhầm mục đích gì? thắc mắc?
ý 2: Excel là phần mềm do Microsoft tạo ra làm gì có thông báo tiếng việt nhỉ? chắc là xài bản việt nam hả

phải up file lên mới biết thế nào chứ như vậy sao biết?

 

[Love You]

Ðề: Cách bỏ cái thông báo này trong Excel,

1/ Muốn phá được, thì ít nhất phải vào được VBA mà cái này thì không ai bày được cho Love mặc dù người ta làm được nhưng vì lý do rất đơn giản mà ai cũng biết
2/ CÒn tạo ra nó?
Đơn giản thôi.

Private Sub Workbooks_Open()
If Sheet1.Range("A1")="" Then Sheet1.Range("A1")=Date
If Sheet1.Range("A1")<>"" Then SoNgay = Date-Sheet1.Range("A1").Value
If SoNgay >30 Then MsgBox"Ban het ngay su dung",,"Love You"
ThisWorkbook.Save
ThisWorkbook.Close
End Sub

Đại loại như thế
Thân

Thanks you for your helping,

ý 1: mục đích gì? tạo hay bỏ thông báo đó nhầm mục đích gì? thắc mắc?
ý 2: Excel là phần mềm do Microsoft tạo ra làm gì có thông báo tiếng việt nhỉ? chắc là xài bản việt nam hả

phải up file lên mới biết thế nào chứ như vậy sao biết?

1/ Anh đọc dùm em bài 21 đi anh 2 miền tây. Em nói là muốn tạo ứng dụng mà không biết làm cái thông báo đó. Nên nhờ cao thủ,
2/ Chưa làm mà sao có file được. Lấy đâu mà up.

* Cái hình chụp trên là người ta gửi nhờ giúp mà em hỏng có biết nên post lên hỏi cao thủ. Em có file là quăn lên 8 kiếp anh 2 miền tây ơi,

 

[le dat]

Ðề: Cách bỏ cái thông báo này trong Excel,

thấy ghét.
phô trương thấy ớn " quăng lên 8 kiếp"
nhưng mà có tạo đc thì hok có cái vụ tiếng việt đó đâu.

 

[xuanthanh]

Ðề: Cách bỏ cái thông báo này trong Excel,

thấy ghét.
phô trương thấy ớn " quăng lên 8 kiếp"
nhưng mà có tạo đc thì hok có cái vụ tiếng việt đó đâu.

Để thể hiện được tiếng Việt, hãy tham khảo ở đây

http://www.danketoan.com/forum/access-vai-vba/thi-nghiem-lam-msgbox-bang-tv.140719.html

(Bài số 4)

Thân

 

[be09]

Ðề: Cách bỏ cái thông báo này trong Excel,

Dòng thông báo đã trả lời rồi đó A. Người viết file đã đặt thời gian sử dụng rồi.



Hôm trước mình ghé qua bên GPE chơi thấy có mấy chiêu này đó Linh.

Bạn có thể làm như sau:
Cột nào khi nhập mà hiện bảng thông báo đó thì bạn chọn hết cả vùng (ví dụ từ A2 đến A1000 rồi từ menu chọn Data, chọn Validation làm xuất hiện hộp Microsoft Excel bạn nhấn nút Yes.
Làm xuất hiện hộp Data Validation bạn chọn thẻ Settings, bạn xóa công thức trong khung Formula xong vào khung Allow bạn chọn Any Value, bạn chọn tiếp thẻ Input Masage bạn xóa nội dung trong khung title và khung Input Masage, bạn chọn tiếp thẻ Erro Alert trong khung Style bạn chọn Stop, tiếp theo bạn xóa nội dung trong khung title và khung Input Masage, xong bạn nhấn nút OK là xong.
Nếu hộp thông báo này họ viết bằng Macro thì từ cửa sổ Excel bạn nhấn giữ nút Alt và nhấn nút F11 để vào cửa sổ VBE bạn click vào chữ thập trong khung Projet - VBAProject (nếu không thấy khung này thì bạn nhấn nút Ctrl và nhấn nút R), nếu nó hiện hộp VBAProject Password thì phải dùng phần mềm phá Password mới mở được. Nếu nó hiện hộp VBAProject Password thì bạn click vào chữ thập Microsoft E xcel Object và click phải chuột chọn Viewcode, hoặc click vào chữ thập Forms và click phải chuột vào Form chọn Viewcode, hoặc click vào chữ thập Modules click phải chuột vào một Module nào đó chọn Viewcode để làm xuất hiện cửa sổ code, trong cửa sổ code bạn tìm đến dòng .ErrorMessage = "Bạn đã hết hạn sử dụng. Vui lòng liên hệ với tác giả để tiếp tục sử dụng", bạn xóa cả dòng này và bạn lưu lại là xong.
Chúc bạn thực hiện thành công.