защита листа паролем

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » защита листа паролем (Макросы/Sub)

lesha1111

Дата: Воскресенье, 01.02.2015, 14:39 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 32

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

Здравствуйте! Подскажите пожалуйста можно как нибудь защитить листы и при этом производился ввод данных через форму и выставлялась дата записи.
http://www.excel-vba.ru/forum/index.php?topic=3682.0

К сообщению приложен файл: _1.xlsm (59.5 Kb)

Ответить

alex77755

Дата: Воскресенье, 01.02.2015, 18:07 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 362

Репутация: 64 ±

Замечаний: 0% ±

При записи данных с формы в процедуре снимать защиту и после записи снова ставить
Как-то так:
[vba]

Код

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim SH As Worksheet
     Set SH = Sheets("Станок 1")
' Dim lLastRow As Long
     SH.Unprotect "Пароль"
         lLastRow = Sheets(ListBox1.Value).Cells(Sheets(ListBox1.Value).Rows.Count, "C").End(xlUp).Row + 1
         Sheets(ListBox1.Value).Cells(lLastRow, "C").Value = Me.TextBox1.Value
         TextBox1.Text = ""
         MsgBox "Запись произведена на лист под названием " & Chr(10) & "             """ & _
         ListBox1.Value & """"
         Label1.Caption = ""
     SH.Protect "Пароль"
End Sub

[/vba]