Full pantalla + barra personalizada

hola, Edixon !
__ 1 __

... se me produjo un problemita, yo uso Oficce xp, algunas hojas del proyecto estan bloqueadas
... cuando coloco la macro para que no se vean los menu quedan bloqueadas igualmente, hasta alli todo perfecto
el problema que tengo es que el proyecto lo estoy usando en otro pc que usa oficce 2000
y cuando coloco la macro para que se vea full la pantalla (sin menu)
las hojas bloqueadas se desbloquean automaticamente no se que pasa :(

__ 2 __

Conoces alguna macro que me haga la misma funcion que ctrl+p ya que muchas personas no saben estos atajos
y ya que no se ven los menu tengo que asignar a una imagen esta funcion.

1) recien acabo de hacer pruebas [incluyendo excel de office 2000 y '97] SIN el comportamieto que describes -?-
las hojas bloqueadas/protegidas/... -> continuan con sus bloqueos/protecciones/... -> tal como fueron establecidas
[haga lo que haga... vaya y venga de otros libros... etc. etc. etc.] ;)
-> probablemente... alguna/s otra/s parte/s del codigo 'completo' que estes utiizando estan causando 'conflictos' -?-
-> revisa en tus codigos cualquier instruccion que 'manipule' alguna des/re/proteccion de las hojas -?-

2) algunas opciones para 'sustituir' los atajos de teclado [como el ctrl+P]...
a) Application.Dialogs(xlDialogPrint).Show ' presenta el cuadro de dialogo impresion -> como el atajo de ctrl+P ;)
b) ActiveWindow.SelectedSheets.PrintOut ' manda a la impresora la/s hoja/s seleccionada/s en la interfase con el usuario
-> revisa en la ayuda en linea {F1} de vba por los demas parametros de este metodo [copias, etc.] :))
c) ActiveWindow.SelectedSheets.PrintPreview ' presenta el cuadro de dialogo de vista perliminar de impresion
d) Application.Dialogs(xlDialogPrintPreview).Show ' igual que el anterior
[...]

-> toma nota que al mostrarse los dialogos que interactuan con el usuario, podria hacer uso de las demas 'opciones' en ellos -?-

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Esta es la macro que estoy usando en conjunto con la de pantalla
completa
Nota: con exel oficce xp funciona perfecto
con excel offce 2000 la hoja 1 se desbloquea cuando elimino el modulo
de full pantalla queda bloqueada nuevamente



Private Sub Workbook_Open()
Worksheets("hoja1").Protect _
Password:="12345678", _
userinterfaceonly:=True
If Not ActiveWorkbook.FullName = "C:\proyecto.xls" Then
MsgBox "Este programa esta en proyecto, será usado después de
aprobado. Gracias"
Application.DisplayAlerts = False
Application.Quit
End If
End Sub
Private Sub Workbook_Activate()
MostrarTodo False
End Sub
Private Sub Workbook_Deactivate()
MostrarTodo True
End Sub
Private Sub MostrarTodo(ByVal Mostrar As Boolean)
With Application
.ScreenUpdating = False
.DisplayFullScreen = Not Mostrar
.WindowState = xlMinimized
.Visible = Mostrar
.WindowState = xlMaximized
End With
End Sub

Gracias por tu ayuda y por lo del atajo de ctrl+p