Tự động chèn code vào sheet của 1 File Excel

[Quang_Hải]

Mình mở chủ đề này để giới thiệu cho các bạn nào quan tâm đến việc tự động chèn code vào 1 file excel nào đó.
Giả định trên file hiện tại có 1 sheet mang tên là "ABC", giờ ta muốn chèn code vào sheet này
Để phát triển thêm ta có thể thay ActiveWorkBook bằng tên của File ta cần chèn code

Sub add_code_to_existing_sheet()
Dim CodeLines As Long, sheetCode
   sheetCode = ActiveWorkbook.Sheets("ABC").CodeName
   With ActiveWorkbook.VBProject.VBComponents(sheetCode).CodeModule
        CodeLines = .CountOfLines + 1
        .InsertLines CodeLines, _
            "Private Sub Worksheet_SelectionChange(ByVal Target As Range)" & Chr(13) & _
            "     MsgBox ""Code Created"" " & Chr(13) & _
            "End Sub"
    End With
End Sub

Ta cũng có thể tạo ra 1 sheet mới rồi chèn code vào sheet vừa được tạo bằng code bên dưới.

Sub add_code_to_NewSheet()
Dim CodeLines As Long
   Sheets.Add
   With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
        CodeLines = .CountOfLines + 1
        .InsertLines CodeLines, _
            "Private Sub Worksheet_SelectionChange(ByVal Target As Range)" & Chr(13) & _
            "     msgbox ""Code Created"" " & Chr(13) & _
            "End Sub"
    End With
End Sub

Nếu cần chèn code vào WorkBook ta áp dụng code này

Sub add_code_to_thisworkbook()
Dim CodeLines As Long
   With ActiveWorkbook.VBProject.VBComponents("Thisworkbook").CodeModule
        CodeLines = .CountOfLines + 1
        .InsertLines CodeLines, _
            "Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)" & Chr(13) & _
            "     msgbox ""Code Created"" " & Chr(13) & _
            "End Sub"
    End With
End Sub

Nếu cần thêm 1 module mới rồi chèn code vào module này thì ta làm như code bên dưới.
Chú ý: Để chèn được Module thì phải vào Tools, tìm và chọn mục Microsoft Visual Basic for Appliations extensibility 5.3
Hoặc khi viết code đến dòng ActiveWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule) thì Excel sẽ tự động hỏi mình có muốn chọn mục này hay không.

Sub Add_Module_and_Code()
Dim CodeLines As Long, VBComp
   Set VBComp = ActiveWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule)
   With ActiveWorkbook.VBProject.VBComponents(VBComp.Name).CodeModule
        CodeLines = .CountOfLines + 1
        .InsertLines CodeLines, _
            "Sub Add_Module_and_Code" & Chr(13) & _
            "     msgbox ""Code Created"" " & Chr(13) & _
            "End Sub"
    End With
End Sub

Hy vọng là bài viết hữu ích cho những bạn mới học VBA

 

[ThangCuAnh]

Bạn có quyền admin không, Win gì bạn, Office gì bạn ?
Để mình cài Office 2016 test thử.

 

[Kiều Mạnh]

Bạn có quyền admin không, Win gì bạn, Office gì bạn ?
Để mình cài Office 2016 test thử.

Xin thưa với ngài là Mạnh mới chạy trên quyền Administrator Run As thì nó làm mờ Trust Access To VBOM

Kiểm tra IsVBATrusted = True

 

[ThangCuAnh]

Hì hì, nó True là tốt rồi
Mở regedit, tới HKLM, Policies\Office\xxx\Excel đấy, xóa nó hay cho nó về 0 đi, rồi test lại thử bạn.

 

[Kiều Mạnh]

Hì hì, nó True là tốt rồi
Mở regedit, tới HKLM, Policies\Office\xxx\Excel đấy, xóa nó hay cho nó về 0 đi, rồi test lại thử bạn.

OK ròi đó ............. nhưng có 2 cái rắc rối:

1/ Làm mờ Trust Access .......... khắc phục đơn giản sử dụng code xóa nó đi ..........xong
2/ Phải Run As mới chịu .............. cái này tính sao khi UAC đang cao hay chạy dưới quyền Administrtor ???????!!!!!

hóng tiếp

 

[Quang_Hải]

Thật ra mấy vụ này nếu có thời gian thì nghiên cứu cho vui, cứ coi như là tập thể dục cho bộ não thôi. Căn bản là vọc xong rồi quên mất tiêu. Mấy đoạn code mình viết đã từng chạy rần rần giờ xem lại hỏng biết mình đã viết cái quái gì trong đó.

 

[Kiều Mạnh]

Cách mà @ThangCuAnh đang làm là vô hiệu hóa Trust Access To ...

xem Trang Kaspersky nói về Trust access to VBA project object model

https://kaspersky.proguide.vn/bao-m...loi-dung-de-che-phan-mem-doc-hai-tu-sao-chep/

Tuy nhiên mình chơi xong trả lại nguyên trạng thì cũng ko sao .............

 

[ThangCuAnh]

Hì hì, không phải vô hiệu hóa, mà là luôn enable hay disable không cho user can thiệp, thay đổi trong Trust Center dialog.
Đây là cơ chế policy của Windows và Office thôi.
MSO.dll khi phát hiện có key của AccessVBOM trong Policy registry thì nó sẽ check/uncheck checkbox đó và disable nó đi, không cho user can thiệp.
Nó làm việc này trong MsoFWndProc export function.
PS: Về cái vụ "mèo què" (malwares) và virus, tui cũng có biết chút chút
https://kaspersky.proguide.vn/kinh-nghiem-thu-thuat/cach-nhan-biet-co-dinh-ma-doc-ddos-hay-khong/

 

[Kiều Mạnh]

Hì hì, không phải vô hiệu hóa, mà là luôn enable hay disable không cho user can thiệp, thay đổi trong Trust Center dialog.
Đây là cơ chế policy của Windows và Office thôi.
MSO.dll khi phát hiện có key của AccessVBOM trong Policy registry thì nó sẽ check/uncheck checkbox đó và disable nó đi, không cho user can thiệp.
Nó làm việc này trong MsoFWndProc export function.
PS: Về cái vụ "mèo què" (malwares) và virus, tui cũng có biết chút chút
https://kaspersky.proguide.vn/kinh-nghiem-thu-thuat/cach-nhan-biet-co-dinh-ma-doc-ddos-hay-khong/

Cái hay của nó nếu ta đăng nhập với quyền Admin thì ta có thể vô hiệu Hóa Trust Access ... lại với Các User khác không làm gì được hết
http://svkit.com/joomla/index.php/w...isual-basic-project-word-excel-macro-security


Còn bài 64 câu 2 ý Bạn tính sao ................... có mằn được không đó ?! ............ Hay Next

 

[ThangCuAnh]

Hì hì, với tui tới đây là được rồi, tui không thích phải dùng API để viết 1 đống code để nâng quyền current user lên.
Thế thôi, stop here

 

[moctriet]

Thế code này khác gì so với code của tôi ở bài 25?
Ở đây người ta muốn có cách nào đó hoàn hảo hơn chứ vẫn sendkeys thì nói làm gì nữa

Anh thử cách này xem. Tại em gà mờ nên chỉ biết dùng cái nào được là ok thôi ạ Cái này nhét trong module chạy được, còn không thì bỏ bỏ cái đoạn code vào file vbs chạy cũng được ạ. Em thấy hoạt động trên máy em, còn trên của các anh chị thì em mù tịt.

Private Sub entrustVBAProject()
On Error Resume Next

Dim WshShell
Set WshShell = CreateObject("WScript.Shell")

Dim strRegPath
Dim Application_Version
Application_Version = "15.0"
strRegPath = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application_Version & "\Excel\Security\AccessVBOM"
WshShell.RegWrite strRegPath, 1, "REG_DWORD"

If Err.Code <> o Then
MsgBox "Error" & Chr(13) & Chr(10) & Err.Source & Chr(13) & Chr(10) & Err.Message
End If

WScript.Quit
End Sub

 

[ThangCuAnh]

Lại nhảm nữa

 

[moctriet]

Lại nhảm nữa

Diễn đàn là nơi thảo luận, nhảm quá sinh nhàm. Té lẹ vậy

 

[ndu96081631]

Anh thử cách này xem. Tại em gà mờ nên chỉ biết dùng cái nào được là ok thôi ạ Cái này nhét trong module chạy được, còn không thì bỏ bỏ cái đoạn code vào file vbs chạy cũng được ạ. Em thấy hoạt động trên máy em, còn trên của các anh chị thì em mù tịt.

Private Sub entrustVBAProject()
On Error Resume Next

Dim WshShell
Set WshShell = CreateObject("WScript.Shell")

Dim strRegPath
Dim Application_Version
Application_Version = "15.0"
strRegPath = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application_Version & "\Excel\Security\AccessVBOM"
WshShell.RegWrite strRegPath, 1, "REG_DWORD"

If Err.Code <> o Then
MsgBox "Error" & Chr(13) & Chr(10) & Err.Source & Chr(13) & Chr(10) & Err.Message
End If

WScript.Quit
End Sub

Tức là cái này mọi người đã làm hết cả rồi và gặp phải vấn đề:
- Registry có thay đổi
- Mục "Trust access to...." trong Trust Center Settings có thay đổi (nếu ta mở lên bằng tay và nhìn bằng... mắt)
- Nhưng hình như Excel không cập nhật trạng thái, vẫn không thể truy cập vào VBAProject

 

[moctriet]

Tức là cái này mọi người đã làm hết cả rồi và gặp phải vấn đề:
- Registry có thay đổi
- Mục "Trust access to...." trong Trust Center Settings có thay đổi (nếu ta mở lên bằng tay và nhìn bằng... mắt)
- Nhưng hình như Excel không cập nhật trạng thái, vẫn không thể truy cập vào VBAProject

Lát em gửi đoạn code của em dùng anh test thử giúp em nha. Hôm qua em chạy trên máy tính em thấy ok. Cho phép enable macro và trust luôn. Chắc rảnh em đọc thêm vì em cũng cần cái này khi viết cái app nhỏ.

 

[moctriet]

Tức là cái này mọi người đã làm hết cả rồi và gặp phải vấn đề:
- Registry có thay đổi
- Mục "Trust access to...." trong Trust Center Settings có thay đổi (nếu ta mở lên bằng tay và nhìn bằng... mắt)
- Nhưng hình như Excel không cập nhật trạng thái, vẫn không thể truy cập vào VBAProject

Anh thử xem chạy được không ạ. Của em dùng office 2013, Anh chỉ version lại cho phù hợp.

Private Sub Workbook_Open()
Dim WshShell, strVBAWarningsPath, strAccessVBOMPath, Application_Version
Set WshShell = CreateObject("WScript.Shell")

Application_Version = "15.0"
strVBAWarningsPath = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application_Version & "\Excel\Security\VBAWarnings"
WshShell.RegWrite strVBAWarningsPath, 1, "REG_DWORD"

strAccessVBOMPath = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application_Version & "\Excel\Security\AccessVBOM"
WshShell.RegWrite strAccessVBOMPath, 1, "REG_DWORD"

Set WshShell = Nothing
Call vnpWELCOME
End Sub
Private Sub vnpWELCOME()
MsgBox "Welcom you to Forum"
End Sub

 

[ndu96081631]

Anh thử xem chạy được không ạ. Của em dùng office 2013, Anh chỉ version lại cho phù hợp.

Private Sub Workbook_Open()
Dim WshShell, strVBAWarningsPath, strAccessVBOMPath, Application_Version
Set WshShell = CreateObject("WScript.Shell")

Application_Version = "15.0"
strVBAWarningsPath = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application_Version & "\Excel\Security\VBAWarnings"
WshShell.RegWrite strVBAWarningsPath, 1, "REG_DWORD"

strAccessVBOMPath = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application_Version & "\Excel\Security\AccessVBOM"
WshShell.RegWrite strAccessVBOMPath, 1, "REG_DWORD"

Set WshShell = Nothing
Call vnpWELCOME
End Sub
Private Sub vnpWELCOME()
MsgBox "Welcom you to Forum"
End Sub

Mình cùng thí nghiệm thế này nhé:
1> Đầu tiên bạn Uncheck bằng tay mục "Trust access to..." trong Trust Center Settings
2> Xong, copy code dưới đây cho vào chung code của bạn

Function IsVBATrusted() As Boolean
  Application.Volatile
  On Error Resume Next
  IsVBATrusted = Not ThisWorkbook.VBProject Is Nothing
End Function

3> Trên bảng tính, tại cell A1, gõ =IsVBATrusted() ---> Bạn nhận được giá trị FALSE
4> Giờ chạy code của bạn rồi kiểm tra lại kết quả ở cell A1, nếu TRUE thì thành công và ngược lại
---------------------------------------------
Vấn đề là chỗ này đây!

 

[moctriet]

Mình cùng thí nghiệm thế này nhé:
1> Đầu tiên bạn Uncheck bằng tay mục "Trust access to..." trong Trust Center Settings
2> Xong, copy code dưới đây cho vào chung code của bạn

Function IsVBATrusted() As Boolean
  Application.Volatile
  On Error Resume Next
  IsVBATrusted = Not ThisWorkbook.VBProject Is Nothing
End Function

3> Trên bảng tính, tại cell A1, gõ =IsVBATrusted() ---> Bạn nhận được giá trị FALSE
4> Giờ chạy code của bạn rồi kiểm tra lại kết quả ở cell A1, nếu TRUE thì thành công và ngược lại
---------------------------------------------
Vấn đề là chỗ này đây!

Anh thử cái này nha. Vì code này dùng để nghiên cứu là chính nên em sẽ xóa sau khi anh lấy về, sợ mấy bạn nào tọc mạch dùng phá hoại thì hơi mệt.
(Lưu ý cái này có kiểm tra macro đã được enable hay chưa, em nghiên cứu tiếp các xử lý nó sau).

 

[Kiều Mạnh]

lại ấy ấy nữa Ròi ...

 

[ndu96081631]

Anh thử cái này nha. Vì code này dùng để nghiên cứu là chính nên em sẽ xóa sau khi anh lấy về, sợ mấy bạn nào tọc mạch dùng phá hoại thì hơi mệt.
(Lưu ý cái này có kiểm tra macro đã được enable hay chưa, em nghiên cứu tiếp các xử lý nó sau).

Hàm IsVBATrusted vẫn cho kết quả = FALSE
(mặc dù tôi đã sửa Application.Version cho phù hợp với máy tính của mình)

 

[moctriet]

lại ấy ấy nữa Ròi ...

Hai xin lỗi anh làm không được không có nghĩa là người khác làm không được. Em chỉ thảo luận học hỏi tìm phương pháp, còn các anh đang cố để bảo vệ chính kiến của mình thôi. File dưới em đã sửa lỗi cả lỗi báo sendkey và không cần delete sau khi đóng workbook.