2 kolommen vastzetten

[Jammy]

Beste,

Ik zou kolom A en B willen vastzetten, maar dit gaat niet omdat daar een macro aan vasthangt.
Hoe kan ik dat oplossen.

 

[Jan van Asseldonk]

Plaats de cursor in C2 en kies venster, titels blokkeren.

 

[Jammy]

Geplaatst door Jan van Asseldonk
Plaats de cursor in C2 en kies venster, titels blokkeren.

Ik bedoel niet blokkeren maar gewoon dat men er niet meer iets kan wijzigen.
Dus dat men enkel vanaf kolom C,D.... kan invullen.

 

[[FJ]Hydra]

Door er een beveiliging in te zetten. De 1e 2 kolommen blokkeren tegen schrijven.

1) Selecteer volledig werkblad >>
2) Celeigenschappen >>
3) Bescherming >>
4) "Geblokkeerd" uitvinken >>
5) Selecteer A & B >>
6) Celeigenschappen >>
7) Bescherming >>
8) "Geblokkeerd" aanvinken >>
9) Blad Beveiligen.

Nu zijn alleen de kolommen beveiligd en kun je de erst van het werkblad gebruiken...

Ik hoop dat het nu gaat lukken.

 

[Jammy]

Hydra,
dit had ik al geprobeerd, zonder succes.
Geef steeds 'foutopsporing' dit omdat er een macro aanwezig is.

 

[[FJ]Hydra]

Lijkt mij niet anders dat de macro iets in betreffende kolommen doet. Dit is overigens eventueel te omzeilen door de beveiliging van de cel uit te schakelen en na de macro de beveiliging weer te executen.. (Locked = False, of Enabled = True, afhankelijk hoe je dit gaat doen...)

Ik heb jouw bestand overigens nog niet bekeken.... Kom er (nog) niet aan toe..

 

[doe-dit-dan]

sorry zag net pas de andere vraag dus dit antwoord gaat ook niet op

 

[Jammy]

Geplaatst door [FJ]Hydra
Lijkt mij niet anders dat de macro iets in betreffende kolommen doet. Dit is overigens eventueel te omzeilen door de beveiliging van de cel uit te schakelen en na de macro de beveiliging weer te executen.. (Locked = False, of Enabled = True, afhankelijk hoe je dit gaat doen...)

Ik heb jouw bestand overigens nog niet bekeken.... Kom er (nog) niet aan toe..

Als het niet teveel gevraagd is kan je dit eens doen met mijn bestand?

 

[jzeedijk]

Hoi Jammy,

Twee VBA-oplossingen, eigenlijk beide geintjes:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Range("E1") <> "zee" Then
If Target.Column < 3 Then Range("O1") = Target.Formula
End If
End Sub
Deze macro voorkomt dat je in kolom A & B kan komen, laat staan dat je er iets kan wijzigen (tenzij je het wachtwoord "zee" in E1 invoert).

De andere minstens zo leuke macro, heel frusterend voor een leek:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Range("E1") <> "zee" Then
'Voorkom overschrijven van invoer in kolom A&B, lege cellen kunnen wel ingevuld worden
If Target.Column < 3 And Not IsEmpty(Range("O1")) Then
If Target <> Range("O1") Then Target.Formula = Range("O1").Formula
End If
End If
'veranderen van gegevens in kolom A & B dmv macro
If Not Intersect(Target, Range("E3")) Is Nothing Then Range("A3") = Range("E3")
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Column < 3 Then Range("O1") = Target.Formula
End Sub
Deze macro schrijft de aanwezige waarde in kolom A of B gewoonweg weer terug, als je een waarde of tekst probeert te wijzigen. Het leuke is dat macro's wel in kolom A & B kunnen schrijven.

Jeroen

 

[Jammy]

jzeedijk, goeie oplossingen,maar hoe los ik bvb het eerste voorstel van u in mijn file?Ben niet zo goed op de hoogte van vba.
Bij mij staat Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Cells.Count = 1 And Target.Column = 3 Then
If Target.Offset(0, -1) = "" Then
Application.EnableEvents = False
Target.Offset(0, -2) = _
Application.WorksheetFunction.Max(Range("A:A")) + 1
Application.EnableEvents = True
End If
End If

Set rngIsect = Intersect(Target, [C:C])
If Not (rngIsect Is Nothing) Then
For r = Target.Row To Target.Row + Target.Rows.Count - 1
If Cells(r, 3) = "" Then
Cells(r, 2) = ""
Else
Cells(r, 2) = Date
End If
Next r

End If

Set rngIsect = Intersect(Target, [C:C])
If Not (rngIsect Is Nothing) Then

For r = Target.Row To Target.Row + Target.Rows.Count - 1
If Cells(r, 3) = "" Then
Cells(r, 1) = ""
Cells(r, 2) = ""
Else
Cells(r, 2) = Date
End If
Next r
End If
'End If
End Sub

Moet ik het uwe gewoon eronder plaatsen of hoe moet dit?
Of beter kan je het verbetert bestandje uploaden aub.
Alvast bedankt