Защищенный документ+макрос который удаляет страници(разделы)

[женя2010]

Добрый вечер!

документ Ворд. Мне нужно запретить изменять информацию в документе(для этого я через вкладку разработчик-Защитить документ-ввод данных в поля форм), но оставить возможность вносить информацию в поля. Это есть,но далее вступает надобность использовать Макрос который удаляет страници(или разделы).

И вот с такой защитой мой макрос не работает! Посоветуйте, как лучше решить эту задачу - как оставить документ защищенным и что бы макрос работал?

[Казанский]

В макросе отключите защиту, сделайте что нужно, включите защиту: ActiveDocument.Unprotect ... ActiveDocument.Protect

[женя2010]

PHP код:

Private Sub ComboBox1_Change()

Select Case Me.ComboBox1.Value

    Case "АНаболик)"
        
Dim i  As Integer
For i = 1 To 41
Selection.GoTo wdGoToPage, wdGoToAbsolute, 16
ActiveDocument.Bookmarks("\Page").Range.Delete
Next i

    Case "Таблетка"
    
Selection.GoTo wdGoToPage, wdGoToAbsolute, 15
ActiveDocument.Bookmarks("\Page").Range.Delete

       
    Case "Анаболик и таблетка"
    
   
End Select

End Sub 


Куда не пихаю ActiveDocument.Unprotect ... ActiveDocument.Protect все равно не получаеться.... обясните для того кто тормоз

[женя2010]

Ура!!! Получилось

PHP код:

Private Sub ComboBox1_Change()
ActiveDocument.Unprotect Password:="Password"
Select Case Me.ComboBox1.Value

    Case "АНаболик)"
        
Dim i  As Integer
For i = 1 To 41
Selection.GoTo wdGoToPage, wdGoToAbsolute, 16
ActiveDocument.Bookmarks("\Page").Range.Delete
Next i

    Case "Таблетка"
    
Selection.GoTo wdGoToPage, wdGoToAbsolute, 15
ActiveDocument.Bookmarks("\Page").Range.Delete

       
    Case "Анаболик и таблетка"
    
   
End Select
ActiveDocument.Protect Password:="Password", NoReset:=False, Type:= _
        [B]wdAllowOnlyFormFields[/B], UseIRM:=False, EnforceStyleLock:=False
End Sub