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

[هادى محمد المامون سالم]

الله يفتح عليك

[smail_d]

مشكور اخي الكريم

[smail_d]

بسم الله الرحمن الرحيم

Sub ComptageDesFeuilles()
   MsgBox Worksheets.Count
End Sub

[smail_d]

بسم الله الرحمن الرحيم

تكرار الجملة في العمود

Sub Test()
  Dim Ctr As Integer
  For Ctr = 1 To 10
    Cells(Ctr, 1) = "بسم الله الرحمن الرحيم"
  Next
End Sub

[smail_d]

كلمة المرور

Sub TestLoop5()
  Dim Reponse As String
  Reponse = InputBox("ادخل كلمة المرور")
  Do While Reponse <> "اسماعيل"
    Reponse = InputBox("الكلمة غير صحيحة: حاول مرة ثانية")
  Loop
End Sub

[smail_d]

بسم الله الرحمن الرحيم

عدد الرسالات الممكنة " هنا خمس رسالات "

Sub LeForToNext()
  Dim Banane
  For Banane = 1 To 5
    MsgBox " خيالي " 
  Next
End Sub

[smail_d]

بسم الله الرحمن الرحيم

كتابة هذه الجملة في العمود الثاني و الصف الرابع

Sub Test()
  Cells(4, 2) = "صلي و سلم على سيدنا محمد صلى الله عيه و سلم"
End Sub

[smail_d]

اليرقيم المتسلسل

Sub test()
  For Ctr = 1 To 10
    Range("A1:A10")(Ctr) = Ctr
  Next
End Sub

[smail_d]

كتابة الكلمة او الجملة بالالوان في احدى الصفوف

Sub LaTomateRouge()
  Application.Range("B6").Font.Color = 255
  Application.Range("B6").Value = "بسم الله "
End Sub

[smail_d]

بسم الله الرحمن الرحيم

كيف يتم تثبيت تاريخ اليوم و الوقت في احد الخلايا

Sub LetztesSpeicherdatumEintragen()
Range("d1").Value = _
ActiveWorkbook.BuiltinDocumentProperties("Last Save Time").Value
End Sub

[smail_d]

بسم الله الرحمن الرحيم

كيف يتم حذف شريط الادوات -ملف -ادوات -تحرير ... الخ

Sub MenueleisteAusblenden()
    Application.CommandBars("Worksheet Menu Bar").Enabled = False
End Sub

[خالد نور]

بارك الله فيك مجمعة اكواد روعة فى انتظار المزيد

[smail_d]

اعادة شريط الادوات الى ما كان عليه

Sub MenueleisteEinblenden()
    Application.CommandBars("Worksheet Menu Bar").Enabled = True
End Sub

[خالد نور]

Sub Auto_Close()
If Date >= #31/1/200# Then
   MsgBox "  GOOD BAY"

End If


End Sub

[خالد نور]

كود لاخراج رسالة عند قفل الملف تلقائيا والتاريخ للتصحيح 2000 وليس 200 وممكن ان تغير التاريخ كما تحب

[smail_d]

بارك الله فيك يأخي الكريم
تزويد الاعظاء بهذه الكودات القصيرة التي يحتاجها كل مستخدم في بعض البرامج و يمكن تعديلها اذا امكن ذللك

[smail_d]

بسم الله الرحمن الرحيم

اظهار الفورم

Private Sub cmdShowForm_Click()
   UserForm1.Show
End Sub

[خالد نور]

كود يضع فى الشيت المراد عمل له كلمة سر للدخول عليه ولو كتبت غلط يرجع للصفحة الاصلية وطبعا تسطيع ان تغير اسم الشيت وكلمة السرهنا 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

فكروا

السلام عليكم

[smail_d]

بسم الله الرحمن الرحيم

انا في مخيلتي أعتقد لا يوجد اي أحد من الأعظاء في هذا المنتدى العريق
كما تلاحظ اخي الكريم hs889

[smail_d]

يتبع

فتح الملفات و خاصة منها الاكسيل

Sub FichierOuvrir()
  FichierAOuvrir = Application.Dialogs(xlDialogOpen).Show
  MsgBox FichierAOuvrir
End Sub

[smail_d]

الحفظ او الخروج

Sub Excel_beenden()
  Application.Quit
End Sub

[smail_d]

تلوين الصفوف

Sub MehrereZeilenMarkieren()
Range("1:1,3:3,5:5,9:9,11:11").Select
End Sub