Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - Odblokowanie większej liczby arkuszy

td2003 · Exceloholic Posty: 132

Witam!
Chciałbym spytać jak można zbiorowo odblokować większą liczbę arkuszy bez konieczności osobnego zaznaczania i odblokowywania każdego arkusza.

Dzięki!

Trebor · Excel Expert **Pomógł:** 1752 razy Posty: 4680

Enter

Makrem to zrobiłbym tak

Kod:

Sub blokuj()
Dim a As Byte
For a = 1 To Worksheets.Count
Worksheets(a).Protect
Next a
End Sub

Sub odblokuj()
Dim a As Byte
For a = 1 To Worksheets.Count
Worksheets(a).Unprotect
Next a
End Sub

Exit

td2003 · Exceloholic Posty: 132

Dzięki. Szkoda, że nie ma możliwości zrobienia tego bez pętli.