Защита от редактирования Excel таблицы

[Sejou]

Как средствами VB6 (если это возможно) установить пароль на редактирование созданной Excel таблицы?
Ответы на адрес sejou&msx.ru

[Tuco]

а лучше, не на адрес, а для всеобщего обозрения...

[koyote232ua]

Для защиты всех листов в книге

Sub protekt()
For Each sh In Sheets
sh.Protect "passwd", DrawingObjects:=True, Contents:=True, Scenarios:=True
Next
End Sub

Sub unprotekt()
For Each sh In Sheets
sh.Unprotect "passwd"
Next
End Sub

[Sejou]

Koyote232ua,
Так можно сделать средствами VBA.
А как быть с VB6?

[GSerg]

Код: Выделить всё

Option Explicit

Private Sub Form_Load()
  Dim s As Object
 
  With CreateObject("excel.application")
    With .workbooks.Add
      For Each s In .worksheets
        s.protect "pswd"
      Next
      .saveas "c:\1.xls"
    End With
    .quit
  End With
End Sub