Por que me pide la Contraseña del Proyecto al cerrar el libro excel

23/09/2005 - 10:23 por DEC | Informe spam
Aquí muestro el código que utilizo para abandonar la aplicación.
Y Casi siempre me muestra la ventanita de VBAProyect Contraseña.
Si la introduzco se cierra y si no me la sigue pidiento unas cinco
veces, hasta que se cierra.


' BOTON del MENU PRINCIPAL


Private Sub CommandButton10_Click()
Unload MENU_PRINCIPAL
Cerrar_Libro
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim TuCondicionDeSalida As Boolean


If SALIDA = True Then
ElseIf Sheets("Acerca de").Range("IU45") < 1 Then
If TuCondicionDeSalida = False Then
Cancel = True
Else
Cancel = False
End If
End If
End Sub


Sub Cerrar_Libro()


Dim respuestas As Integer
Dim SALIDA As Boolean
'On Error Resume Next


Application.StatusBar = False


If SALIDA = False Then
respuestas = MsgBox(" Deseas guardar los cambios efectuados en '
xxxx.xls ", vbYesNo, Title:="Pregunta ")
If respuestas = vbYes Then
Restablece_Teclas
Application.Visible = False
Muestra_Entorno
Application.StatusBar = False
CommandBars("toolbar list").Enabled = True
Libros_xls
ThisWorkbook.Close SAVECHANGES:=True
Application.Quit
Else
Restablece_Teclas
Application.Visible = False
Muestra_Entorno
Application.StatusBar = False
CommandBars("toolbar list").Enabled = True
Libros_xls
ThisWorkbook.Close SAVECHANGES:=False
Application.Quit

End If
Else
Restablece_Teclas
Application.Visible = False
Muestra_Entorno
Application.StatusBar = False
CommandBars("toolbar list").Enabled = True
Libros_xls
ThisWorkbook.Close SAVECHANGES:=False
Application.Quit

End If
End Sub


Sub Libros_xls()


Application.IgnoreRemoteRequests = False


End Sub


Sub Restablece_Teclas()


Application.OnKey "^{C}"
Application.OnKey "^{AVPAG}"
Application.OnKey "^{REPAG}"
Application.OnKey "^%{DEL}"
Application.OnKey "%+M"
Application.OnKey "%+O"
Application.OnKey "^+p"
Application.OnKey "{F2}"
Application.OnKey "{F3}"
Application.OnKey "{F4}"
Application.OnKey "{F5}"
Application.OnKey "{F6}"
Application.OnKey "{F7}"
Application.OnKey "{F8}"
Application.OnKey "{F9}"
Application.OnKey "{F10}"
Application.OnKey "{F11}"
Application.OnKey "{F12}"
Application.OnKey "^{F12}"
Application.OnKey "^{F11}"
Application.OnKey "^{F10}"
Application.OnKey "^{F9}"
Application.OnKey "^{F8}"
Application.OnKey "^{F5}"
Application.OnKey "^{F4}"
Application.OnKey "%{F8}"
Application.OnKey "%{F4}"
Application.OnKey "%{F2}"
Application.OnKey "%{F1}"
Application.OnKey "^u"
Application.OnKey "^a"
Application.OnKey "%{F11}"
Application.OnKey "%{F12}"
Application.OnKey "+{F11}"
Application.OnKey "+{F12}"


End Sub


Sub Muestra_Entorno()
Sheets("Acerca de").Range("IU45") = 1: Sheets("Acerca
de").Range("IU47") = ""
Mostrar_Menus
EntornoNormal True
End Sub
Sub EntornoNormal(ByVal Mostrar As Boolean)
On Error Resume Next
Application.CommandBars("Formatting").Visible = Mostrar
Application.CommandBars("Standard").Visible = Mostrar
Application.CommandBars.ActiveMenuBar.Enabled = Mostrar
Application.CommandBars.ActiveMenuBar.Visible = Mostrar


With Application
' .ShowStartupDialog = Mostrar
.DisplayFormulaBar = True
.DisplayStatusBar = True
.ShowWindowsInTaskbar = Mostrar
End With
End Sub


Espero que alguien pueda ver de donde viene mi problema, de que cuando
creo
que ya se ha cerrado la aplicación por completo me salta la ventanita
de VBAProyect contraseña.
 

Leer las respuestas

#1 Héctor Miguel
24/09/2005 - 02:02 | Informe spam
hola, david !

... muestro el codigo que utilizo para abandonar la aplicacion.
... casi siempre me muestra la ventanita de VBAProyect Contrase#a.
... si la introduzco se cierra y si no me la sigue pidiento unas cinco veces, hasta que se cierra.
... de donde viene mi problema... cuando creo que ya se ha cerrado la aplicacion por completo me salta la ventanita [...]



1) [me parece que] el codigo que muestras es -aparentemente- 'parcial' -?-
2) 'a simple vista'... no se aprecia que lineas/s pudiera/n ser 'causa' del problema :-(
3) es -solo- probable que alguna herramienta de terceros sea la causa [como el google desktop] -?-
4) la instruccion que usas para 'cerrar' la aplicacion ->Application.Quit<-
-> cuando esta 'precedida' por un 'Workbook.Close'... YA NO SE EJECUTA <= OJO
-> es necesario que el application.quit vaya ANTES que un '.close' :))
5) comentarios 'al margen'...
a) la variable 'SALIDA' es 'False'... siempre [a menos que en otras partes del codigo la modifiques] -?-
b) el codigo de la macro 'Cerrar_Libro'... es -totalmente- 'redundante' :-(
observa que TODAS las instrucciones y sub-macros son ejecutadas/llamadas de manera 'invariable' [siempre]
[independientemente de cuales sean las 'condiciones' en cada If...End If] :)
la UNICA diferencia es si se guardan [o no] los cambios que se hubieran podido efectuar en el libro
c) [te sugiero] 'mueve' -todas- las instrucciones al evento '_beforeclose' [no olvides donde va el application.quit]
y 'deja' que la aplicacion 'le pregunte' al usuario por los cambios [en el caso de que se hubieran efectuado] ;)
6) [pregunta]... cual es el 'uso entendido' que le das a la instruccion... Application.IgnoreRemoteRequests = False ???

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

Preguntas similares