Мне нужно использовать excel с расширением xls, но макросы некоторые не работают, которые работают на xlsm.
Private Sub Worksheet_Change(ByVal Target As Range) Dim objCell As Range
If Target.Row = 1 Then Exit Sub
If Not Application.Intersect(Range("A:I"), Target) Is Nothing Then
Application.EnableEvents = False
For Each objCell In Target
With objCell
If Len(.Value) > 0 Then
Select Case .Column
Case 1, 2
If TypeName(.Value) = "String" Then
.Value = Left(.Value, 10)
Else
.Value = ""
End If
Case 4, 5
If .Value <> 0 And .Value <> 1 Then .Value = ""
Case 6, 7
.Value = Replace(.Value, ";", "")
Case 8, 9
If Not IsNumeric(.Value) Then .ClearContents
End Select
End If
End With
Next objCell
Application.EnableEvents = True
End If
End Sub
Макрос такой в xls ничего не выполняет. В xlsm работает.
Вопрос: каким образом можно использовать макросы в xls?