Combinar macros Excel

Hola, tengo una macro de Excel que en función de si el usuario pertenece o no a una matriz de administradores, les muestra unas hojas y esconde otras.
Necesito combinar esta macro con:- una que al abrir el libro esconda todas las hojas menos una de "AVISO" para obligar a habilitar las macros en un primer lugar.
- otra que impida imprimir
Private Sub Workbook_BeforePrint(Cancel As Boolean)MsgBox "AVISO: No imprimir. Información confidencial"Cancel = TrueEnd Sub
- otra que impida guardar el libro
Este es el Codigo de la macro que filtra por usuario: Private Sub Workbook_Open()'Creamos un vector con todos los usuarios con permisos de mayor nivel, para lo cual creamos una lista
administradores = "admin1, admin2"
'separamos los elementos de la matriz "administradores" usando split, y por la coma
administrador = Split(LCase(administradores), ",")
'Miramos si el nombre del usuario que ha abierto 'el fichero de excel, está en esa lista
usuario = LCase(Application.UserName)For i = 0 To UBound(administrador)posicion = posicion + InStr(usuario, administrador(i))
Next'Si el nombre del usuario no está dentro de la lista, entonces, la posición será igual a 0,'por lo que el usuario no tendrá derechos de administrador y sólo deberá ver sus pestañas:
If posicion = 0 Then'especificamos por usuario las pestañas que puede ver y ocultamos el resto:
       If usuario = "usuario1" Then        Sheets("hoja1").Visible = xlSheetVeryHidden        Sheets("hoja2").Visible = xlSheetVeryHidden        Sheets("hoja3").Visible = xlSheetVeryHidden       
Else'en caso de ser administrador mostramos todas las pestañas:Sheets("AVISO").Visible = xlSheetVisibleSheets("hoja1").Visible = xlSheetVisibleSheets("hoja2").Visible = xlSheetVisibleSheets("hoja3").Visible = xlSheetVisibleSheets("hoja4").Visible = xlSheetVisible
     End If     End If'grabamos los cambiosActiveWorkbook.SaveEnd Sub
he probado a crear módulos pero hasta ahora no consigo que fucione.Por favor, me podéis echar una mano.
muchas gracias!