I don't fully understand how you did it (setting a True condition), but you
did!
Testing appears to work just fine.
Thank you and have a great Holiday Weekend!

--
Regards

VBA.Noob.Confused
XP Pro
Office 2007



"Bob Phillips" wrote:

So it does, you can't unload it presumably because it isn't yet loaded.

Try this variation

Private fExit As Boolean

Private Sub UserForm_Activate()
If fExit Then Unload Me
End Sub

Private Sub UserForm_Initialize()
'other code removed
If Left(ActiveWorkbook.Name, 12) = "Template DIP" Then
MsgBox "Please do not edit This file! Use ""Save as"" prior to
editing!"
fExit = True
End If
End Sub

''your form code

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Bob Phillips" wrote in message
...
Private Sub UserForm_Initialize()
'other code removed
If Left(ActiveWorkbook.Name, 12) = "Template DIP" Then
MsgBox "Please do not edit This file! Use ""Save as"" prior to editing!"
Unload Me
End If
End Sub

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my
addy)

"Rick S." wrote in message
...
IO hope I can explain this, I have a userform that will open on a button
click from a worksheet. First thing I am doing is testing the file name
to
ensure the user won't overwrite the master file.
I can do that easily enough, the trouble I have is if the condition is
true
(they are using the master file) I prompt with a msgbox and then wish to
exit
the sub but the userform loads anyhow.
'=======
Private Sub UserForm_Initialize()
'other code removed
If Left(ActiveWorkbook.Name, 12) = "Template DIP" Then
MsgBox "Please do not edit This file! Use ""Save as"" prior to editing!"
End If
End Sub
'=======
No matter what I try I can not stop the userform from loading if the
above
condition is true.

--
Regards

VBA.Noob.Confused
XP Pro
Office 2007