regel invoer blokkeren

[maomanna]

Hallo allen,

ik heb een gedeeld excelbestand waarbij ik invoer via een userform wil laten verlopen.

Nu is het zo dat de gebruiker GEEN handmatige regel mag toevoegen, maar wel celwaarden in een bepaalde range mag wijzigen.

In het voorbeeldbestand, mag de gebruiker alleen de gele cellen wijzigen en niks toevoegen.
Het invoegen van regels, heb ik al een werkende macro voor.
Bekijk bijlage blokkeren.xlsx

 

[Roncancio]

Een kwestie van de blokkering van de gele cellen eraf halen en vervolgens het werkblad beveiligen.

Met vriendelijke groet,


Roncancio

 

[maomanna]

En dan werken de knoppen met macro's nog wel?
Er worden regelmatig rijen toegevoegd en weer verwijderd als ze voltooid zijn.

 

[Roncancio]

Ja, zet in VBA bij het beveiligen UserInterfaceOnly op True.
Bijv.:

Blad1.Protect UserInterfaceOnly:=True

...of wat korter...

Blad1.Protect , True

Het werkblad kan dan alleen via VBA worden aangepast en dus niet handmatig.

Met vriendeljke groet,


Roncancio

 

[maomanna]

Dan blokt hij ook de andere cellen.

wel vond ik zoiets:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target <> Range("A1") Then Exit Sub

ActiveSheet.Unprotect

If Range("A1").Value = "xyz" Then
Range("B1").Locked = True
Range("C1").Locked = False
Range("D1").Locked = False
End If

If Range("A1").Value = "abc" Then
Range("B1").Locked = False
Range("C1").Locked = True
Range("D1").Locked = False
End If

If Range("A1").Value = 123 Then
Range("B1").Locked = False
Range("C1").Locked = False
Range("D1").Locked = True
End If

If Range("A1").Value = "" Then
Range("B1").Locked = False
Range("C1").Locked = False
Range("D1").Locked = False
End If

ActiveSheet.Protect

End Sub

Dan zou iets als een goede optie zijn?

Private Sub Worksheet_Change(ByVal Target As Range)

ActiveSheet.Unprotect

Range("A1:D150").Locked = False

ActiveSheet.Protect

End Sub

 

[Roncancio]

Nee, dat hoeft niet. (zie bijgevoegd voorbeeld).

Bij het openen van het bestand verschijnt een menu.
In het menu staat een tekstveld en een knop.
De inhoud van het tekstveld wordt in de actieve cel geplaatst.
Je kunt overigens een andere cel selecteren voordat je op de knop drukt.

Met vriendelijke groet,


Roncancio