Тема: Personal.xlsb на несколько определенных книг
Добрый день! Подскажите, пож-та, возможно ли использование этого кода в нескольких книгах ? Заранее спасибо!
Dim WithEvents App As Application
Private Sub Workbook_Open()
Set App = Application
End Sub
Private Sub App_SheetChange(ByVal Sh As Object, ByVal Target As Range)
' только в определенном файле
If Sh.Parent.Name <> "1.xlsx" Then Exit Sub
On Error Resume Next
If Target.Count > 1 Then Exit Sub
' запрет на ввод русских букв в столбце 3 (фио на англ)
If Target.Column = 3 Then
If Target Like "*[А-Яа-яЁё]*" Then
' если есть хоть одна русская буква
MsgBox "Ввод русских букв недопустим!", vbCritical
Target.Value = "" ' очистка ячейки
End If
End If
If Target.Column = 2 Then
If Target Like "*[A-Za-zEe]*" Then
' если есть хоть одна англ буква
MsgBox "Ввод английских букв недопустим!", vbCritical
Target.Value = "" ' очистка ячейки
End If
End If
End Sub
If Sh.Parent.Name <> "1.xlsx" or Sh.Parent.Name <> "2.xlsx" Then Exit Sub
- код не работает ни в одной из книг