الـعيدروس قام بنشر يونيو 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 رابط هذا التعليق شارك More sharing options...
naderwatfa قام بنشر يونيو 30, 2011 مشاركة قام بنشر يونيو 30, 2011 أولاً : أشكرك على الكود الجميل و المفيد جداً أنا ها استفيد منه في عملي ثانياً : اسمح لي أضع الكود في الصفحة دي http://www.officena.net/ib/index.php?showtopic=36867&st=160 حيث يتم تجميع الأكواد في هذا الموضوع رابط هذا التعليق شارك More sharing options...
naderwatfa قام بنشر يونيو 30, 2011 مشاركة قام بنشر يونيو 30, 2011 (معدل) الكود بعد دمجه في ملف كود دخول الورقة بتصريح.rar تم تعديل يونيو 30, 2011 بواسطه naderwatfa رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يونيو 30, 2011 الكاتب مشاركة قام بنشر يونيو 30, 2011 السلام عليكم الاخ الفاضل نادر مشكور على مرورك العطر وجزاك الله خير نقلته للمكان الصح وفقك الله رابط هذا التعليق شارك More sharing options...
MOHAMEDTAHER7 قام بنشر يونيو 30, 2011 مشاركة قام بنشر يونيو 30, 2011 كود رائع الف شكررررررررررررررر رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يونيو 30, 2011 الكاتب مشاركة قام بنشر يونيو 30, 2011 الاخ محمد مشكور على المرور وفقك الله رابط هذا التعليق شارك More sharing options...
saad abed قام بنشر يونيو 30, 2011 مشاركة قام بنشر يونيو 30, 2011 اخى alidroos مشكور اخى على هدياك الجميلة جزاك الله كل خير اخوك سعد عابد رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يونيو 30, 2011 الكاتب مشاركة قام بنشر يونيو 30, 2011 هلابيك اخ سعد نورت الموضوع وشكرا جدا على مرورك العطر رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.