Цитата |
---|
Ігор Гончаренко написал: се разрешения, которые можно проставить птичками при ручной защите, точно также можно сделать макросом указав определенным параметрам значение True |
Отлично сказано! но я простой преподаватель, и пытаюсь для себя что то сделать для облегчения труда написания рутины...
..если бы я знал программный код и написания значения TRUE. сей непременно это сделал бы...
вот что у меня есть в макросе:
Код |
---|
Sub PasSheets()
Dim sht As Worksheet
Dim strPassword As String
Dim i As Integer, j As Integer
Dim a()
ReDim a(ThisWorkbook.Windows(1).SelectedSheets.Count - 1)
strPassword = InputBox("Enter the password for the worksheet")
' For Each sht In ActiveWorkbook.Worksheets
' ListBox1.AddItem sht.Name
' Next sht
For Each sht In ThisWorkbook.Windows(1).SelectedSheets
a(i) = sht.Name
i = i + 1
Next
For j = 0 To UBound(a)
Worksheets(a(j)).Protect Password:=strPassword, Scenarios:=True
Next
End Sub
Sub ShowDialog2()
UserForm2.Show 0
End Sub |