formule gebruiken om werkblad te beveiligen

[Jamez]

Is het mogelijk om middels een formule het werkblad te beveiligen?
E.g. wanneer een cel een waarde "true" geeft dat vervolgens het blad wordt beveiligd?

Leek me simpel, maar het heeft toch meer voeten in de aarde...

bij voorbaad dank
Jamez

 

[Demeter]

Kijk hier eens naar:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

    If Range("A1") = 1 Then 
        ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Else
        ActiveSheet.Unprotect
    End If
    
End Sub

Letop!! Cel A1 moet hier niet zelf beveiligd worden zodat je de beveiliging nog uit kan zetten als er geen 1 instaat.

Groet,
Ferenc

 

[Wigi]

Met WAAR / ONWAAR krijg je bv.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Address = "$A$1" Then
        Select Case Target
            Case True
                ActiveWorkbook.Protect 'breid uit indien gewenst
            Case False
                ActiveWorkbook.Unprotect 'breid uit indien gewenst
            Case Else
                MsgBox "Vul ofwel WAAR ofwel ONWAAR in.", vbCritical
        End Select
    End If
End Sub

Wigi

 

[Jamez]

HEt werkt super!

super bedankt:thumb:

Jamez