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!
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!