quitar mensaje controles activex
daniel
tengo en un userform el control del reproductor de windows media
y cada vez que abro el archivo me aparece un mensaje de activar los
controles actives
como puedo hacer para que no aparezca ese mensaje:
e probado con esto pero no funciona.
tambien e probado cambiando a true.
Private Sub Workbook_Open()
Application.DisplayAlerts = False
End Sub
un saludo y muchas gracias
Daniel
Héctor Miguel
> tengo en un userform el control del reproductor de windows media
> y cada vez que abro el archivo me aparece un mensaje de activar los controles actives
> como puedo hacer para que no aparezca ese mensaje:
> e probado con esto pero no funciona.
> tambien e probado cambiando a true.
> Private Sub Workbook_Open()
> Application.DisplayAlerts = False
> End Sub
op1: 'dentro' de herramientas / macro / seguridad...
-> EN la ficha de editores/fuentes de confianza...
-> pon una marca a la opcion de: -> confiar en todas las plantillas y complementos instalados ;)
op2: atiende a los comentarios de: -> http://office.microsoft.com/en-us/ork2003/HA011403201033.aspx
-> y agrega/edita [obviemente con todas las precauciones *de ley*] claves en el registro de windows...
a) para inicializar controles ActiveX:
HKEY_CURRENT_USER\Software\Microsoft\Office\Common\Security
agrega/edita un [nuevo] valor DWORD con el nombre de: -> UFIControls
y estableces un valor de 1 a 6 [donde el mas 'bajo' es tambien el mas 'inseguro'] :-(
b) para incializar formularios y controles ActiveX:
HKEY_CURRENT_USER\Software\Microsoft\VBA\Security
agrega/edita un [nuevo] valor DWORD con el nombre de: -> LoadControlsInForms
y estableces un valor de 1 a 4 [revisa con cuidado los sigificados de cada uno de estos valores] <= OJO
si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.
daniel
Muchas graias por toda la ayuda dada
1)como se podria hacer para que si le envias el archivo a alguien
pues que no tenga que hacer todos esos pasos.
se puede con alguna macro.
2)tengo la siguiente duda haber si sabes como se puede hacer
tengo un userform llamado principal y en este un boton que al pulsar lo
me abre un archivo de excel y ejecuta una macro que abre un userform.
y necesito que se puedan manejar los dos userform o mas userform a la vez.
y necesito de un boton en el userform principal que cuando tenga el userform
(del archivo) minimizado en cualquier momento
se muestre.
Todo esto lo voy a hacer sin utilizar la barra de herramientas por que la
voy a ocultar con una macro.
un saludo y muchas gracias
Daniel
"Héctor Miguel" <NOhemio...@PLShotmail.com> escribió en el mensaje
news:ux$igtuBI...@TK2MSFTNGP06.phx.gbl...
Héctor Miguel
> 1) como se podria hacer para que si le envias el archivo a alguien pues que no tenga que hacer todos esos pasos.
> se puede con alguna macro.
1) [hasta donde se] los temas referentes a cuestiones de preferencias o politicas de seguridad...
no puedes *manipularlas* usando codigo para modificar las de otro usuario/pc/politica empresarial/ etc.
[o sea, son cada vez menos susceptibles a los codigos *discrecionales/arbitrarios/unilaterales*] :-((
> 2) ... tengo un userform... principal y... un boton que... abre un archivo... y ejecuta una macro que abre un userform.
> y necesito que se puedan manejar los dos userform o mas userform a la vez.
2) [basicamente] solo necesitas que cada userform se muestre de forma *no modal* [para que no requiera respuesta del usuario]
forma que puedes establecer en la instruccion que lo muestra p.e. -> UserForm1.Show vbModeless
> y necesito de un boton en el userform principal que cuando tenga el userform (del archivo) minimizado en cualquier momento se muestre.
-> [aqui] es necesario que comentes los procedimientos *adicionales* que usas para *minimizar* formularios individuales...
y alguna forma o mecanismo para determinar *cual* es el que estando minimizado debiera volver a mostrarse -?-
o... que has intentado y que has obtenido o porque no te ha funcionado -???-
> Todo esto lo voy a hacer sin utilizar la barra de herramientas por que la voy a ocultar con una macro.
-> en esta parte como que me he perdido :-| no se que implicaciones pudiera tener usar [o no] la barra de herramientas -?-
daniel
Siento no poder responder antes
Muchas gracias por ayudar me.
Creo que ya lo e solucionado.
como se hace para poner dos comandbutton uno para cerrar y otro para
minimizar que codigo abria que poner
esto es el codigo que e utilizado.
-----------inicio del codigo--------
Private Sub UserForm_Initialize()
lFrmHdl = FindWindowA(vbNullString, Me.Caption)
ShowTitleBar False
End Sub
----------dentro de un modulo---------
Option Explicit
'// Transparencia
Public Declare Function SetLayeredWindowAttributes _
Lib "user32" ( _
ByVal hWnd As Long, _
ByVal crKey As Long, _
ByVal bAlpha As Byte, _
ByVal dwFlags As Long) _
As Long
Public Declare Function GetWindowRect Lib "user32" ( _
ByVal hWnd As Long, _
lpRect As RECT) As Long
Public Declare Function SetWindowLong Lib "user32" _
Alias "SetWindowLongA" ( _
ByVal hWnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Public Declare Function GetWindowLong Lib "user32" _
Alias "GetWindowLongA" ( _
ByVal hWnd As Long, _
ByVal nIndex As Long) As Long
'// Gane estilos
Public Const GWL_EXSTYLE = (-20)
Public Const GWL_STYLE = (-16)
Public Const WS_EX_LAYERED = &H80000
Public Const WS_CAPTION = &HC00000 ' Borde de Cuadro
Public Const WS_MAXIMIZEBOX = &H10000
Public Const WS_MINIMIZEBOX = &H20000
Public Const WS_SYSMENU = &H80000
'//
Public Const LWA_COLORKEY = &H1
Public Const LWA_ALPHA = &H2
Public Const ULW_COLORKEY = &H1
Public Const ULW_ALPHA = &H2
Public Const ULW_OPAQUE = &H4
Public Declare Function SetWindowPos Lib "user32" ( _
ByVal hWnd As Long, _
ByVal hWndInsertAfter As Long, _
ByVal X As Long, _
ByVal Y As Long, _
ByVal cx As Long, _
ByVal cy As Long, _
ByVal wFlags As Long) As Long
Public Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" ( _
ByVal hWnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long
Public Declare Function FindWindowA _
Lib "user32" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) _
As Long
Public Const SWP_SHOWWINDOW = &H40
Public Const SWP_HIDEWINDOW = &H80
Public Const SWP_FRAMECHANGED = &H20
Public Const SWP_NOACTIVATE = &H10
Public Const SWP_NOCOPYBITS = &H100
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOOWNERZORDER = &H200
Public Const SWP_NOREDRAW = &H8
Public Const SWP_NOREPOSITION = SWP_NOOWNERZORDER
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOZORDER = &H4
Public Const SWP_DRAWFRAME = SWP_FRAMECHANGED
Public Const HWND_NOTOPMOST = -2
Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Public lResult As Long
Public frmHdl As Long
Public blnTitleVisible As Boolean
Public blnCtrlShow As Boolean
Public lFrmHdl As Long
Public Function ShowTitleBar(ByVal bState As Boolean)
Dim lStyle As Long
Dim tR As RECT
'// Consiga la posición de la ventana
GetWindowRect lFrmHdl, tR
'// Modifica la barra de título visible:
lStyle = GetWindowLong(lFrmHdl, GWL_STYLE)
'
If Not bState Then
' lStyle = lStyle Or WS_SYSMENU
' lStyle = lStyle Or WS_MAXIMIZEBOX
lStyle = lStyle Or WS_MINIMIZEBOX
lStyle = lStyle Or WS_CAPTION 'Prueba a cambiar Or por And Not
"Para salir del Formulario doble clik"
blnTitleVisible = True
Else
lStyle = lStyle Or WS_SYSMENU
lStyle = lStyle Or WS_MAXIMIZEBOX
lStyle = lStyle Or WS_MINIMIZEBOX
lStyle = lStyle Or WS_CAPTION
blnTitleVisible = False
End If
SetWindowLong lFrmHdl, GWL_STYLE, lStyle
'// Asegure las tomas de estilo y haga la ventana el del mismo tamaño
'// indiferente que la barra de título
'// son ahora un tamaño diferente:
SetWindowPos lFrmHdl, 0, tR.Left, tR.Top, tR.Right - tR.Left, tR.Bottom -
tR.Top, _
SWP_NOREPOSITION Or SWP_NOZORDER Or SWP_FRAMECHANGED
End Function
---------------fin del codigo------------------
"Héctor Miguel" <NOhemio...@PLShotmail.com> escribió en el mensaje
news:ekrUMB4...@TK2MSFTNGP05.phx.gbl...