[ ivan.985 @ 03.04.2011. 20:46 ] @
| Nasao sam ovaj kod da mi brise sve unlock celije ali samo u aktivnom sheet-u! Kako da ga prepravim da automatski brise u svim sheet-ovima! Private Sub Workbook_Open() With ActiveSheet .Protect Application.DisplayAlerts = False On Error Resume Next .Cells.Value = vbNullString On Error GoTo 0 Application.DisplayAlerts = True .Unprotect End With End Sub Probao sam umesto active sheet da ukucam sheets (array("Sheet1","Sheet2"...) Ali posle toga prijavljuje gresku na sledecem redu ".Protect"! Polude ja sa ovim! A bas mi treba! |