nejak jsem neobjevil vlastnost, ktera by udala cislo listu, tak jsem pouzil cyklus:Sub sheet()
For i = 1 To Sheets.Count
If Sheets(i).Name = ActiveSheet.Name Then
Sheets(i - 1).Protect
Exit Sub
End If
Next i
End Subcitovat
For i = 1 To Sheets.Count
If Sheets(i).Name = ActiveSheet.Name Then
Sheets(i - 1).Protect
Exit Sub
End If
Next i
End Subcitovat