Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketOphævelse af beskyttet celle via VBA

 Besvar Besvar
Forfatter
Bjarne Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 17.Sep.2010
Land: Danmark
Status: Offline
Point: 300
Direkte link til dette indlæg Emne: Ophævelse af beskyttet celle via VBA
    Sendt: 19.Feb.2013 kl. 11:17

Hjælp til formel i VBA (Bruger Excel 2007)

Funktions Forklaring:

 

Kolonnerne A,B,D og G samt kolonne K,L og M, er skrive beskyttet

Kolonne C og E skal indsættes med talværdier.

I kolonne C må værdien være min. 1 eller max. 3

I Ark 1 bruger jeg Tab til at springe over de beskyttede celler.

 

I Ark 1 er der opført en :  “Private Sub Worksheet_Change (By Val Target As Range)”

 

If Range (”C” & Target.Row).Value = 1 Then ”herfra har jeg brug for hjælp”

    Så skal beskyttelsen KUN ophæves i Range (”K” & Target.Row)

 

If Range (”C” & Target.Row).Value = 2 Then ”herfra har jeg brug for hjælp”

    Så skal beskyttelsen KUN ophæves i Range (”L” & Target.Row)

 

If Range (”C” & Target.Row).Value = 3 Then ”herfra har jeg brug for hjælp”

    Så skal beskyttelsen KUN ophæves i Range (”M” & Target.Row)

 

Kan det lade sig gøre eller er jeg helt forkert på den?

//Bjarne
Til top



Til top
EXCELGAARD Se dropdown
Platin bruger
Platin bruger


Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5417
Direkte link til dette indlæg Sendt: 19.Feb.2013 kl. 11:56
Prøv med denne:
Private Sub Worksheet_Change(ByVal Target As Range)
      
      Me.Unprotect
      Range("A:B,D:D,G:G,K:M").Locked = True
      If Range("C" & Target.Row).Value = 1 Then Range("K" & Target.Row).Locked = True
      If Range("C" & Target.Row).Value = 2 Then Range("L" & Target.Row).Locked = True
      If Range("C" & Target.Row).Value = 3 Then Range("M" & Target.Row).Locked = True
      Me.Protect

End Sub

Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Til top
EXCELGAARD Se dropdown
Platin bruger
Platin bruger


Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5417
Direkte link til dette indlæg Sendt: 20.Feb.2013 kl. 08:20
HOV!

Kommer lige til at se, at der vist har indsneget sig en lille Too-Many-fingers-On-The-Keyboard fejl!

De tre 'IF' linjer skal selvfølgelig slutte med = False

Dummy mig, men håber du selv fik øje på det...
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Til top
Bjarne Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 17.Sep.2010
Land: Danmark
Status: Offline
Point: 300
Direkte link til dette indlæg Sendt: 21.Feb.2013 kl. 09:05
Hug
 
Nej ikke dumme dig!
Fandt ud af det, da jeg så din løsning.
Fungerer fint, men jeg fandt en lille tilknyttet problemstilling, som jeg ikke havde taget i ed.
 
Prøver lige at løse det selv, ellers vil jeg gerne have mulighed for at vende tilbage.
 
Med venlig hilsen
//Bjarne
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk