Всем привет! суть вопроса: нужно, чтоб данные из одной открытой книги переносились в другую открытую, на лист, который скрыт. книга при этом защищена. пробовал через простую запись макроса - не получилось)
В общем, я продвинулся дальше) и теперь наткнулся на ошибку метод paste из класса worksheet завершен неверно, что ему не так? <pre class="bxhtmled-code">Sub Pmix() ' ' Pmix Макрос '
1. код на форуме нужно правильно оформлять, см. картинку ниже 2. Плохо, что вы в своём коде не указываете имя листа С которого вы копируете данные. К большому несчастью в файле Excel может быть тысячи листов 3. Попробуйте этот код, вдруг сработает.
Код
Sub PMix()
'сначала очистим буфер, чтобы там точно ничего лишнего не было
Application.CutCopyMode = False
Windows("12345.xls").Activate
ActiveSheet.UsedRange.Copy
Windows("DSA_V5.5.xlsm").Activate
ActiveWorkbook.Unprotect Password:="123"
Sheets("PMix").Visible = -1
Sheets("PMix").Select
ActiveSheet.Cells.Clear
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("PMix").Visible = 2
ActiveWorkbook.Protect Password:="123", structure:=True, Windows:=True
Sheets("MHP").Select
End Sub
Sub tt()
Windows("DSA_V5.5.xlsm").Activate
ActiveWorkbook.Unprotect Password:="123"
With Sheets("PMix")
.Visible = -1
.Select
.Cells.Clear
Windows("12345.xls").ActiveSheet.UsedRange.Copy
.Range("A1").Select
.Paste
Application.CutCopyMode = False
.Visible = 2
End With
ActiveWorkbook.Protect Password:="123", structure:=True, Windows:=True
End Sub
Sub ttt()
Windows("21.xlsm").Activate
ActiveWorkbook.Unprotect Password:="123"
With Sheets("PMix")
.Cells.Clear
Windows("22.xlsm").ActiveSheet.UsedRange.Copy .Range("A1")
End With
ActiveWorkbook.Protect Password:="123", structure:=True, Windows:=True
End Sub
Sub ttt()
With ThisWorkbook
.Unprotect Password:="123"
With .Sheets("PMix")
.Cells.Clear
Windows("22.xlsm").ActiveSheet.UsedRange.Copy .Range("A1")
End With
.Protect Password:="123", structure:=True, Windows:=True
End With
End Sub