Enable Your Employees To Focus On The Core With Intuitive Onscreen Guidance That is With You At The Moment of Need.
Private Sub txtDocTitle_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Select Case KeyAscii Case Asc("\") GoTo NotAllowed: Case Asc("/") GoTo NotAllowed: Case Asc(":") GoTo NotAllowed: Case Asc("?") GoTo NotAllowed: Case Asc("<") GoTo NotAllowed: Case Asc(">") GoTo NotAllowed: 'case asc(""") 'GoTo NotAllowed: Case Else End Select Exit Sub NotAllowed: strAlerts = "\ / : ? < > " & Chr(34) & " are not allowed in the title." Call AlertsCaption_(strAlerts) KeyAscii = 0 End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Word 2010 VBA - Search, Select and Delete macro||8||39|
|Outlook Macro to delete emails not meeting keywords||56||118|
|Referencing a Master Template for VBA changes||3||64|
|Word 2013 - can't open document. It crashes word restarts and STILL doesn't open.||11||33|
Join the community of 500,000 technology professionals and ask your questions.