क्या मैं वर्कबुक पर वीबीए को संकलित कर सकता हूं?

Question

मैं कार्यपुस्तिका ओपन पर वीबीए में कोड संकलित करने का एक तरीका खोजने का प्रयास कर रहा हूं। मैं इसे वीबीए पर्यावरण खोलकर मैन्युअल रूप से कर सकता हूं, डीबग में जा रहा हूं और "वीबीएप्रोजेक्ट संकलित करें" लेकिन यह सोच रहा था कि प्रत्येक बार कार्यपुस्तिका खुलने पर कोड के माध्यम से ऐसा करने का कोई तरीका है या नहीं।

इसका उद्देश्य कुछ सक्रिय एक्स ऑब्जेक्ट्स के उपयोग के कारण संकलन त्रुटि को रोकने के लिए कंप्यूटर मेमोरी में कोड लोड करना है। जैसा कि बताया गया है, मैं इसे मैन्युअल रूप से कर सकता हूं और यह समस्या हल करता है, क्योंकि ऐसे कई उपयोगकर्ता हैं जो इसका उपयोग करते हैं और कार्यपुस्तिका पासवर्ड सुरक्षित है, सभी को डीबग विकल्प तक पहुंच नहीं होगी।

Answer 1

मुझे लगता है कि आप वीबीई (विजुअल बेसिक एडिटर) को स्वचालित करके ऐसा करने का प्रयास कर सकते हैं।

आवश्यकता:

आप Excel/File/Options/Trust Center/Trust Center settings के पास जाकर विकल्प Trust access to the VBA project object model जांच करने की आवश्यकता (सुरक्षा कारणों से यह डिफ़ॉल्ट रूप से निष्क्रिय है, और यदि आप इसे जांच नहीं करते नीचे कोड चलाने के समय को बढ़ा देंगे त्रुटि 1004 programmatic access to visual basic project is not trusted)। जाहिर है, आपको केवल एक बार ऐसा करने की आवश्यकता है (प्रत्येक कंप्यूटर में आप स्वचालित संकलन को निश्चित रूप से निष्पादित करना चाहते हैं)।

कोडन:

आपका कमांड बार अनुदेश (यानी "संकलित VBA प्रोजेक्ट") एक्सेल आवेदन की VBE ऑब्जेक्ट के अंदर है, विशेष रूप से आदेश सलाखों में:

Dim objVBECommandBar As Object 
Set objVBECommandBar = Application.VBE.CommandBars 

वस्तु होगा अब विजुअल बेसिक एडिटर की संपूर्ण कमांड बार शामिल है। विशेष रूप से, आप आईडी बटन "578" की तलाश करते हैं, जो वास्तव में "संकलन वीबीए प्रोजेक्ट" है (आप चर पर एक वॉचर डाल सकते हैं और सभी ब्राउज़ कर सकते हैं स्थानीय विंडो में, आप अन्य खोजना चाहेंगे आदेशों)। इसलिए, संक्षेप में:

Set compileMe = objVBECommandBar.FindControl(Type:=msoControlButton, ID:=578) 
compileMe.Execute 

यह परियोजना के संकलन की अनुमति देगा। जैसा कि आप पूछ रहे थे, आप इसे इस वर्कबुक ओपन इवेंट में डाल दें:

Private Sub ThisWorkbook_Open() 
    Set compileMe = objVBECommandBar.FindControl(Type:=msoControlButton, ID:=578) 
    compileMe.Execute 'the project should hence be compiled 
End Sub