Tạo File readonly

[chibi]

Gửi các bạn
Tôi có 1 file .xls (Main), mỗi khi mở thì nạp dữ liệu vào từ một file .xls khác. Tôi muốn các bạn chỉ giúp tôi làm cách nào để không save và save as được Main khi sử dụng.

 

[digita]

Chào Chibi,

[COLOR=#0000ff]Private [/COLOR][COLOR=#0000ff]Sub[/COLOR][COLOR=black] Workbook_BeforeSave([/COLOR][COLOR=#0000ff]ByVal[/COLOR][COLOR=black] SaveAsUI [/COLOR][COLOR=#0000ff]As[/COLOR][COLOR=#0000ff]Boolean[/COLOR][COLOR=black], [/COLOR][COLOR=black]Cancel [/COLOR][COLOR=#0000ff]As[/COLOR][COLOR=#0000ff]Boolean[/COLOR][COLOR=black]) [/COLOR]
[COLOR=black][I][COLOR=#22229c]MsgBox[/COLOR][/I] "Khong duoc sua doi tep nay" [/COLOR]
[COLOR=black]Cancel = [/COLOR][COLOR=#0000ff]True[/COLOR]   
End Sub

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

Mến