Unir dos validaciones de campo para una hoja excel

[JoaoM]

Hace el cambio de estas dos lineas
If Intersect(Target, [a6:b301]) Is Nothing Then Exit Sub 'El rango puedes cambiarlo a tu necesidad

If Evaluate("SUMPRODUCT( --ISNUMBER( SEARCH({"" "",""Nueva_Ventana"",""\"",""/"","":"",""%"",""'"",""~*"",""~?"",""<"","">"",""| "",""""""""}, " & Target.Address & ") ) )") > 0 Then

MsgBox "Se ha introducido en la celda, palabra o caracter," & vbCr & vbCrLf & "NO PERMITIDOS; Nueva_Ventana \ / : % ' ~* ~? < > | " & vbNewLine & "y espacio entre cualquier caracter", vbExclamation, "ERROR"

Si quieres utilisar el espaciador, elimina la parte "" "", y en el mensage la parte & vbCrLf & "y espacio entre cualquier caracter"

Puede que alguien mas conocedor de la materia, pueda hacerlo mejor, pues yo muy poco conozco de programacion

Podiera tambien hacer que luego de presentar el mensage, eliminara el contenido de la celda para volver a escribirle