[es] - Nedozvoliti brisanje podataka u ćeliji putem VBA

zorro43

Član broj: 326301
Poruke: 5
*.static.amis.net.

+1 Profil

Nedozvoliti brisanje podataka u ćeliji putem VBA

^{17.12.2014. u 17:12 - pre 113 meseci}

Pozdrav,

U radnoj knjizi imam 2 lista. Sheet1 i Sheet2.
U Sheet1 se u stupac M upisuju neka zapažanja a u stupcu O dobija se funkcijom VLOOKUP povratna informacija na zapažanja koja se upisuje u Sheet2.
Kako da sa makrom ne dozvolim u Sheet1 brisanje podataka u čelijama stupca M kad je u stupcu O (u istom redu naime) funkcijom VLOOKUP upisano POKVARENO ili NEDOZVOLJENO.
U stupcu M kao i u stupcu O ima po 200 redova (od M 4 do M 204, te od O 4 do O 204).

Može li mi netko hitno pomoči

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2268
212.200.121.*

Sajt: www.gowi.rs

+109 Profil

Re: Nedozvoliti brisanje podataka u ćeliji putem VBA

^{18.12.2014. u 08:56 - pre 113 meseci}

Ideja je da se određena ćelija u redu M zaključa (Locked) zavisno od sadržaja u koloni O. Uslov za to je da je ceo radni list zaključan. Pre zaključavanja radnog lista potrebno je otključati one kolone/ćelije koje se mogu ručno unositi. Time se sprečava bilo kakvo menjanje odgovarajućih ćelija u koloni M ukoloko je odgovarajući tekst u koloni O

Sledeći kod se unosi za događaj Worksheet_Chnage

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Cells.Count > 1 Then Exit Sub
  If Target.Column = 15 Then ' Column O
     Target.Worksheet.Unprotect
     If Target.Text = "POKVARENO" Or Target.Text = "NEDOZVOLJENO" Then
         Cells(Target.Row, 13).Locked = True
     Else
         Cells(Target.Row, 13).Locked = False
     End If
     Target.Worksheet.Protect
  End If
End Sub

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Prikačeni fajlovi

NotChangeIf.xlsm - 14.78k

Odgovor na temu

zorro43

Član broj: 326301
Poruke: 5
*.static.amis.net.

+1 Profil

Re: Nedozvoliti brisanje podataka u ćeliji putem VBA

^{19.12.2014. u 03:51 - pre 113 meseci}

Puno ti hvala Jpeca.

Odgovor na temu