خطأ في كود الحمايه للصفحه النشطه

[وائل الاسيوطي]

الكود بيعطيني هذا الخطأ فما السبب؟

الكود لاخي ياسر ابو البراء

[ياسر خليل أبو البراء]

أخي الكريم

من الأفضل إرفاق الملف للإطلاع عليه

هل هناك حماية لورقة عمل معينة بكلمة سر أخرى غير كلمة Wael ..؟؟ قد يكون أحد الأسباب

[وائل الاسيوطي]

لقد تأ؛كدت من كلمه السر 

والملف كان يعمل تمام حتي اضفت الكود 

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

فاعطي رساله الخطأ وغلق الملف تماماولا يريد ان يفتح

[وائل الاسيوطي]

هذا هو الملف اخواني 

كود الحمايه لاخي ياسر وكود الماكرو لاخي عبدالله باقشير

Protect & Unprotect All Sheets YasserKhalil V2.rar