Macro beveiligen specifiek cell

[ozzyozzy]

Beste Leden,

Ik heb de volgende fout 400 melding tijdens running. Weet iemand waar het aan ligt?
korte uitleg wat het inhoud.
1 cel dient aan de hand van de macro beveiligd te worden en weer eraf.
de onderstaande code zit in ''thisworkbook''

Sub Beveiligen4()

    Const PWORD As String = "wachtwoord2"
    Dim response As String
    Dim msg As String
    msg = "Voer wachtwoord in:"
    
    While response <> PWORD
        response = Application.InputBox(Prompt:=msg, Title:="Password", Type:=2)
        Select Case response
            Case CStr(False)
                Exit Sub 'Cancelled
            Case Else
                msg = "Incorrect!" & vbNewLine & "Voer opnieuw wachtwoord in:"
        End Select
    Wend

'Voer code in 
Call cellbladenbeveiligen

End Sub

Sub cellbladenbeveiligen()  'Vanaf HIER GAAT er IETS MIS ?
  Dim blad As Worksheet
For Each blad In ActiveWorkbook.Sheets
    
    ActiveSheet.Unprotect "wachtwoord"
    
    If Range("FI2").Value <> "" Then
        Range("FI2").Locked = True
    Else
    
    ActiveSheet.Protect "wachtwoord"
    End If
    Next blad

End Sub

 

[loek010]

ik denk dat dit de fout veroorzaakt :

If Range("FI2").Value [COLOR="#FF0000"]=[/COLOR]  "" Then

 

[ozzyozzy]

loek010 helaas ik krijg nog steeds dezelfde foutmelding! error 400

 

[VenA]

ActiveSheet heeft een ander wachtwoord dan "wachtwoord". Daarnaast moet het ook blad zijn anders heeft de lus weinig zin.

 

[edmoor]

Naast dat het qua leesbaarheid nogal vreemd geschreven is doe je ook dit:
For Each blad In ActiveWorkbook.Sheets

En vervolgens verwijs je in de loop telkens naar de ActiveSheet in plaats van Blad en geef je aan de Range niet eens het blad mee.