الـعيدروس قام بنشر يونيو 30, 2011 قام بنشر يونيو 30, 2011 (معدل) السلام عليكم الاخوة الافاضل هذا كود في حدث الصفحه عند الدخول المرئي من الورقة اخر الصفوف بمعنى لو الورقة فيها بيانات اذا لم يبرز التصريح لايمكنه رؤية مابداخل الورقة انشاء الله تستفيدو منه Option Explicit Private Sub Worksheet_Activate() Dim pwd As String: pwd = "123" Cells(Rows.Count, Columns.Count).Activate If Application.InputBox("برجاء ادخال التصريح لدخول الورقة?", "تصريح دخول الورقة", "???") <> pwd Then Sheets("ورقة2").Activate MsgBox "الباسورد خطاء غير مسموح لك دخول هذه الورقة", 0, "عفواً محضور الدخول" Else MsgBox "مرحبا بك", 32, "دخول ناجح" Range("A1").Activate End If End Sub الباسورد هو 123 ولتغيره من الكود في هذه الجزئية Dim pwd As String: pwd = "123" والسلام عليكم تم تعديل يونيو 30, 2011 بواسطه alidroos
naderwatfa قام بنشر يونيو 30, 2011 قام بنشر يونيو 30, 2011 أولاً : أشكرك على الكود الجميل و المفيد جداً أنا ها استفيد منه في عملي ثانياً : اسمح لي أضع الكود في الصفحة دي http://www.officena.net/ib/index.php?showtopic=36867&st=160 حيث يتم تجميع الأكواد في هذا الموضوع
naderwatfa قام بنشر يونيو 30, 2011 قام بنشر يونيو 30, 2011 (معدل) الكود بعد دمجه في ملف كود دخول الورقة بتصريح.rar تم تعديل يونيو 30, 2011 بواسطه naderwatfa
الـعيدروس قام بنشر يونيو 30, 2011 الكاتب قام بنشر يونيو 30, 2011 السلام عليكم الاخ الفاضل نادر مشكور على مرورك العطر وجزاك الله خير نقلته للمكان الصح وفقك الله
الـعيدروس قام بنشر يونيو 30, 2011 الكاتب قام بنشر يونيو 30, 2011 الاخ محمد مشكور على المرور وفقك الله
saad abed قام بنشر يونيو 30, 2011 قام بنشر يونيو 30, 2011 اخى alidroos مشكور اخى على هدياك الجميلة جزاك الله كل خير اخوك سعد عابد
الـعيدروس قام بنشر يونيو 30, 2011 الكاتب قام بنشر يونيو 30, 2011 هلابيك اخ سعد نورت الموضوع وشكرا جدا على مرورك العطر
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.