Maten la propiedad de showmodal = false y pega lo siguiente dentro de tu formulario, te pondrá los botones apra minimizar y maximizar el formulario.
Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Const WS_MINIMIZEBOX As Long = &H20000
Private Const WS_MAXIMIZEBOX As Long = &H10000
Private Const GWL_STYLE As Long = (-16)
Private Sub UserForm_Initialize()
Dim lngMyHandle As Long, lngCurrentStyle As Long, lngNewStyle As Long
lngMyHandle = FindWindow("THUNDERDFRAME", Me.Caption)
lngCurrentStyle = GetWindowLong(lngMyHandle, GWL_STYLE)
lngNewStyle = lngCurrentStyle Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX
SetWindowLong lngMyHandle, GWL_STYLE, lngNewStyle
End Sub
Saludos.Dam
Si es lo que necesitas.
Bueno tu aporte lamentablemente el archivo ejemplo ya no esta en el dropbox, me hubiera gustado un vistazo - Vi sor
Hola: Con gusto te envío el código, solamente crea una nueva pregunta en el tema de excel y pon en el desarrollo de la pregunta que va dirigida a Dante Amor. - Dante Amor