Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / есть файл... / 6 сообщений из 6, страница 1 из 1
11.07.2007, 14:20:22
    #34653446
maccen
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
есть файл...
В файле макрос такого типа:
Public Sub zachid1() FilePath = ActiveWorkbook.Path + "\"Workbooks.Open (FilePath + "yuli/zachid.xls")Workbooks("svodna.xls").Worksheets("Ëèïåíü").Range("A5:CR29").Value = Workbooks("zachid.xls").Worksheets("Ëèïåíü").Range("A5:CR29").ValueWorkbooks("zachid.xls").Close (False)End SubPrivate Sub CommandButton1_Click()Call zachid1End Sub

При открытии файла zachid.xls матерится на то, что пароль не правильный, в файле zachid.xls (максрос
Private Sub Workbook_Open() With Worksheets("Ëèïåíü") .Protect Password:="132013696" UserInterfaceOnly:=True .EnableOutlining = True End WithEnd Sub
___________________
что может быть за проблема, как решить подскажите плизз...
...
Рейтинг: 0 / 0
11.07.2007, 15:04:00
    #34653649
Chelovek Tapok
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
есть файл...
что может быть за проблема, как решить подскажите плизз...[/quot]


У меня все работает.
Проблема может быть в том , что при открытии книги каждый раз она пытается поставить пароль на лист, который вероятно уже под паролем.
Но лучше измени код на следующий:

Private Sub CommandButton1_Click()
Application.EnableEvents = False
Call zachid1
Application.EnableEvents = True
End Sub
...
Рейтинг: 0 / 0
11.07.2007, 15:07:45
    #34653668
maccen
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
есть файл...
спасибо! все заработало!!! УРААА!
...
Рейтинг: 0 / 0
11.07.2007, 15:15:20
    #34653708
jdedevel
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
есть файл...
Хорошо бы еще и версию Excel написать.
В этом коде устанавливается пароль на лист.
Как он может материться?
Но пароль - это не св-во string и его не надо в кавычки брать.

Код: plaintext
1.
2.
3.
4.
5.
With Worksheets("Ëèïåíü") 
.Protect Password:= 132013696  
.EnableOutlining = True 
End With 
End Sub 

А с кавычками пароль будет 6b3b3b3b1b1b1
...
Рейтинг: 0 / 0
11.07.2007, 15:34:36
    #34653796
Chelovek Tapok
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
есть файл...
jdedevelХорошо бы еще и версию Excel написать.
В этом коде устанавливается пароль на лист.
Как он может материться?
Но пароль - это не св-во string и его не надо в кавычки брать.

Код: plaintext
1.
2.
3.
4.
5.
With Worksheets("Ëèïåíü") 
.Protect Password:= 132013696  
.EnableOutlining = True 
End With 
End Sub 

А с кавычками пароль будет 6b3b3b3b1b1b1

А если я вставляю пароль с буквами? Кавычки ставится должны - это раз.
И два - .Protect Password:="132013696" , UserInterFaceOnly:=true -ставится запятая.
...
Рейтинг: 0 / 0
11.07.2007, 15:35:19
    #34653806
Chelovek Tapok
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
есть файл...
Ставиться
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / есть файл... / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]