Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Sub Not Working
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Calculate working days but change working week | Excel Discussion (Misc queries) | |||
Making weekend days working days - the system cuts the working tim | Excel Discussion (Misc queries) | |||
macro was working, now it's not working | Excel Programming | |||
Macro working in Excel 2003; not working in Excel 2000 | Excel Programming | |||
Adding sales from a non working day to the previous working day | Excel Programming |