werkblad beveiligen bij macro/userform die werkblad vult

[Margot1]

Hallo slimmerrikken,

Het lukt me niet het werkblad zo te beveiligen dat een persoon handmatig niks kan aanpassen in de tekst/inhoud van de cellen maar de macro achter het userform wel in staat is de ingevoerde data weg te schrijven naar, en op te halen uit, dit werkblad.
Welke instelling moet ik kiezen bij beveiligen werklad om dit voor elkaar te krijgen? Of moet het in de macro?

Alvast bedankt.

 

[ExcelAmateur]

Margot1,

Zet dit in Thisworkbook, dan de file sluiten en daarna weer openen.
Als je een password gebruikt moet je dit wel hier ook in zetten, hij staat nu op niets.

Private Sub Workbook_Open()
For i = 1 to Sheets.Count
  With Sheets(i)
    .Protect Password:="", UserInterfaceOnly:=True
    .EnableOutlining = True
  End With
Next
End Sub

De code is van Warme bakkertje

 

[Margot1]

Bedankt voor je hulp. Ik heb de code iets aangepast. Zodat het niet alle werkbladen voor gebruikers beveiligd maar een aantal

Private Sub Workbook_Open()
  With Sheets("NaamSheet1")
    .Protect Password:="wachtwoord1", UserInterfaceOnly:=True
    .EnableOutlining = True
  End With
  With Sheets("NaamSheet2")
    .Protect Password:="wachtwoord2", UserInterfaceOnly:=True
    .EnableOutlining = True
  End With
*etc
End Sub

 

[Warme bakkertje]

Private Sub Workbook_Open()
i = 1
For Each it In Array("NaamSheet1", "NaamSheet2", "NaamSheet3")
    With Sheets(it)
        .Protect Password:=Choose(i, "wachtwoord1", "wachtwoord2", "wachtwoord3"), UserInterfaceOnly:=True
        '.EnableOutlining = True
    End With
    i = i + 1
Next
End Sub

 

[Margot1]

Dank je wel. Ben nu al blij wanneer het werkt maar het kan best korter natuurlijk