I have created a quote template that is all based in userforms, which I
created in XP SP2 with office 2003 SP3. Most users are able to use the
template, however a couple of users are experiencing problems. When they
click on "Enable Macros" at the Security Warning box before opening the
sheet, Excel completely freezes. There is a little bit of code in 'This
Workbook'. The code is:

--------------------------------------------------------------
Option Explicit
Public BooleanForClosing As Boolean
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Unload Formalstep1
Unload Formalstep2
Unload FormalStep3
Unload Quickquote1
Unload Tools
End Sub
Private Sub Workbook_Open()
Dim awb As Workbook
Set awb = ActiveWorkbook
awb.Activate
Sheets("Tools").Range("A1").Value = ""
Dim usrid As String
usrid = Environ("Username")
Sheets("Data").Range("K123").Value = usrid
End Sub
--------------------------------------------------------------
Any glaring reason why they could be hanging? I currently do not know their
OS or Excel version, I've asked them to provide it.

Any help is appreciatable. Thanks.

I t may be that shell commands have been disabled on the PC. Try a simple
test. From the Start Button - Select run. Then type into run box cmd.exe
and see if a DOS window opens. The Environ command I think runs cmd.exe. I
know of some companies that have disabled the shell window on PC's.

"Brad" wrote:

> I have created a quote template that is all based in userforms, which I
> created in XP SP2 with office 2003 SP3. Most users are able to use the
> template, however a couple of users are experiencing problems. When they
> click on "Enable Macros" at the Security Warning box before opening the
> sheet, Excel completely freezes. There is a little bit of code in 'This
> Workbook'. The code is:
>
> --------------------------------------------------------------
> Option Explicit
> Public BooleanForClosing As Boolean
> Private Sub Workbook_BeforeClose(Cancel As Boolean)
> Unload Formalstep1
> Unload Formalstep2
> Unload FormalStep3
> Unload Quickquote1
> Unload Tools
> End Sub
> Private Sub Workbook_Open()
> Dim awb As Workbook
> Set awb = ActiveWorkbook
> awb.Activate
> Sheets("Tools").Range("A1").Value = ""
> Dim usrid As String
> usrid = Environ("Username")
> Sheets("Data").Range("K123").Value = usrid
> End Sub
> --------------------------------------------------------------
> Any glaring reason why they could be hanging? I currently do not know their
> OS or Excel version, I've asked them to provide it.
>
> Any help is appreciatable. Thanks.

Thanks Joel. If that is the case, would a simple 'On Error Resume Next' fix
it? Or how would handle it?

Thanks again!

"Joel" wrote:

> I t may be that shell commands have been disabled on the PC. Try a simple
> test. From the Start Button - Select run. Then type into run box cmd.exe
> and see if a DOS window opens. The Environ command I think runs cmd.exe. I
> know of some companies that have disabled the shell window on PC's.
>
> "Brad" wrote:
>
> > I have created a quote template that is all based in userforms, which I
> > created in XP SP2 with office 2003 SP3. Most users are able to use the
> > template, however a couple of users are experiencing problems. When they
> > click on "Enable Macros" at the Security Warning box before opening the
> > sheet, Excel completely freezes. There is a little bit of code in 'This
> > Workbook'. The code is:
> >
> > --------------------------------------------------------------
> > Option Explicit
> > Public BooleanForClosing As Boolean
> > Private Sub Workbook_BeforeClose(Cancel As Boolean)
> > Unload Formalstep1
> > Unload Formalstep2
> > Unload FormalStep3
> > Unload Quickquote1
> > Unload Tools
> > End Sub
> > Private Sub Workbook_Open()
> > Dim awb As Workbook
> > Set awb = ActiveWorkbook
> > awb.Activate
> > Sheets("Tools").Range("A1").Value = ""
> > Dim usrid As String
> > usrid = Environ("Username")
> > Sheets("Data").Range("K123").Value = usrid
> > End Sub
> > --------------------------------------------------------------
> > Any glaring reason why they could be hanging? I currently do not know their
> > OS or Excel version, I've asked them to provide it.
> >
> > Any help is appreciatable. Thanks.

I don't think so. I believe it is getting hung up in the operating system
and not in Excel. Try it any way. It may be that the computer is missing
the cnd or cmd is corrupted. Replacing the CMD may fix the problem if you
have the correct priledges to make the change.

Do a search on your computer for CMD in the windows directory. I'm not sure
which version of the CMD is being used by Excel.

"Brad" wrote:

> Thanks Joel. If that is the case, would a simple 'On Error Resume Next' fix
> it? Or how would handle it?
>
> Thanks again!
>
> "Joel" wrote:
>
> > I t may be that shell commands have been disabled on the PC. Try a simple
> > test. From the Start Button - Select run. Then type into run box cmd.exe
> > and see if a DOS window opens. The Environ command I think runs cmd.exe. I
> > know of some companies that have disabled the shell window on PC's.
> >
> > "Brad" wrote:
> >
> > > I have created a quote template that is all based in userforms, which I
> > > created in XP SP2 with office 2003 SP3. Most users are able to use the
> > > template, however a couple of users are experiencing problems. When they
> > > click on "Enable Macros" at the Security Warning box before opening the
> > > sheet, Excel completely freezes. There is a little bit of code in 'This
> > > Workbook'. The code is:
> > >
> > > --------------------------------------------------------------
> > > Option Explicit
> > > Public BooleanForClosing As Boolean
> > > Private Sub Workbook_BeforeClose(Cancel As Boolean)
> > > Unload Formalstep1
> > > Unload Formalstep2
> > > Unload FormalStep3
> > > Unload Quickquote1
> > > Unload Tools
> > > End Sub
> > > Private Sub Workbook_Open()
> > > Dim awb As Workbook
> > > Set awb = ActiveWorkbook
> > > awb.Activate
> > > Sheets("Tools").Range("A1").Value = ""
> > > Dim usrid As String
> > > usrid = Environ("Username")
> > > Sheets("Data").Range("K123").Value = usrid
> > > End Sub
> > > --------------------------------------------------------------
> > > Any glaring reason why they could be hanging? I currently do not know their
> > > OS or Excel version, I've asked them to provide it.
> > >
> > > Any help is appreciatable. Thanks.