Witam
Zrobiłem tak działa
ActiveSheet.Unprotect ("admin")
ThisWorkbook.Worksheets("Arkusz1").Rows("9:65536").ClearContents ' czyści arkusz
Application.EnableEvents = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, password:="admin"
Application.EnableEvents = True |