Private Declare Function

[Guest]

How do I get
Private Sub UserForm_Activate()
Application.Wait Now + TimeValue("00:00:03")
Unload Me
Application.ScreenUpdating = False
Sheets("main").Select
Application.ScreenUpdating = True
End Sub

to function with:

SetWindowLong _
Lib "user32" _
Alias "SetWindowLongA" ( _
ByVal hwnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) _
As Long
Private Declare Function FindWindow _
Lib "user32" _
Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) _
As Long

Private Sub UserForm_Initialize()
SetWindowLong FindWindow(vbNullString, Me.Caption), _
-16, -2067791744
End Sub

 

[Guest]

Insert a general module and place the functions in there

 

[Guest]

I'm going to need step by step dirrections. I have tried everything. I am
just not doing it right...
I am sorry.

Thanx.

 

[Guest]

I assume you have VB editor opened, rightclick the project screen, if you
don't see this press ctl+R, and select insert->userform. doubleclick the for
to get to the code, erase everything there then paste the sub codes there

Private Sub UserForm_Activate()
Application.Wait Now + TimeValue("00:00:03")
Unload Me
Application.ScreenUpdating = False
Sheets("main").Select
Application.ScreenUpdating = True
End Sub

Private Sub UserForm_Initialize()
SetWindowLong FindWindow(vbNullString, Me.Caption), _
-16, -2067791744
End Sub




repeat the process but insterting a userform, insert a module
paste the rest of the code there

SetWindowLong _
Lib "user32" _
Alias "SetWindowLongA" ( _
ByVal hwnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) _
As Long
Private Declare Function FindWindow _
Lib "user32" _
Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) _
As Long

make sure you have a sheet named MAIN as that is what is referenced above,
that or change it. Let me know how it goes.

 

[Guest]

looks like there were parts of code that did not come through, here is the
code to put into the module

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 FindWindow _
Lib "user32" _
Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) _
As Long

 

[Guest]

Finally, it works.

OMG thank you, I've been working on this soooooooo long, Thank you thank you
thank you.

 

[Guest]

No problem, it is always good to help someone that takes the initiative to
find ways to make things easier. Good luck and keep it up!