كود منع المستخدم من تغيير اسم الشيتات

[أبو قاسم]

كود منع المستخدم من تغيير اسم الشيتات 

[shreif mohamed]

Private Sub worksheet_SelectionChange(ByVal Target As Excel.Range)

' حيث اسم الشيت المطلوب عدم تغيير اسمهMaster

If ActiveSheet.Name <> "Master" Then

ActiveSheet.Name = "Master"

End If

End Sub

[/CODE)

[أبو قاسم]

5 ساعات مضت, shreif mohamed said:

 

Private Sub worksheet_SelectionChange(ByVal Target As Excel.Range)

' حيث اسم الشيت المطلوب عدم تغيير اسمهMaster

If ActiveSheet.Name <> "Master" Then

ActiveSheet.Name = "Master"

End If

End Sub

[/CODE)

شكرا لك وجزاك الله الف خير