Dimas4791 (Автор тем)

Ошибки Run-time error 9: subscript out of range при выполнении макроса

Пользователь

Сообщений: 2 Регистрация: 23.10.2013

30.10.2013 16:57:20

Помогите
Скопировал с одного из форумов
для защиты листов
вот сам макрос

Код

Private Sub auto_open()
 Worksheets("Лист1") .Protect Password:="1111", UserInterfaceOnly:=True
 Worksheets("Лист1") .EnableOutlining = True
 Worksheets("Лист1") .Protect Password:="1111", UserInterfaceOnly:=True
 Worksheets("Лист2") .Protect Password:="2222", UserInterfaceOnly:=True
 Worksheets("Лист2") .EnableOutlining = True
 Worksheets("Лист2") .Protect Password:="2222", UserInterfaceOnly:=True
End Sub

на всех компах работает а на одном нет выводит ошибку Run-time error 9: subscript out of range
причем при открытии файла с флешки на этом компе макрос работает
копирую на рабочий стол открываю и он выдает ошибку

Перейти

Макросы для копирования листов в другую книгу

Dimas4791

Пользователь

Сообщений: 2 Регистрация: 23.10.2013

23.10.2013 14:19:26

Добрый день
Помогите чайнику
есть макрос для копирования листа в другую книгу
но не совсем устраивает он запрашивает путь к исходной книге а как сделать чтобы он автоматом находил путь

Sub Main()
Dim i As Integer
Const myPath = "E:\База.xlsm"
For i = 1 To 1
Sheets(i).Select
With Range("A1:M10000")
.ClearContents
.Formula = "='" & myPath & "\[" & i & ".xlsm]Лист1'!$A$1:$M$10000"
.Value = .Value
ActiveWindow.DisplayZeros = False
End With
Next
End Sub

Перейти