Kan jeg få lidt kode til "Skjul indhold af celler" ?

PS hvis muligt må den gerne eksekveres automatisk - Autorun ??

Brug betinget formatering. Hvis g5="Anders And" formaterer du til Hvid skriftfarve.

Er arket beskyttet ?

Ja - men jeg ved ikke om det er et "must", men det er det nok, Bak. Jkrons - den har vi selvfølgelig prøvet, problemet er at hvis man markerer området, så kan alle data ses alligevel...

Denne makro kører ved ændring af celle indholdet i G5 - med modifikationer kan den køres andre steder fra - denne skal placeres i arkets kodemodul:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim vntColerIndex As Variant
    If Not Intersect(Target, Range("G5")) Is Nothing Then
        If UCase(Target.Value) = "ANDERS AND" Then
            vntColerIndex = 2
        Else
            vntColerIndex = xlColorIndexAutomatic
        End If
        Range("E15:G43").Font.ColorIndex = vntColerIndex
    End If
End Sub

OK.

...den skrifter bare skriftfarven til hvid.

Er LIGEGLAD med farven - jeg vil have det skjult...

Hvis du også føjer denne her til, så kan brugeren ikke markere området. Prøv engang med dem begge.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("E15:G43")) Is Nothing Then
        If UCase(Range("G5").Value) = "ANDERS AND" Then
            Range("G5").Select
        End If
    End If
End Sub

Private Sub Workbook_Open()
If Worksheets("Ark1").Range("G5") = "Anders And" Then _
    Worksheets("Ark1").Range("e15:g43").NumberFormat = ";;;"
End Sub

bak>> så kan indholdet stadig ses i formellinien.

Og ved markering...

Nej, ikke ved markering ( hos mig)

Hvis der står noget i en celle, og man kan markere cellen, vil man vel altid kunne se det i formellinien, så en løsning kunne være at fjerne formellinien.

mile>> prøv mine to - tror på de udfører det du ønsker.
Evt. kan du tilføje følgende, så du er sikker på markeringen er uden for E15:G43

Private Sub Workbook_Open()
  Worksheets("Ark1").Select
  Range("G5").Select
End sub

bak-> Heller ikke hos mig!

jkrons>> formel linien kan brugeren selv sætte på igen...

flemmeingdahl-> Enig, og i virkeligheden tror jeg heller ikke, at problemet 100% kan løses. Hvis man skjuler cellen (og det tror jeg ikke at man kan), vil en kvik bruger også kunne finde ud af at vise den igen.

Så forsvandt visningen på formellinien også

Private Sub Workbook_Open()
If Worksheets("Ark1").Range("G15") = "Anders And" Then
    Worksheets("Ark1").Range("e15:g43").NumberFormat = ";;;"
    Worksheets("Ark1").Range("e15:g43").FormulaHidden = True
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub

jkrons>> har du prøvet min kode ? og ja en kvik bruger kan bruge et password remove værktøj også på min kode.

bak>> ved ikke om det har nogen betydning, men hvad når G5 ændre sig ?

flemmingdahl-> Nu var det ikke mit spørgsmål :-) men Ja, jeg har prøvet din kode, og den virker hos mig. Det samme gør ivørigt bak's. Det eneste jeg ville påpege med mit forrige indlæg var, at "et idiotsikkert system ikke eksisterer. Dertil er idioter alt for opfindtsomme".

Bak din er jo en fin lille makro, men jeg kan skutte få den til at virke. Har indsat den under Makro - vba editor - Ark1.

Flemming jeg kan heller ikke få dine til at virke SAMMEN, kan du ikke lige prøve at flette dem sammen for mig, og fortælle hvor jeg skal lægge dem ?

jkrons>> OK

Jeg stopper her.

Tjae, det har du da ret i, Flemming, men det kan sikkert også løses.
Jeg melder lige pas nu og går til møde :-)

Hovsa, hvis du bere har kopieret min, har jeg skrevet G15 og ikke G5

Hovsa igen, Den skal ligge i ThisWorkBook

Den fangede jeg godt nok. Men nu prøver jeg lige helt forfra med et rent regneark. Når de andre kan få den til at virke, må det jo mig, der fjumser rundt i noget :-)

Højreklik på arkets faneblad og indsæt følgende:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim vntColerIndex As Variant
    If Not Intersect(Target, Range("G5")) Is Nothing Then
        If UCase(Target.Value) = "ANDERS AND" Then
            vntColerIndex = 2
        Else
            vntColerIndex = xlColorIndexAutomatic
        End If
        Range("E15:G43").Font.ColorIndex = vntColerIndex
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("E15:G43")) Is Nothing Then
        If UCase(Range("G5").Value) = "ANDERS AND" Then
            Range("G5").Select
        End If
    End If
End Sub

I kodemodulet ThisWorkbook placerer du evt. følgende:

Private Sub Workbook_Open()
  Worksheets("Ark1").Select
  Range("G5").Select
End sub

Det mest effektive ville være at at skjule hele rækken eller collen.
Mnn det kræver selvfølgelig at der ikke står andet data i dem.

Columns("E:G").Select
Selection.EntireColumn.Hidden = True

Bak nu har jeg fået din til at virke. Men hvis du der står "Lan-Lan" i stedet for "Anders And" cellen (altså ændrer sig), kan man så få tilføjet en linie, der gør "Ingenting" ??

Bak - lægger du ikke lige et svar, så jeg kan fordele nogle point imellem dig og Flemming ?

Ok :-)