Chào Chibi,

Code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI AsBoolean, Cancel AsBoolean)

MsgBox "Khong duoc sua doi tep nay"

Cancel = True

End SubBạn copy cái code này vô Thisworkbook module.

**************************************

Mến

Xóa thuộc tính hidden, system của file/folder:

- Đối với các file/folder bị gán thuộc tính system, bạn ko thể gỡ bỏ nó trong mục Properties được. Có 2 cách giải quyết là: dùng tool hoặc dùng dòng lệnh Command Promt. Ở đây mình sẽ nêu cách dùng Command Promt vì nó có sẵn trong Windows.

- Vô Start > Run. Gõ cmd rồi Enter.

- Một cửa sổ đen thui hiện ra, bạn chuyển về ổ đĩa có file/folder cần làm việc bằng cách gõ lệnh:

x: (với x là kí tự ổ đĩa)

rồi gõ Enter.

- Chuyển đến thư mục cần thao tác bằng dòng lệnh:

cd "đường dẫn tới thư mục"

Ví dụ: cd "D:\Trinh\Video\Funny Clips"

- Gõ lệnh sau đây để gỡ bỏ thuộc tính Read-Only, Hidden & System cho toàn bộ file & thư mục con:

attrib -s -r -h *.* /s /d

rồi gõ Enter.