निजी कुंजी कोई Microsoft Excel - कैसे

निजी कुंजी कोई Microsoft Excel

कोई एक्सेल, से वेटा क्वेस्सर ट्रांसफॉर्मर उमा कोलुना इम चेव प्राइमरिया (ओएस डैडोस नाओ पोडेम से रिपेटिर), एब्रा ए प्लेनिला ई टीकल एएलटी + एफ 11, क्लिक 2x ना प्लैनिल्हा सेसजादा कोई मेनू नहीं एसेकेरा ई डिगिट ओ कोदिगो अबाइको:

निजी सब वर्कशीट_चेंज (रेंज के रूप में बायल टारगेट)
डिम टार्ग अस रेंज, सीएल अस रेंज, आरजी अस रेंज
सेट टार्ग = [F3: F55625]
'मुड ओ रेंज पैरा एक कोलुना डेसजादा
टारग सेट करें = Intersect (टार्ग, टारगेट)
यदि टारग इज़ नथिंग तो एक्जिट सब

Targ.Cells में प्रत्येक सीएल के लिए
अगर cel <> "" तब
सेट rg = कॉलम (cel.Column) .Find (cel, LookIn: = xlValues, के बाद: = cel)
अगर rg.Address <> cel.Address तब
अनुप्रयोग.नहीं
सीएल = ""
cel.Select
अनुप्रयोग.EnableEvents = सच
MsgBox "एन्ट्राडा डुपलाडा!" & Cel.valu
अगर अंत
अगर अंत
आगामी
अंत उप