كيف أعرف ما إذا كان الملف للقراءة فقط؟

كيف أعرف ما إذا كان الملف للقراءة فقط؟. صباح الخير،

في منزلي لا يعمل. لذلك وجدت رمزًا آخر يبدو أنه يعمل:

إذا كان ActiveWorkbook.ReadOnly ثم
MsgBox “الملف قيد الاستخدام”
آخر
MsgBox “كتابة ملف”
إنهاء إذا

أخبرني أنني سأقوم بالإساءة قليلاً ولكن لدي مشكلة مع نوع آخر من التعليمات البرمجية ، أكثر تركيزًا على OUTLOOK. أود هنا إرسال رسالة مرفقة إلى العديد من المستخدمين الذين استرد عناوين بريدهم الإلكتروني من القوائم المنسدلة في جدول بيانات. لا يمكنني إخباره بإرسالها إلى عدة أشخاص في نفس الوقت (في نفس رسالة Outlook)

تعيين MyOutlook = CreateObject (“Outlook.Application”)
تعيين MyMessage = MyOutlook.createitem (0)

MyMessage.To = النطاق (“A1”). القيمة ، النطاق (“A2”). القيمة
MyMessage.Cc = النطاق (“A3”). القيمة
MyMessage.Bcc = النطاق (“A4”). القيمة
MyMessage.Subject = “اختبار ماكرو VBA”
MyMessage.body = “اختبار إرسال البريد الإلكتروني تلقائيًا”
MyMessage.Attachments.Add “c: toto.xls
MyMessage.send

اضبط MyOutlook = لا شيء

إذا قمت باستبدال النطاق (“A3”). القيمة بعنوان المستلم “toto@email.fr؛ toto2@email.fr” فإنه يعمل.
لا أفهم.
هل لديك فكرة ؟

شكرا لك على مساعدتك
كريستين

هل كان المقال مفيداً؟شاركه مع أصدقائك ولا تنسى لايك والتعليق