Este es el codigo que tiene creado en excel ejecuto la macro para ver el codigo presionando alt+f11 y de ahi me voy a modulo 3 y tiene este codigo y me gustaria saber para que lo pone y si borro el modulo no le pasa nada al excel?

Sub auto_open()
ShowSerial
acceso
Tiempo
End Sub
Sub ShowSerial()
Dim FechaActual, FechaLimite As Date
FechaActual = Date
If Worksheets(1).Range("IV65535").Value > 0 Then
Exit Sub
Else
Worksheets(1).Range("IV65535").Value = Date
Dim fs, d
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.getdrive(fs.getdrivename(fs.GetAbsolutePathName("c:")))
Worksheets(1).Range("IV65536") = d.serialnumber
ActiveWorkbook.Save
End If
End Sub
Sub acceso()
Dim fs, d
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.getdrive(fs.getdrivename(fs.GetAbsolutePathName("c:")))
If d.serialnumber <> Worksheets(1).Range("IV65536") Then MsgBox _
"Equipo no autorizado adquierala en pagina del autor": _
Application.DisplayAlerts = False: ELIMINA: _
ActiveWorkbook.Save: ActiveWorkbook.Close
End Sub
Sub ELIMINA()
Application.DisplayAlerts = False
Sheets("EJEMPLO1").Select
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = False
Sheets("EJEMPLO2").Select
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = False
Sheets("EJEMPLO3").Select
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = False
Sheets("EJEMPLO4").Select
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = False
Sheets("EJEMPLO5").Select
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = False
Sheets("EJEMPLO6").Select
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = False
Sheets("EJEMPLO7").Select
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = False
Sheets("EJEMPLO8").Select
ActiveWindow.SelectedSheets.Delete

ActiveWorkbook.Save

End Sub