Điều chỉnh Security level về mức Low bằng VBA

[Duong gia]

Các anh chị trên DĐ cho hỏi có cách nào Điều chỉnh Security level trong Excel về mức Low bằng VBA không cho mình xin với. (không phải điều chỉnh thủ công trong Tools). Cám ơn nhiều

 

[tedaynui]

Các anh chị trên DĐ cho hỏi có cách nào Điều chỉnh Security level trong Excel về mức Low bằng VBA không cho mình xin với. (không phải điều chỉnh thủ công trong Tools). Cám ơn nhiều

Theo mình biết, bạn có thể thực hiện theo 1 trong các cách sau :
1/ Dùng VBA với SENDKEY, cái này thì không được hay. Nhưng mình thấy virus macro4 thường làm
2/ Dùng VB
3/ Chạy file ???.reg, can thiệp trực tiếp Registries. File này bác Tuân có Up lên rồi đó.

TDN

 

[Duong gia]

Theo mình biết, bạn có thể thực hiện theo 1 trong các cách sau :
1/ Dùng VBA với SENDKEY, cái này thì không được hay. Nhưng mình thấy virus macro4 thường làm
2/ Dùng VB
3/ Chạy file ???.reg, can thiệp trực tiếp Registries. File này bác Tuân có Up lên rồi đó.

TDN

Bạn làm ơn post cho mình các đoạn code ở mục 1/ & 2/ mà bạn nói đi. Mình chỉ muốn can thiệp vào những file Excel cần thiết thôi, còn những file khác thì không.

 

[tedaynui]

Bạn làm ơn post cho mình các đoạn code ở mục 1/ & 2/ mà bạn nói đi. Mình chỉ muốn can thiệp vào những file Excel cần thiết thôi, còn những file khác thì không.

1/ Code ở mục 1:

Sub Enable_Macro()
Application.ScreenUpdating = False
    SendKeys "%{T}{M}{S}{S}"
    SendKeys "%{L}"
    SendKeys "^{Enter}"   
Application.ScreenUpdating = True
End Sub

Theo mình cái này là hạ sách, hi hi
2/ Còn code mục 2, bạn vào box VEC, anh Duyệt có bài hướng dẫn tỉ mỹ với hình ảnh luôn.

TDN

 

[thanhnhanubnd]

Bạn tổng hợp thành 1 file dùm mọi người đi nhé.

 

[tedaynui]

Bạn tổng hợp thành 1 file dùm mọi người đi nhé.

Đây là cách 3. Nội dung file .REG

[HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Excel\Security]
"Level"=dword:00000001

Lưu ý : với đường dẫn trên chỉ áp dụng cho MO 2003.

TDN

 

[boyxin]

Đây là cách 3. Nội dung file .REG

[HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Excel\Security]
"Level"=dword:00000001

Lưu ý : với đường dẫn trên chỉ áp dụng cho MO 2003.

TDN

Đường dẫn chuẩn đây:

• Microsoft Office 2000: [HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Excel\Security]
• Microsoft Office XP: [HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Excel\Security]
• Microsoft Office 2003: [HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Excel\Security]

=> dự đoán ver sau 2003 sẽ là ...\12.0\... - ...\13.0\... - ....