Forbud mod indtastning i celler med fed-formatering

Glemte lige at sige, at det kun skal fungere på et bestemt ark (ikke alle ark i mappen).

Nu er der ikke mange oplysniger om arkets ombygning men:
Kan du ikke låse celler der er formateret fed og så beskyt ark?

Jo det var en mulighed, men det vil tage lang tid og gøre arket mindre fleksibelt.

Teksten står i kolonne B og der skla tastes i kolonne L.

"Teksten står i kolonne B og der skal tastes i kolonne L."
Det må du forklare nærmere.

Jep, du skal blot søge i alle anvendte celler "for each" og låse dem med fed skrift. Derefter kan du beskytte arket.

VH. GrN.dk

Et eksempel kunne være:
I kolonne B står der en tekst og i kolonne C og D står der tal.


Anders        10    10      S
Bo            10    12      S
Casper        15    23      I
Dan          20    12      S
Erik          10    13      I
I alt        65    70

I alt står med FED og der må ikke kunne tastes i kolonnen hvor der står S eller I (S og I er indtastet).

Jeg vil meget gerne undgå at låse arket.

gnowak -> Hvordan anvender du søgefunktionen med "for each" og får denne til at fjerne beskyttelsen fra alle ikke "fed" celler i dataområdet?

Man kan fjerne beskyttelsen via noget i retning af:

range.Locked = False
range.FormulaHidden = False

VH. GrN.dk

Jeg kan ikke forstå hvad det er du vil.

"I alt står med FED og der må ikke kunne tastes i kolonnen hvor der står S eller I (S og I er indtastet)."
???

Jeg vil meget gerne undgå at låse arket.
Så kan du vel ikke beskytte noget?

Lidt eksempler:

1. marker hele arket ved at højreklik på firkant til venstre for A og lige over 1, vælg 'formater celler'.
Fanebladet 'Beskyttelse' --> klik flere gange på 'Låst' indtil firkanten er tom.
Nu er hele arket 'Låst' op

Eks. 1 Denne beskytter tallene i kollonne C og D hvis der står S eller I i kolonne E


Eks. 2 Denne beskytter celler med Fed i området: B1:E6


Eks. 3 Denne beskytter celler i kollonne E (E1:E5) hvis der står S eller I i cellen

Eksempel 2 er næsten hcad jeg skal bruge.

Jeg har lagt det ind i Ark1 og rettet VBA'en til følgende:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Unprotect

For Each a In Ark1.Range("E1:E9")
If a.Font.Bold = True Then
a.Offset(0, 0).Select
Selection.Locked = True
End If
Next

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Programmet går dog død i a.Offset(0, 0).Select

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E1:E9")) Is Nothing Then

ActiveSheet.Unprotect

For Each F In Worksheets(1).Range("E1:E9").Cells
If F.Font.Bold = True Then
F.Offset(0, 0).Locked = True
Else: F.Offset(0, 0).Locked = False
End If
Next

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If

End Sub

Super - store-morten

Det var lige det jeg skulle bruge - TAK!

Lægger du et svar?

Velbekomme.

Godt det lykkedes :-)