Eu consegui fazer o que precisava, usei um código que achei para fazer com que pudesse usar a planilha com o formulário aberto e em outro caso achei um código que coloquei no botão que chama o form aí ficou perfeito, agora posso digitar enquanto a tela está aberta.
Segue abaixo os códigos.
Código:
Option Explicit
Private Declare Function FindWindow& Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName$, _
ByVal lpWindowName$)
Private Declare Function SetWindowLong& Lib "user32" Alias _
"SetWindowLongA" (ByVal hWnd&, ByVal nIndex&, _
ByVal dwNewLong&)
Private Declare Function EnableWindow& Lib "user32" _
(ByVal hWnd&, ByVal fEnable&)
Private Declare Function ShowWindow& Lib "user32" _
(ByVal hWnd&, ByVal nCmdShow&)
'--------------------->
Private Sub UserForm_Initialize()
'\ Minimizar
Dim Style As Long
Style = &H84C80080 Or &H20000 Or &H40000
SetWindowLong FindWindow(vbNullString, Me.Caption), -16, Style
EnableWindow FindWindow(vbNullString, Application.Caption), 1
End Sub
'--------------------->
Private Sub UserForm_Activate()
Dim hWnd As Long
hWnd = FindWindow(vbNullString, Me.Caption)
ShowWindow hWnd, 0
SetWindowLong hWnd, -20, &H40101
ShowWindow hWnd, 1
End Sub
Para Chamar o formulário:
Código:
Sub UserfoemShowNonModal()
#If VBA6 Then
UserForm1.Show 0
#Else
UserForm1.Show
#End If
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 14/01/2010 4:12 pm