Ik werk met een sheet waarin een knop met password gebruikt wordt ter akkordering van de informatie van de sheet. (zie hieronder)
Graag wil ik dit aanvullen door de cellen in deze sheet te beveiligen zodat ze niet meer overschreven kunnen worden na het akkoord. Wie kan mij vertellen hoe ik dit realiseer ??
Private Sub CommandButton1_Click()
Const PWORD As String = "ECM"
Dim response As String
Dim msg As String
msg = "Voer wachtwoord in:"
Do
response = Application.InputBox(Prompt:=msg, _
Title:="Password", Type:=2)
If response = CStr(False) Then Exit Sub 'Cancelled
msg = "Incorrect!" & vbNewLine & "Voer opnieuw wachtwoord in:"
Loop Until response = PWORD
Worksheets("Calculatie Doc.Sol.").Range("K35") = "AKKOORD"
Graag wil ik dit aanvullen door de cellen in deze sheet te beveiligen zodat ze niet meer overschreven kunnen worden na het akkoord. Wie kan mij vertellen hoe ik dit realiseer ??
Private Sub CommandButton1_Click()
Const PWORD As String = "ECM"
Dim response As String
Dim msg As String
msg = "Voer wachtwoord in:"
Do
response = Application.InputBox(Prompt:=msg, _
Title:="Password", Type:=2)
If response = CStr(False) Then Exit Sub 'Cancelled
msg = "Incorrect!" & vbNewLine & "Voer opnieuw wachtwoord in:"
Loop Until response = PWORD
Worksheets("Calculatie Doc.Sol.").Range("K35") = "AKKOORD"
