السلام عليكم ورحمة الله وبركاته
افتقدتكم كثيرا
لمعرفة ما اريده من هذا الملف قم بالتالي:
قم بفتح الملف المرفق
في الحالتين تمكين وتعطيل وشاهد النتيجة
ثم قم بفتح الملف في حالة التمكين واضغط الزر
kh_ChngPwd
لتفعيل شاشة دخول باسم مستخدم وكلمة مرور
ثم اغلق الملف
ثم قم بفتح الملف في حالة التمكين والتعطيل
وشاهد النتيجة
قمت بتجربة هذا الكود على اكسل 2003و2007
وهما ما في المرفق
واريدكم ان تجربوه على 2010
===================================
ممكن استخدام هذا الكود في اي ملف
باستيراد الفورمين
FormAhlnWShln
FormChngPwd
والموديل
ModChngPwd
ونسخ الاكواد الموجوده في حدث
ThisWorkbook
===================================
كلمة السر للاكواد : 1
===================================
ودمتم في حفظ الله فورم حماية الملف.rar
========================================================
من اراد استخدام الكود
بدون استخدام فورم الحماية
يضع هذه الاكواد في موديل
Option Explicit
Sub Auto_Open()
kh_wVisible True
End Sub
Sub Auto_Close()
kh_wVisible False
ThisWorkbook.Close Not CBool(ThisWorkbook.Saved)
End Sub
Sub kh_wVisible(ibol As Boolean)
Dim nBook As String
nBook = ThisWorkbook.Name
With Windows(nBook)
If .Visible = Not ibol Then .Visible = ibol
End With
End Sub
المرفق 2003 2007 th1.rar