Страницы: 1
RSS
Копирование на скрытый лист
 
Добрый день!

Есть макрос на копирование ячеек на другой лист. Я хотел бы чтобы данные можно было копировать на суперскрытыйлист (который делается через VisualBasic)
Дело в том что сотрудники не должны видеть информацию, после того как ввели ее. В идеале конечно сделать лист защищенным, но с этим я вообще не знаю как справится. Помогите пожалуйста

Вот макрос:
Код
Sub добавить()        Range("A9:S9").Select
    Selection.Copy
    Sheets("Лист2").Select
     
    Range("A" & Cells(Rows.Count, 1).End(xlUp).Row + 1).Select
    Selection.PasteSpecial Paste:=xlPasteValues
End Sub
 
afanasev_n_a, здравия. У Copy есть параметр Destination. Почитайте справку и поймёте, что для копирования с одного листа на другой, не обязательно их выделять или делать активными.
Изменено: JayBhagavan - 27.10.2015 11:44:00

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
Код
Sub добавить()
Range("A9:S9").Copy
With Sheets("Лист2")
.Range("A" & .Cells(Rows.Count, 1).End(xlUp).Row + 1).PasteSpecial xlValues
End With
End Sub

сделайте лист очень скрытым и все. копироваться и так будет
 
yoozhik, Спасибо работает) а на защищенный лист я так понимаю копировать нельзя? Если например смогут найти лист через VisualBasic, все равно в листе изменить не смогут ничего, без пароля.
 
на защищенный - сначала снять защиту, потом вернуть
Код
Sub добавить()
Set rn = Range("A9:S9")
With Sheets("Лист2")
lr = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Unprotect "123"
.Range("A" & lr & ":S" & lr) = rn.Value
.Protect "123"
End With
End Sub

чтоб листы не нашли, можете и проект VBA запаролить
Изменено: yoozhik - 27.10.2015 12:15:47
 
yoozhik, Спасибо большое сделал защиту VBA проекта ( я так понимаю только в VBA можно изменить супер скрытый лист на обычный?)
Страницы: 1
Наверх