Sub MyMacro(). Dim ws As Worksheet. For Each ws In ActiveWorkbook.Worksheets With Cells.

Его можно использовать как функцию рабочего листа (WS) в Excel.

This code will loop through all worksheets in a workbook, unprotecting each sheet: Sub ForEachSheet_inWorkbook(). Dim ws As Worksheet. For Each ws In Worksheets ws.Unprotect...

Вот как это сделать с VBA: Sub ProtectSheets(). Dim ws As Worksheet. For Each ws In ActiveWorkbook.Worksheets. ws.Protect Password:="1234". Next ws End Sub.

Вот как это сделать с VBA: Sub ProtectSheets(). Dim ws As Worksheet. For Each ws In ActiveWorkbook.Worksheets. ws.Protect Password:="1234". Next ws End Sub.

Вот как это сделать с VBA: Sub ProtectSheets(). Dim ws As Worksheet. For Each ws In ActiveWorkbook.Worksheets. ws.Protect Password:="1234". Next ws End Sub.

Вот как это сделать с VBA: Sub ProtectSheets(). Dim ws As Worksheet. For Each ws In ActiveWorkbook.Worksheets. ws.Protect Password:="1234". Next ws End Sub.

'Этот код защитит все листы за один раз Sub ProtectAllSheets () Dim ws As Worksheet Dim password As String password = "Test123"' замените Test123 нужным паролем.

Sub ProtectAllWorskeets() Dim ws As Worksheet Dim ps As String ps = InputBox("Enter a Password.", vbOKCancel) For Each ws In ActiveWorkbook.Worksheets ws.Protect Password:=ps Next ws End Sub.