تحويل الباس ورد الى نجوم فى كود طلب باس ورد عند الدخول لشيت2

[yara ahmed]

السلام عليكم

هذا الماكرو للاستاذ عادل حنفى عند الانتقال لشيت 2 يطلب باس ورد وهى5

اريد عند كتابة الرقم5 او عند تغير الباس ورد تتحول الى *

مع الشكر

Private Sub Worksheet_Activate()
Sheet2.Range("Z1000").Activate
xx:
Dim x
x = InputBox("Password required" & Chr(13) & "welcome to Officena", "Welcome to Officena")
If x = 5 Then
Sheet2.Range("A1").Activate
MsgBox "welcome to sheet2"
Else
MsgBox "Wrong Password" & Chr(13) & " you shall go to sheet 3 and not 2, Bye !!", vbOK
Sheets("sheet3").Activate
End If
End Sub

goto the page with pass.xls

[Ali Mohamed Ali]

وعليكم السلام-تفضلى

goto the page with pass1.xls

[yara ahmed]

انا اسفة انى معرفتش اوصل المطلوب لحضرتك

عايزة اضافة للكود ليتم تحويل الباس لنجوم مثلا فورمات=****

لان كود استاذ علي محتاج انى اعمل موديول واغير بالكود 

وانا عندى بكل صفحة كود الباس ورد

فعايزة اضافة للكود بتاعى يحول الباس ورد لنجوم لو امكن

مشكور

[yara ahmed]

الملف هو الذى بالمشاركة الاولى اريد فقط على الكود نفسه اضافة 

تغير الفورمات بدل الارقام تظهرنجوم

الكود الذى وضعه استاذ علي ممتاز بس يحتاج ان اعمل موديول واغير بالكود 

وانا عندى هذا الكود بأكثر من صفحة احتاج اضافة سطر للكود مثلا Format namber=*

مع الشكر

goto the page with pass.xls

[Ali Mohamed Ali]

تفضل

goto the page with pass1.xls

[yara ahmed]

اشكرك جدا استاذ على ربنا يرضى عنك يارب

بارك الله فيك الف شكر لحضرتك جداااا