excel vba - How to enable events so Workbook_BeforeSave gets called -
मेरा कार्यपुस्तिका पूर्वशोध घटना सहेजने से पहले नहीं कहा जाता है
यह मेरा कोड है :
विकल्प स्पष्ट निजी उप कार्यपुस्तिका पूर्ववर्ती (सहेजाएव्यूएव्यू बूलियन के रूप में, बूलियन के रूप में रद्द करें) a = msgBox ("क्या आप वास्तव में कार्यपुस्तिका को सहेजना चाहते हैं?", VbYesNo) अगर a = vbNo तब रद्द करें = सच अंत उप यह शायद सामान्य है, क्योंकि संभवतया घटनाएं सक्षम नहीं हैं। अब मैंने application.Events = true को ऐसा करने की कोशिश की:
विकल्प स्पष्ट अनुप्रयोग। एवेन्ट्स = यह सही निजी उप कार्यपुस्तिकाबैवस्वेव (बाय व्हल सेवएएसयूआई बूलियन के रूप में, बूलियन के रूप में रद्द करें) ए = एमएसबीबीक्स ("क्या आप वास्तव में कार्यपुस्तिका को सहेजना चाहते हैं?", VbYesNo) यदि एक = वीबीएनओ फिर रद्द करें = ट्रू एंड सब यह कुछ भी नहीं बदलता है, कार्यपुस्तिका पहले सेवव बचत पर बुलाया लेकिन जब मैं Excel फ़ाइल बंद करता हूं, तो त्रुटि संदेश प्रदर्शित होता है:
अंग्रेजी अनुवाद है "संकलन त्रुटि: किसी प्रक्रिया के बाहर गलत निर्देश।"
जाहिर है Application.Events = true सही नहीं है
आशा है कि ये मदद करेंगे:
-
निजी उप कार्यपुस्तिका (पूर्ववर्ती सेवएएसयूआई बूलियन के रूप में, बूलियन के रूप में रद्द करें) एक VBA प्रोजेक्ट में ThisWorkbook के अंदर होना चाहिए।
अनुप्रयोग.सक्षम ईवेंट्स = ट्रू प्रक्रिया या फ़ंक्शन के बाहर डाली नहीं जा सकती।
घटनाएं डिफ़ॉल्ट रूप से सक्षम हैं इसलिए, वीबा प्रोजेक्ट के भीतर कहीं भी होना चाहिए घटनाक्रम अक्षम हो रहे हैं इसे इसके द्वारा खोजा जा सकता है:
एक बार जब आप वीबीए प्रोजेक्ट के अंदर हों, तो खोजें डायलॉग बॉक्स खोलने के लिए Ctrl + F दबाएं। फिर वर्तमान प्रोजेक्ट में एप्लिकेशन के लिए खोज। सक्षम करें। प्रेस अगला खोजें नीचे दी गई छवि देखें।
आप आवेदन को बदलने और देखने के लिए एक छोटे से उप का उपयोग कर सकते हैं। सक्षम ईवेंट स्थिति (चालू / बंद) किसी भी मानक मॉड्यूल के तहत उप जगह। नीचे दी गई छवि देखें।
Comments
Post a Comment