Sub Not Working
 

Here's the code I'm working with...

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

If Application.UserName < rcj Then

Cancel = True
MsgBox "Sorry, But You Don't Have Permission To Save This File",
vbExclamation, "Invalid Permission"

End If

MsgBox Application.UserName

End Sub

I get the error and it doesn't save, but if I use ... Application.UserName =
rcj Then I get to save but that's backwards I want it to elvaluate what the
username is and if it's not my username than it cancels the save and lets the
user know. Why is it working backwards?

Thanks,
Rob

Sub Not Working
 

If Application.UserName < "rcj" Then
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware



"Rob"
wrote in message
Here's the code I'm working with...

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Application.UserName < rcj Then
Cancel = True
MsgBox "Sorry, But You Don't Have Permission To Save This File",
vbExclamation, "Invalid Permission"
End If
MsgBox Application.UserName
End Sub

I get the error and it doesn't save, but if I use ... Application.UserName =
rcj Then I get to save but that's backwards I want it to elvaluate what the
username is and if it's not my username than it cancels the save and lets the
user know. Why is it working backwards?
Thanks,
Rob

Sub Not Working
 

try < "rcj"

--
Don Guillett
SalesAid Software

"Rob" wrote in message
...
Here's the code I'm working with...

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)

If Application.UserName < rcj Then

Cancel = True
MsgBox "Sorry, But You Don't Have Permission To Save This File",
vbExclamation, "Invalid Permission"

End If

MsgBox Application.UserName

End Sub

I get the error and it doesn't save, but if I use ... Application.UserName
=
rcj Then I get to save but that's backwards I want it to elvaluate what
the
username is and if it's not my username than it cancels the save and lets
the
user know. Why is it working backwards?

Thanks,
Rob

Sub Not Working
 

HA! I feel sooo silly.

Thanks.

What if i wanted to add another username to ba allowed to save (i.e. pbcj)?
I tried below but I get a type mismatch runtime error 13.

If Application.UserName < "rcj" Or "pbcj" Then


Rob


"Don Guillett" wrote:

try < "rcj"

--
Don Guillett
SalesAid Software

"Rob" wrote in message
...
Here's the code I'm working with...

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)

If Application.UserName < rcj Then

Cancel = True
MsgBox "Sorry, But You Don't Have Permission To Save This File",
vbExclamation, "Invalid Permission"

End If

MsgBox Application.UserName

End Sub

I get the error and it doesn't save, but if I use ... Application.UserName
=
rcj Then I get to save but that's backwards I want it to elvaluate what
the
username is and if it's not my username than it cancels the save and lets
the
user know. Why is it working backwards?

Thanks,
Rob

Sub Not Working
 

If Application.UserName < "rcj" Or Application.UserName < "pbcj" Then

hth,

tim

"Rob" wrote in message
...
HA! I feel sooo silly.

Thanks.

What if i wanted to add another username to ba allowed to save (i.e.
pbcj)?
I tried below but I get a type mismatch runtime error 13.

If Application.UserName < "rcj" Or "pbcj" Then


Rob


"Don Guillett" wrote:

try < "rcj"

--
Don Guillett
SalesAid Software

"Rob" wrote in message
...
Here's the code I'm working with...

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)

If Application.UserName < rcj Then

Cancel = True
MsgBox "Sorry, But You Don't Have Permission To Save This File",
vbExclamation, "Invalid Permission"

End If

MsgBox Application.UserName

End Sub

I get the error and it doesn't save, but if I use ...
Application.UserName
=
rcj Then I get to save but that's backwards I want it to elvaluate
what
the
username is and if it's not my username than it cancels the save and
lets
the
user know. Why is it working backwards?

Thanks,
Rob

Sub Not Working
 

Thanks Tim, But when I incorporate that string it gives be the permission
error. If I remove the additional user from it the it works again. it seems
like I can only have one user.

Any other ideas?

Thanks tons,
Rob



"Tim Marsh" wrote:

If Application.UserName < "rcj" Or Application.UserName < "pbcj" Then

hth,

tim

"Rob" wrote in message
...
HA! I feel sooo silly.

Thanks.

What if i wanted to add another username to ba allowed to save (i.e.
pbcj)?
I tried below but I get a type mismatch runtime error 13.

If Application.UserName < "rcj" Or "pbcj" Then


Rob


"Don Guillett" wrote:

try < "rcj"

--
Don Guillett
SalesAid Software

"Rob" wrote in message
...
Here's the code I'm working with...

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)

If Application.UserName < rcj Then

Cancel = True
MsgBox "Sorry, But You Don't Have Permission To Save This File",
vbExclamation, "Invalid Permission"

End If

MsgBox Application.UserName

End Sub

I get the error and it doesn't save, but if I use ...
Application.UserName
=
rcj Then I get to save but that's backwards I want it to elvaluate
what
the
username is and if it's not my username than it cancels the save and
lets
the
user know. Why is it working backwards?

Thanks,
Rob

Sub Not Working
 

there is a logic error in the statement. Try

If Application.UserName < "rcj" and Application.UserName < "pbcj" Then


One statement will always be false, so you can't use OR.

--
Regards,
Tom Ogilvy

"Rob" wrote in message
...
Thanks Tim, But when I incorporate that string it gives be the permission
error. If I remove the additional user from it the it works again. it
seems
like I can only have one user.

Any other ideas?

Thanks tons,
Rob



"Tim Marsh" wrote:

If Application.UserName < "rcj" Or Application.UserName < "pbcj" Then

hth,

tim

"Rob" wrote in message
...
HA! I feel sooo silly.

Thanks.

What if i wanted to add another username to ba allowed to save (i.e.
pbcj)?
I tried below but I get a type mismatch runtime error 13.

If Application.UserName < "rcj" Or "pbcj" Then


Rob


"Don Guillett" wrote:

try < "rcj"

--
Don Guillett
SalesAid Software

"Rob" wrote in message
...
Here's the code I'm working with...

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)

If Application.UserName < rcj Then

Cancel = True
MsgBox "Sorry, But You Don't Have Permission To Save This File",
vbExclamation, "Invalid Permission"

End If

MsgBox Application.UserName

End Sub

I get the error and it doesn't save, but if I use ...
Application.UserName
=
rcj Then I get to save but that's backwards I want it to elvaluate
what
the
username is and if it's not my username than it cancels the save and
lets
the
user know. Why is it working backwards?

Thanks,
Rob