Macro Global Excel

Buen día,

no se mucho de macros en excel, y estoy trabajando en una hojas de cálculo para mi trabajo, por razones de seguridad necesito deshabilitar la opción de "guardar como" e "imprimir". Utilizando unos macros que encontré, solucione el problema, pero esto es solo para una sola hoja de cálculo y necesito que sea global para todos los de excel, estoy intentando utilizar el módulo de "ThisWorkBook" en los macros personales (Personal.XLSB) pero no funcionan si los coloco en este módulo, les dejo los código:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI Then _
MsgBox "Bajo ninguna circunstancia debes copiar este libro !!!", _
vbCritical + vbOKOnly, "INFRACCIÓN DE USO !!!": Cancel = True
End Sub


Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
MsgBox "No me imprimas", vbInformation
End Sub

Si los pongo en el Módulo "ThisWorkBook" de cada libro independiene si funcionan correctamente, el problema es pasarlos a los macros globlales ubicados en "Personl.XLSB)

Por su atención Gracias.

Añade tu respuesta

Haz clic para o