DONRU1
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Yuk Теперь все ссылки обрабатывает. Cells(j, 7).Select If Cells(j, 7).Text <> "" And Cells(j, 8) <> "" Then s = Replace(Selection.Formula, Chr(39), "") addr = Mid(s, InStr(1, s, "]") + 1) If Right(addr, 1) = ")" Then addr = Left(addr, Len(addr) - 3) If InStr(1, addr, "+") > 0 Then addr = Mid(addr, 1, InStr(1, addr, "+") - 1) If InStr(1, addr, "-") > 0 Then addr = Mid(addr, 1, InStr(1, addr, "-") - 1) s = Left(s, InStr(1, s, "]") - 1) fname = Replace(s, "[", "") fname = Right(fname, Len(fname) - 1) If Left(fname, 5) = "ROUND" Then fname = Right(fname, Len(fname) - 6) If Right(fname, 1) = ")" Then fname = Left(fname, Len(fname) - 3) Workbooks("_Ошибки.xls").Activate Cells(numins, 7).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=fname, SubAddress:=addr, TextToDisplay:=Selection.value ', SubAddress:=addr Workbooks(NameUvyaz).Activate End If Но проблема с паролем остается SERGE_BLIZNUK Любой выполнить макрос с паролем не может. Для этого надо знать имя макроса. А просматривать всесь программный код )) - время тратить непонятно для чего. Разве только ради спортивного интереса. Workbooks.Open Filename:=AWP_O_FN & "\" & IndexFile & "_" & OpenNameFile, WriteResPassword:=Workbooks(AWN).Worksheets("6").Cells(4, 3).Text Т.е. пароль храниться в книге в ячейке. Лист защищен. ячейка скрыта. Т.е. просто так посмотреть пароль нельзя. Можно усложнить еще следующим образом: Workbooks(AWN).Sheets(Chr(51)).Range(Chr(98) & Chr(49) & Chr(51)) Но все это детские игры т.к. если захотят всеравно найдут. )) |