AQUI DEJO ESTOS PEQUEÑOS CODIGO DE MACROS DE EVENTOS

Private Sub Workbook_Open()
MsgBox ("Hola, bienvenido a las macros automáticas por eventos")
sw = 1
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox ("hasta luego, la hoja se cierra.... !!!")
Cancel = False
End Sub

Sub Workbook_BeforePrint(Cancel As Boolean)
If sw = 0 Then Cancel = False: GoTo salir
Cancel = True
MsgBox ("Este libro no está permitido que se imprima !!!")
salir:
End Sub

Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
opcion = MsgBox("¿De verdad desea guardar el libro?", vbYesNo)
If opcion = vbNo Then
Cancel = True
GoTo salida2
End If
entrada:
Mensaje = "Introduzca la clave para poder salvar el fichero:"
Título = "INTRODUCCION DE LA CLAVE"
ValorPred = ""
clave = InputBox(Mensaje, Título, ValorPred)
If clave <> "clave" Then
Cancel = True
veces = veces + 1
GoTo salida
Else
Cancel = False
GoTo salida2
End If
salida:
If veces <> 3 Then GoTo entrada
MsgBox ("Este libro no se guardará porque no está autorizado al no conocer la clave !!!")
MsgBox ("SI NO LA SABE, POR QUE LO INTENTA ???!!!!")
salida2:
End Sub

Private Sub Workbook_Deactivate()
MsgBox ("¡Hola!, hasta luego...")
End Sub

Private Sub Workbook_NewSheet(ByVal lahoja As Object)
MsgBox ("Ha creado una nueva hoja, que NO ESTA PERMITIDO y se va a autodestruir")
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
End Sub


DISFRUTENLAS