Code Share Workbook (1 người xem)

[Cá ngừ F1]

E đang làm việc với 1 file Share (có tích chọn Alow changes by more than one user....)
Vì các marco không chạy lúc share được.. nên e tính chèn code bỏ share đi.. và sau khi marco chạy xong lại share lại..
E có dùng record marco mà ko ghi lại được các thao tác này.
Mong mng giúp đỡ..

 

[nghiaphuc]

E đang làm việc với 1 file Share (có tích chọn Alow changes by more than one user....)
Vì các marco không chạy lúc share được.. nên e tính chèn code bỏ share đi.. và sau khi marco chạy xong lại share lại..
E có dùng record marco mà ko ghi lại được các thao tác này.
Mong mng giúp đỡ..

- Câu lệnh kiểm tra tình trạng share và bỏ share:

If ActiveWorkbook.MultiUserEditing Then ActiveWorkbook.ExclusiveAccess

- Câu lệnh share lại workbook:

ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.FullName, accessMode:=xlShared

Nếu bạn không muốn hiện thông báo của Excel thì sử dụng câu lệnh này:

Application.DisplayAlerts = False

Nhớ là nếu đầu Sub có câu lệnh đó thì cuối Sub phải có câu lệnh này:

Application.DisplayAlerts = True

 

[Cá ngừ F1]

- Câu lệnh kiểm tra tình trạng share và bỏ share:

If ActiveWorkbook.MultiUserEditing Then ActiveWorkbook.ExclusiveAccess

- Câu lệnh share lại workbook:

ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.FullName, accessMode:=xlShared

Nếu bạn không muốn hiện thông báo của Excel thì sử dụng câu lệnh này:

Application.DisplayAlerts = False

Nhớ là nếu đầu Sub có câu lệnh đó thì cuối Sub phải có câu lệnh này:

Application.DisplayAlerts = True

Tuyệt vời... rất nhanh gọn mà chả có thông báo j... rất cảm ơn anh...