السادة الأساتذة بالمنتدى ،،،، السلام عليكم ورحمة الله
كيف أربط بين الكودين الأول والثانى ليعملا معا في 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
ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
ولكم جزيل الشكر