file naming

[tony.reynolds]

I have a userform that the user can enter a new name for the workbook so the original is kept

i obviously need to limit the user data to certain characters so "\" is not allowed and also the original file name is not allowed

if the current excel file name is XYZ that is not allowed.... and

how can I limit users from entering these characters? \ / : * ? " < > |

The following code i have allows text only but obviously dosnt stop user entering a number following a letter and the above characters. Stillit it will show you what im trying to do.

Private Sub NewFileName_Change()
If IsNumeric(NewFileName.Value) Then
MsgBox "cannot use ' \ / : * ? " < > |' characters"
NewFileName.Value = ""
End If
End Sub

Anyons help would be appreciated

 

[Rasm]

try something like this

Aint = InStr(1, NewFileName, Chr(XX))
If Aint > 0 Then
MsgBox "The character ' " & Chr(XX) & " ' is not allowed"
End If

Where XX=ASCII code for charater of insterest

 

[tony.reynolds]

Where XX=ASCII code for charater of insterest

ok sorry not familiar with how to use ASCII can you explan how i would omit "\" for instance?

 

[tony.reynolds]

sorry i have it

went to word and fount the numbers there

 

[Tigs81]

I would do something like this to evaluate the string

Function EvaluateString(strString As String) As String
   
    Dim i As Long
    For i = 1 To Len(strString)
        Select Case Asc(Mid(strString, i, 1))
            Case 65 To 90, 97 To 122: '(65-90UpperCaseAtoZ, 97-122LowerCaseatoz)
            'Case 32, 48 To 57 (32Space,48-57ZerotoNine)
            Case Else
                EvaluateString = Chr(Asc(Mid(strString, i, 1)))
                Exit For
        End Select
    Next
End Function
Private Sub NewFileName_Change()
    Dim result As String
    result = EvaluateString(NewFileName.Value)
    If result <> "" Then
        MsgBox "cannot use " & result & " characters"
        NewFileName.Value = ""
    End If
End Sub

thanks
tigs

 

[tony.reynolds]

cool thanks thats much better from the other approach