مساعدة في تعديل على الكود

[محمدعوض]

Private Sub Workbook_Open()
Dim S$
With ActiveSheet
S = .Name
If S = "ورقة1" Or S = "ورقة2" Then
Alidroos_Control_F
Else
Alidroos_Control_T
End If
End With
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "ورقة1" Or Sh.Name = "ورقة2" Then
Alidroos_Control_F
Else
Alidroos_Control_T
End If
End Sub
Private Sub Alidroos_Control_F()
If Not Application.CommandBars Is Nothing Then
With Application.CommandBars
.FindControl(ID:=847).Enabled = False
.FindControl(ID:=848).Enabled = False
End With
End If
End Sub
Private Sub Alidroos_Control_T()
If Not Application.CommandBars Is Nothing Then
With Application.CommandBars
.FindControl(ID:=847).Enabled = True
.FindControl(ID:=848).Enabled = True
End With
End If
End Sub

سلام عليكم

اريد مساعدت في زيادة شيت رقم 3 الرجاء المساعدت في تعديل على الكود وشكرا .....

هذا هو الكود .....

[عبدالله المجرب]

اخي الأفضل إرفاق ملف به الكود 

 

====

حاولت واتمنى ان يكون هذا التعديل هو ما طلبت 

Private Sub Workbook_Open()
Dim S$
With ActiveSheet
S = .Name
If S = "ورقة1" Or S = "ورقة2" Or S = "ورقة3" Then
Alidroos_Control_F
Else
Alidroos_Control_T
End If
End With
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "ورقة1" Or Sh.Name = "ورقة2" Then
Alidroos_Control_F
Else
Alidroos_Control_T
End If
End Sub
Private Sub Alidroos_Control_F()
If Not Application.CommandBars Is Nothing Then
With Application.CommandBars
.FindControl(ID:=847).Enabled = False
.FindControl(ID:=848).Enabled = False
End With
End If
End Sub
Private Sub Alidroos_Control_T()
If Not Application.CommandBars Is Nothing Then
With Application.CommandBars
.FindControl(ID:=847).Enabled = True
.FindControl(ID:=848).Enabled = True
End With
End If
End Sub

[محمدعوض]

اخي ماظبط الكود شكلو ناقص الكود ؟؟