Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

kako da popravim ovaj kod

[es] :: Office :: Excel :: kako da popravim ovaj kod

[ Pregleda: 1374 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

ivan.985
Petrovic Ivan
Izradjivac PVC I AL Stolarije
Kolubara Gradjevinar D.O.O
Lajkovac

Član broj: 149219
Poruke: 199
*.adsl-a-2.sezampro.rs.



+2 Profil

icon kako da popravim ovaj kod03.04.2011. u 20:46 - pre 158 meseci
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!
 
Odgovor na temu

ivan.985
Petrovic Ivan
Izradjivac PVC I AL Stolarije
Kolubara Gradjevinar D.O.O
Lajkovac

Član broj: 149219
Poruke: 199
*.adsl-a-2.sezampro.rs.



+2 Profil

icon Re: kako da popravim ovaj kod03.04.2011. u 21:56 - pre 158 meseci
sredjeno i namesteno! Moderator moze da obrise temu!
 
Odgovor na temu

[es] :: Office :: Excel :: kako da popravim ovaj kod

[ Pregleda: 1374 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.