Tracking Forums, Newsgroups, Maling Lists
Home Scripts Tutorials Tracker Forums
  HOME    TRACKER    Visual Basic

DeActivate Event: Using Selections In The Workbook That's Being Deactivated.

Hi there,

I'm trying to write some code for the DeActivate event of a certain workbook. The problem is that the code should use the values in some cells of the workbook that is being deactivated. I cannot seem to activate the workbook from the DeActivate event's code. The values are on an invisible sheet, and I would like to select them (the values represent indexnumbers of toolbars that I want to make visible). What should I do?

View Complete Forum Thread with Replies

See Related Forum Messages: Follow the Links Below to View Complete Thread
Workbook Deactivate Event
I´m trying to deactivate or hide some controls in excel with a vb code.
I hide the controls when some sheets are activate with the code:

Private Sub Worksheet_Activate()
'some code. works fine
end sub
and then unhide the controls again with the code

Private Sub Worksheet_Deactivate()
'some code. works fine.
end sub
The problems is that if the sheet is not deactivate, but is the workbook that is deactivate, for example if I change to another workbook, the second code is never run and the controls remain on hide mode.
Im trying to run some code when I change to another woorkbook.
I tried to put the code in the App_WorkbookDeactivate() sub, but that subrutine doesn't run when I change to another workbook.

Private Sub App_WorkbookDeactivate()
'Code never run!
end sub
I also tried
App_WorkbookDeactivate(ByVal Wb As Workbook)

I´m placing this code in the sheet code.

Any ideas?

Embedded Chart Selected - Workbook Deactivate Event Not Triggered In VBA
It seems that if you have an embedded chart selected on a worksheet that the Workbook_Deactivate() event is not triggered.

Originally I thought this behavior was a coding error, so I set up a simple sheet with 1 chart on it and the Workbook_Deactivate() and Workbook_Activate() events with a Msgbox command in both events to indicate when I enter them. Turns out that if the chart is selected, the Workbook_Deactivate() event doesn't trigger when switching workbooks, but the Workbook_Activate() event does trigger when coming back in. When the chart is not selected, both trigger. This is really non-intuitive to me as you can't set a chart event on an embedded chart without creating an event class (as far as I know).

I did create an event class just to check it out and it works (myChartClass_Deactivate()). However, that means I would need to set every embedded chart in my workbook to the class??? and also set a Workbook_SheetActivate event to catch for when I just deselect a chart and do not leave the workbook ("If ActiveWorkbook.Name <> ThisWorkbook.Name Then ..." works as I only care about the chart deactivate event to indicate that I left the workbook).

This can't be correct. Am I missing something here or is that what you really need to do?

thx in advance

Deactivate Workbook
What is the code to deactivate a workbook while my Shelled program is running. Coz I need to prevent the user from doing any form of actions(eg.clicking the menu bar)while my shelled program is running.I need to put the codes in a module.Can anyone help?Thanks.

Public Event In Form Deactivate Event
How do you make a dynamic array created in the Form Deactivate Event able to be “public” or used in other events such as Form resize event.

Is there another way other than storing the array in a public sub?


Deactivate Event
In a form shown as modal, there's a command button with this line of code:


Then, in Sub Form_Deactivate I had placed some code to perform a few cleanup operations. I thought the deactivate event would be triggered by Me.Hide, but it wasn't. Am I doing something wrong or is this like it should be?

Application Deactivate Event?
Is there an application EVENT which determines if the focus of an application has been lost? Such as the form_deactivate event but for the entire application.

What I want to do is, if the application has lost focus/deactivated then I wan to bring the focus back immediately, i.e. something like an annoying popup that never goes away

Also, if this can be done via the API only, this is an acceptable solution.


Deactivate Event Not Limited Inside Vb
I am making a VB6 project.
I allso use Word automation.
I want to use the deactivate event,
only this is only triggered among the vb forms and is not triggered when going to my Word document. Is there a solution for.

The problem i have is the following. When the focus is on my VB form and cursor is on a textbox when i move from the VBform to my Word document i want logically trigger the textbox_validate event. But because the cursor stays in the textbox of my vb form the validate event is not triggerd, alternatively i was looking a way to use the vbform deactivate event but this allso isn't triggerd

Screensaver Activate/Deactivate Event
Hi there,

Does anybody know of a way how I could create an event which fires when the screensaver is activated and deactivated.

Many thanks

Edited by - glennandrewcooper on 2/8/2004 3:27:37 AM

Activate/Deactivate Event Doesn't Fire When MDI Child
Please someone help me,
my problem is the following:
i had a nice application (it still is), but my boss wanted it to be an MDI Application, I say: 'No problem' and start changing some forms to MDI Child, but now, when my form is MDI Child, it DOESN'T do the (de)activate event, how is that possible?
Any ideas are welcome

Search before you ask - if you don't know where to search, ask before you search

Enter Event Question And Writing Event Procedure In New Workbook
Hello everybody

I am using the enter event to clear a textbox when enter, (But code is executed only when the textbox is empty)
this works fine but the event is only fired one time, is this the normal behavior for this event?
if yes, any other way to do this?

Private Sub TextBoxNames_Enter()
If TextBoxNames.Value = "" Then
CheckBoxA.Value = 0
 CheckBoxF.Value = 0
 CheckBoxR.Value = 0
 CheckBoxS.Value = 0
 CheckBoxSET.Value = 0
 CheckBoxT.Value = 0
 CheckBoxW.Value = 0
 End If
End Sub

Second question

Is it possible to write events in a new workbook programmatically from vba and if yes,
how to do this?

Thanks a lot


App Deactivated
I am writing a fairly database unobtrusive app in VB 6, but need to inform my app when it "loses the focus" - (I realise this is the wrong phrase) -, either by the user clicking another application window, taskbar icon or whatever. The Form.DeActivate events work perfectly when the activated window is from the same app, but not otherwise. How is this to be done?

Thanks for reading,


New Workbook Event
I hate gridlines. Is there any way to set Excel so that anytime I open a new workbook, all gridlines are defaulted to off? I know there are defaults for number of sheets, file location, etc, but I didn't see anything for gridlines. If I try it through VBA, the recorder gives me:

ActiveWindow.DisplayGridlines = False

And I know I could loop through all sheets programmatically to turn them off, but I don't know how to write it so it would run any time a new workbook is created.

Is this possible?


Which Workbook Event?

1. I would like to enable or disable own created toolbar and menu, when I have activated the certain excel file or not.
After reading the excel help file, I think the right way to track the right event is the
VB Code:

If I am right, please tell me where I did a mistake, because the following code do not work?

wkn is the certain workbook name.

VB Code:
Private Sub workbook_WorkbookActivate(ByVal Wb As Workbook)  If Wb = Wkn Then    CreateMenu    FA_toolbar  Else    DeleteMenu    deletetoolbar  End IfEnd Sub

2. When I am using boolean macro (e.g. full screen on/off macro), I would like to make the icon in my menu or toolbar bordered (turned on effect). I was trying to solve this issue by set focus, but when I click somewhere else the set focus disapear.


Detect If Window Is Disabled/deactivated
I use word automation in my vb6 application
I somehow want to detect if the open Word doc window is enabled.
Looking for the activated window isn't enough beacuse window is the active one, but Word has a submenu open which disables the (parent) Word doc window (Titlebarcolor of window gets light blue, so gets disabled) and the active window is now the submenu window (example the print window). Or i somehow have to chekc if a subwindow is he active one and not the parent one.

Is there a API for?

I need this for the following.
I use a mouse hook on my open Word document, this to check generel mouseclicks with a Callback function triggered when mousclick on Word doc. This works. But when word has a subwindow open like say a textbox properties window or the print window, then as soon as i click on my vb form i get an error 'Word document is busy '. In earlier failed attempt to check if word window is busy i try now to check if the Word window is enabled/activated! I think this is the way to go.
As long as i don't open any Word submenu windows i don't get an error. as soon i open one the parent Word doc window gets disabled/deactivated (seems normal) ( and Word window seems to kick in a busy mode) .

Edited by - lvermeersch on 12/11/2005 4:03:34 AM

Activating BeforePrint Event From Any Workbook
HI everyone,

I have little experience with VBA, so I'm addressing to you.
I want to use BeforePrint event from any workbook, not just from this with the code. I think my problem is with activating a code at all! Where have I to put my code so it can work properly without having to run macros, add-inns etc.?
Thank you in advance,
I'm all open for a dialog!
Have a nice day!

How To Detect Workbook AfterSave Event?
I notice that there is a WorkbookBeforeSave event for Application object. How do I detect the WorkbookAfterSave event?

Find From Wich Workbook An Event Is Called

There are several workbooks open and also two workbooks which have a workbook before close event calling the same sub,
none of them are the active workbooks.
Now when excel is closed, those workbooks fire the event, is there a way to know from wich workbook the event is called?
I need to procces them different.



Edited by - Nunuwawa on 3/31/2006 1:41:28 AM

How To Detect Filename And Absolute Path Upon Workbook Activation Event?
Whenever I open a particular workbook, I want Excel to automatically determine the filename and absolute path of the workbook and enter these into a specified location in the workbook. How should I go about achieving this?


How Can I Change Registered File Type Options In A Workbook Open Event In Excel
I work at a company that uses a portal for excel file/report distribution. When you click the link to open the file it is opened in IE. I would like the file to be opened in Excel. If I go into my computerfolder optionsfile types and look at the registered file types and look at the .XLS file if I click on the advanced button I can unclick a box that says browse in same window. Then when I launch the file from the portal it will open in Excel instead of IE. I would like to put code in the workbook open event to un-check this box. I have no idea where to start or if it is possible. I would really appreciate any help.

Is There A "Workbook Open" Event ???
I have a series of macros in a workbook that starts everytime excel starts (xlstart folder). One of the macros builds a menu of available macros.

Some workbooks I open have a lot of sheets. It is inconvenient to scroll sideways to see them all. I would like to create a macro that adds a menu item for each sheet in the workbook.

I would like this macro to be dynamic such that when you open another workbook, then it adds more entries for that workbook. And when you close a workbook, then those workbooks entries get removed.

My question is: What event(s) get fired on a global level for each open and close of a workbook. Also, I do not want to add the macro to all of the individual workbooks, but rather only to my autostarting workbook.

Thanks for your help.

Macro To Save Workbook Is Picking Up Previously Opened Workbook Filename Causing An Error.

I have written a macro to save a file in 3 different locations (one being an HTM file as well). I have several schedule files (created by doing File Save As from an original) that this macro will be applied to. I have inserted the macro into each file and created a Macro Menu item which has been mapped to the "This Workbook" macro item that i have written. (End Background, Begin Problem/Question) When I run this macro from one sheet, close that workbook, open a different workbook and run the macro, my macro looks for the previous file name. I am not "quite" sure if the problem is code related or tied to the menu assignment. I have included the code for reference and hope someone may have a better way of doing this.

Sub SaveHTML()

    Dim conNetPath As String
    Dim conHomePath As String
    Dim conBUPath As String
    Dim fName As String
    Dim HTMLFile As String
    conNetPath = "\atlnewsf04Sudhir KeepStuffskeds"
    conBUPath = "c:Schedules"
    conHomePath = ActiveWorkbook.FullName
    fName = ActiveWorkbook.Name
    HTMLFile = Replace(fName, "xls", "htm")

    Application.DisplayAlerts = False

    ActiveWorkbook.SaveAs Filename:= _
        conNetPath & HTMLFile, FileFormat:=xlHtml, _
        ReadOnlyRecommended:=False, CreateBackup:=False

    ActiveWorkbook.SaveAs Filename:= _
        conBUPath & fName, _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False

'MsgBox conHomePath
    ActiveWorkbook.SaveAs Filename:= _
        conHomePath, _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False

    Application.DisplayAlerts = True
End Sub

When you call this macro from the first file, it works fine. If you close that file and open another file with the same macro and try to run it, it looks for the previously opened file.

Not sure where I goofed. I have included two of the spreadsheets to possibly demonstrate.

Scott Medaugh

Opening A Hard Drive Stored Workbook Through A Workbook Embbed In SAP
Hi guys,

I am looking for alternative ways to open a workbook that might work. This code worked outside of SAP but once I put it into the integrated excel workbook, it fails to open the path it is given. I am pretty sure the cause is that it won't go after the file path inside the computer itself, which explains why it works fine when it is on the hard drive but not integrated.

Code: '*** Declare Variables
    Dim xWb As Workbook 'external workbook
    Dim xWks As Worksheet 'external worksheet
    Dim iWb As Workbook 'internal workbook
    Dim iWks As Worksheet 'internal worksheet
    Dim Crit1 As String, Crit2 As String 'PPG/CPG holders
    Dim Rng1 As Range, Rng2 As Range 'Range holders
    Dim Dat1 As String, Dat2 As String 'date range holders
    Dim xECol As Integer, xERow As Integer 'end col/row for ext worksheet
    Dim iECol As Integer, iERow As Integer 'end col/row for int worksheet
    Dim count1 As Integer, count2 As Integer 'Counters
    '**set internal values
    Set iWb = ActiveWorkbook 'Set to Active workbook
    Set iWks = ActiveWorkbook.Sheets("UISheet") 'Set to UISheet in active workbook
    If Range(importpathcell).Value = "" Then
        Exit Sub
    End If
    '**Open external workbook and sheet using importpathcell
    Set xWb = Workbooks.Open(Range(importpathcell).Value) 'Set to path cell ***THIS IS WHAT FAILS***
    Set xWks = xWb.Sheets("Upload") 'Set to "Upload" sheet in xWb

'**Set start/end variables
    xERow = xWks.UsedRange.Rows(xWks.UsedRange.Rows.Count).Row
    iERow = iWks.UsedRange.Rows(xWks.UsedRange.Rows.Count).Row
    xECol = xWks.UsedRange.Columns(xWks.UsedRange.Columns.Count).Column
    iECol = iWks.UsedRange.Columns(xWks.UsedRange.Columns.Count).Column

    count1 = constStartRow
    'Copy over PPGs
    Do While count1 <= iERow
        Crit1 = iWks.Cells(count1, 1).Value
        Set Rng1 = iWks.Cells(count1, 1)
        For count2 = 1 To xERow
            Crit2 = xWks.Cells(count2, 1).Value
            Set Rng2 = xWks.Range(Cells(count2, 1), Cells(count2, xECol))
            If Crit1 <> "" And Crit2 <> "" Then
                If Crit1 = Crit2 Then
                    Dat1 = iWks.Cells(count1, 3).Value
                    Dat2 = xWks.Cells(count2, 3).Value
                    If Dat1 = Dat2 Then
                        Rng1.PasteSpecial (xlPasteValues)
                        GoTo exitPPGFor
                    End If
                End If
            End If
        Next count2
        count1 = count1 + 1

    'count reset
    count1 = constStartRow
    count2 = 1

    'Copy over CPGs
    Do While count1 <= iERow
        Crit1 = iWks.Cells(count1, 2).Value
        Set Rng1 = iWks.Cells(count1, 2)
        For count2 = 1 To xERow
            Crit2 = xWks.Cells(count2, 2).Value
            Set Rng2 = xWks.Range(Cells(count2, 2), Cells(count2, xECol))
            If Crit1 <> "" And Crit2 <> "" Then
                If Crit1 = Crit2 Then
                    Dat1 = iWks.Cells(count1, 3).Value
                    Dat2 = xWks.Cells(count2, 3).Value
                    If Dat1 = Dat2 Then
                        Rng1.PasteSpecial (xlPasteValues)
                        GoTo exitCPGFor
                    End If
                End If
            End If
        Next count2
        count1 = count1 + 1
    xWb.Close savechanges:=False
    Application.Calculation = calc_mode
    Application.ScreenUpdating = update_mode
    Call SubRoutines.WorksheetProtection(iWks, True)
End Sub

I tried inputting a object file as so but it would fail when it gets to setting Rng2. It would get an error "Run-time error '1004': Method 'Range' of object '_Worksheet' failed". However this did manage to open excel in some form according to the processes on my computer using ctrl-alt-del.

    '**Open external workbook and sheet using importpathcell
    Set owExternalFile = CreateObject("Excel.Application")
    Set xWb = owExternalFile.Workbooks.Open(Range(importpathcell).Value) 'Set to path cell
    Set xWks = xWb.Sheets("Upload") 'Set to "Upload" sheet in xWb

This workbook does not need to actually open on the screen. Just to the degree that a .copy and .pastespecial can be used.

Thank you in advanced for any help and sorry in advanced for somewhat lacking comments. Haven't prettied it up yet.

Edited by - rodmanm on 7/19/2007 10:39:20 AM

Macro To Add Column To Workbook - Based On Data From Another Workbook???
I am trying to create a macro to do the following:

I have an excel file, called Warehouse.xls
This has two columns - Column A, which is ProductCode, and Column B which is WarehouseLocation
This file is a list of all my products, and where they are stored in the warehouse.

I then have a second workbook called Orders.xls
this is automatically generated from various vendors.
This has many columns, but the column relevant here is "ProductCode"

What i need to do, is to run a macro, and have it add a column to the end of my Orders.xls workbook, and populate this with the relevant WarehouseLocation (from Warehouse.xls) based on the value of the Orders.xls ProductCode.

Any ideas where i start?
Im familiar with both visual basic, and SQL (im a dba) but i've never done any vba work as such.

any help, or pointers in the right direction would be great!

i've attached the 2 workbooks.
data.xls is the orders file, and warehouse.xls is the "lookup" table... basically warehouse contains a list of product codes and warehouse locations.

what i want to be able to do, is load data.xls, and load the macro, so that it adds a column "warehouse location" and populates that column with data from the warehouse.xls file, based on the SKU from data.xls


Edit by Moderator:
Please post Excel questions, in the Excel forum.

Thank you.

Activate A Workbook Based On A Value In A Cell In Another Workbook
I want to activate another active (open) workbook only if its name is the same as what I have recorded in a cell in my workbook. If it does return the same name then it is activated, otherwise a message box displays.


In my Reports workbook on a worksheet name “formula” in cell B33, I have the value “JulyData”. This represents the name of another workbook (i.e. JulyData.xls)

Before a routine is run to import data into Reports.xls I want to verify that the name of the source workbook is actually “JulyData.xls” (as verified to B33 on my “formula” worksheet) and not “AugData.xls”. If it is “JulyData.xls” then I want the procedure to make it the active workbook and start importing data from selected cells. If it is not, then a message box will display.

I know this code doesn’t work:

TW = Worksheets("formula").Range("B33").Value
If Windows.Activate = TW Then Windows.Activate

MsgBox ("Error - Data workbook name does not match." & vbCr & _
"Select correct month for data import."), vbOKOnly, "Data", a, a

I need some help please

Question On Protecting Workbook And Shared Workbook
Hi Guyz,

i have a few questions to ask..

1) How do i programatically protect and unprotect a range of cells, for
an example range("A1:G65500")..Means that user cant make modification
to these cells...

2) How do i write a program to share/unshare workbook?

if workbook is shared, unshare it..

Creating A New Workbook From An Open Activeworksheet In Another Workbook
I am trying to Create a new workbook from an open activeworksheet in workbook

Has anyone got any example code just to get me started



Entry Cell In Workbook Will Auto Add To Another Workbook
I have 2 files (order confirmation & order summary). When I key-in data in order confirmation, there will add the data into order summary when click the confirm button. I don't know how to write the VBA code. Can you give me some suggestion ???

Sub addto()
Dim L As Long
For L = 1 To Range("A65536").End(xlUp).Row
If Cells(L, 1) = "" Then
Cells(L, 1).Value ='[order confirmation.xls]Order Confirmations (2)'!$AJ$3:$BD$3

End If
Next L
End Sub

Deactivate Right Click
Hi I need to deactivate de Right click menu, Copy paste etc.
Someone knows how.

I know that with the mousedown event I can know wich button I click but I can´t deactivate the menu.

Thank´s a lot

Deactivate AutoSave

I have a huge Problem and unfotunately I think there wouldn´t be an answer for it. But if there is one, so I´m sure, you´ll tell me... :-)

I want to deactivate the AutoRecover Function for my Excel-VBA Application. OK, that seems easy! But no, not for WindowsNT!!

For WindowsXP I can use this Statement: "Application.AutoRecover.Enabled = False"

For WindowsNT I can only try to hack the Registry... --and God knows I don´t wanna do that :-)

Thanks for your help!!


Deactivate An Application
I would like to know if there is any thing like appactivate to deactivate an application any insight would be of help


Form Deactivate
I'm creating a program, with one main form, and one option-form. But I want that when you are on the option-form, you can't do anything on the main form. Does anyone know how I can do that??
Grtz and Thx

Deactivate Networkadapter

I`m searching for a function with which I can (de)activate my networkadapter, but I haven`t found anything til now.
I want to make it from one of my programs.
Is there a special API which can to that (NdisOpenAdapter - NdisCloseAdapter or something else?).
Or are there any other methods to do that?


Deactivate Vs Lostfocus
that's about it...
simple question

Deactivate A Private Sub
Guys, I'm new to VBA and have been writing a program which opens an external workbook before copying data and importing into my workbook. The problem is, when the external workbook is opened and i select the requisite cells i wish to copy, my code appears to be overridden and it subsequently jumps to a private sub contained within the external workbook and stops running my code

Therefore my question would be is there any way i cn de-activate or skip the private subs contained within the external workbook?

Any help would be most appreciated

Key Deactivate Problem
Hi Guys

I would like to deactivate the windows & poppu menu key of the keyboard at a particular instance

Have you got any idea

I have used the API's setKeyBoardState, GetKeyboardState, but unable to get the result


Form - Deactivate
For eg:
I have form1 and form2. From form1 i load form2. In this case form1 's deactivate event gets fired. I don't want this to happen.
This doesn't happen when we open a VB MessageBox.

Deactivate A Form
Hi Friends

I have created a VBA form. In that I have a button. When that button is pressed, the selected text will become bold.

What I want is, once the button is pressed the form should get deactivated after making the text bold. This is because I want to continue to edit my document after pressing this button. Now what I do is, I use the mouse to click on the document so that the form get deactivated and the current selection becomes active. Can this be done programatically? Is there a way to make the form loose its focus? or Is there a way to make the selection active?

Please help me.


VB - Form Deactivate
I have a form. I open another form from this form.
In this case Deactivate event of the first form is getting fired.
But i don't want that to happen.
When VB message box is opened this doesn't happen. How can i restrict this.

Activate/deactivate USB Port, Any API?
How could I activate/deactivate a USB port ? (any API ?)

Deactivate The &lt;enter&gt; Key In Access
I am using Access 2000 and have a couple of subforms that require data entry. I would like to prevent the user from filling out info in subform A and then pressing the <enter> key or any key that would update that subform. I want to force them to use a button inside that subform to save the record. your help is greatly appreciated!


Deactivate Ctrl+Break

It's possible to deacivate the ctrl+break in excel when running a VBA procedure?



How To Deactivate Excel Selection
exsh02 is my excel sheet


every time i resuse these codes they give me a

run-time error'91'
object variable or with block variable not set

although i already quit my excel application it still give me the error

ex01 is my excel.application


it seems like the activesheet is still refering to the previous activated sheet exsh02 ...

so is there a way to deactivate this selection?

i really need to solve this as i have many usage of this activesheet / activewindow ... etc in my program.

pls help anyone!!

LostFocus && Deactivate Not Working
I need a form to display a message box asking a user to save their work when the form loses focus. I tried both th Form_LostFocus and Form_Deactivate events and neither one was triggered. What am I doing wrong?


How Do I Deactivate Screensaver Password?
I want to deactivate the screensaver password.. I know how to Turn on/off the screensaver using api using SystemParametersInfo, but to deactivate the password is another matter.

Thanks for the help.

Oh ya.. this will be for WinNT or Win2k

Deactivate? Lost Focus?
I have a small strip of buttons that have other forms as dropdown menus.

They all have the 'Always on top' set. Is there a way to trigger an unload or something when the focus is give to another app?

I have tried Deactivate....Nope
Lost Focus....Nope

I know I could use a timer....but. I would rather not.

Any help would be great


Deactivate Screen Saver
I have a program that recieves testing results from an extrenal machine.
The program performs calculations and displays Pass/Fail and other
information to a user. We have the screen saver running when testing it
not being performed. Is there a way to have the program signal to the
system to deactivate the screensaver when recieving data.

When I say deactivate, I mean as on your PC. After X number of minutes the
screen saver starts. You hit the mouse of keybaord and it deactivates.


Keith Farmer
Network Administrator
Hutchinson FTS Inc
Livingston Division
Phone: 931.823.7838 x2230
Fax: 931.823.7869

How To Deactivate The Main Form
There are two forms, Form1 and Form2. On Form1 is a command button named Command1.

Here's the code:

Private Sub Command1_Click()
End Sub

This would make Form2 appear, but I don't want the user to be able to access the main form, Form1, while Form2 is on the screen. I don't want to use the Hide method to hide Form1, I want Form1 to still be visible, but unclickable. How do I do this?

Completely Deactivate An Application

I want to make an application behave like "dead" for a specific time.

Background: I want to start an external program and my application should behave as if I just had opened a new form modally (using "Show 1") until the program is closed.

If I e.g. disable the form for this time, I can't work with it but nevertheless I can click on it and it will come to the front.

Does anybody know a way to make the application ignore mouse clicks and stay in the background?

Thanks in advance

Activate/Deactivate Firewall
hi, does any1 have any code for activating and deactivating the default windows firewall?


Copyright © 2005-08, All rights reserved