كيف أربط الكودين معا في ورقة العمل

[أبو يوسف النجار]

السادة الأساتذة بالمنتدى  ،،،،  السلام عليكم ورحمة الله

كيف أربط بين الكودين الأول والثانى ليعملا  معا في  ThisWorkbook_Open

الكود الأول
Private Sub Workbook_Open()
Application.EnableCancelKey = xlDisabled
Application.Visible = False
UserForm1.Show
Workbooks.Application.Visible = True
ActiveWindow.DisplayHeadings = False
Application.DisplayFormulaBar = False
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",false)"
 Sheet83.Select
  End Sub
 ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
الكود الثانى
Private Sub Workbook_Open()
If Hex(CreateObject("Scripting.FileSystemObject").Drives.Item("C:").SerialNumber) <> "4282084B" Then
With ThisWorkbook
.Save
.ChangeFileAccess Mode:=xlReadOnly
Kill .FullName
.Close savechanges:=False
End With
End If
End Sub

ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

ولكم جزيل الشكر

تم تعديل يونيو 18, 2018 بواسطه أبو يوسف النجار

[احمد بدره]

تفضل الكود المطلوب

Private Sub Workbook_Open()

Application.EnableCancelKey = xlDisabled

Application.Visible = False

Workbooks.Application.Visible = True

ActiveWindow.DisplayHeadings = False

Application.DisplayFormulaBar = False

Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",false)"

UserForm1.Show

If Hex(CreateObject("Scripting.FileSystemObject").Drives.Item("C:").SerialNumber) <> "4282084B" Then

With ThisWorkbook

.Save

.ChangeFileAccess Mode:=xlReadOnly

Kill .FullName

.Close savechanges:=False

End With

End If

 Sheet83.Select

End sub

 

[أبو يوسف النجار]

جزاكم الله خيرا أستاذنا ويارك الله فيك وفي هذا الموقع الغالي

[محمود محمود احمد]

رائع عمل جميل ومتقن جدا