اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

كيف أربط بين الكودين الأول والثانى ليعملا  معا في  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

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

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

تم تعديل بواسطه أبو يوسف النجار
رابط هذا التعليق
شارك

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

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

 

  • Like 2
  • Thanks 1
رابط هذا التعليق
شارك

  • 2 months later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information