الفتح بشروط

[gelani]

السلام عليكم

ارغب في حماية ورقة عمل بحيث أنه عند الفتح تتم المقارنة بين القيمة الموجودة في العمود B من الصفحة الأولى AAوالثانية BB فإذا كانت مختلفة يتم إقفال البرنامج

Private Sub Workbook_Open()

If Sheets("aa").Range("b1") <> Sheets("bb").Range("b1") Then

Else

If Sheets("aa").Range("b2") <> Sheets("bb").Range("b2") Then

Else

If Sheets("aa").Range("b3") <> Sheets("bb").Range("b2") Then

Else

If Sheets("aa").Range("b4") <> Sheets("aa").Range("b4") Then

Application.ActiveWorkbook.Close savechanges = yes

End If

End If

End If

End If

End Sub

وقد كتبت الكود أعلاه ولم يعمل معي - حاولت إرفاقة ولم أستطع

أرجو من ذوي الخبرة المساعدة ولكم منا خالص الدعاء .

أطيب تحية .

[ابو اسامة العينبوسي]

Private Sub Workbook_Open()
If Sheets("aa").Range("b1") <> Sheets("bb").Range("b1") _
And Sheets("aa").Range("b2") <> Sheets("bb").Range("b2") _
And Sheets("aa").Range("b3") <> Sheets("bb").Range("b2") _
And Sheets("aa").Range("b4") <> Sheets("aa").Range("b4") _
Then
Application.ActiveWorkbook.Close savechanges = yes
End If
End Sub

[gelani]

وفقك الله وجزاك خيراً وجعل ما تقومون به خالصاً لوجهه الكريم وأن يمتعكم بالصحة والعافية .