تفضل الكود المطلوب
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