اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

مجموعة من كود vba


smail_d

الردود الموصى بها

  • الردود 51
  • Created
  • اخر رد

Top Posters In This Topic

كود يضع فى الشيت المراد عمل له كلمة سر للدخول عليه ولو كتبت غلط يرجع للصفحة الاصلية وطبعا تسطيع ان تغير اسم الشيت وكلمة السرهنا 5 تسطيع تغيرها

Private Sub Worksheet_Activate()

If InputBox("Password required", "مرحـــبا تفضل بالدخول") = 5 Then
MsgBox "welcome ....Louda Soft"
Else
MsgBox "كلمة السر خطاء ستعود الى الصفحة الرئيسية, Bye !!", vbOKOnly
Sheets("Sheet1").Activate
End If

End Sub

رابط هذا التعليق
شارك

وده كود يعطيك رسالة ترحيب اول الملف مايفتح

وطبعا متفقين انك ممكن تعدل فيها زى ماأنت عايز مما يتناسب مع ملفك

Private Sub Workbook_Open()
 Sheets("sheet1").Activate

 If Date >= #1/1/2000# Then
  MsgBox "أهلا بك فى منتدى أوفيسنا "


End If
End Sub

رابط هذا التعليق
شارك

لعمل نسخة احتياطية من ملفك على اى برتيشن على الهارد وفى هذا المثال بارتشينe

والملف المراد نسخ بيك اب منه محمى بكلمة سر khaled حتى لا يتوقف العمل

تمت كتابتهافى الكود

Sub Macro1()'


   ChDir "E:\"
    ActiveWorkbook.SaveAs Filename:="E:\NAME FILE  COPY.xls", FileFormat:= _
        xlNormal, Password:="khaled", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False

End Sub

رابط هذا التعليق
شارك

الاخ خالد نور :

الاخ smail_d :

اشكركم يا جماعه على الكنوز التى قمتم بعرضها

و لكن لى اقتراح هو ان نقوم بتقسيم هذه المعلومات فى مشاركات متعدده بحيث نقوم يتجميع الاكواد المتقاربه فى مشاركه منفصله تحت عنوان موضوع يشير الى مضمون المشاركه و ياريت نرفق ملف و شرح موجز للاكواد و من الممكن ان نسمى وصف الموضوع بكنوز smail_d و كنوز خالد نور 0

و فى حاله الاتفاق ممكن البدء عن طريقكم او اذا اردتم اخبارى بارقام المشاركات التى تريدون دمجها و اسهل عليكم الامر قليلا 0

فكروا

السلام عليكم

رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه



×
×
  • اضف...

Important Information