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