Cellen blokkeren en deblokkeren na actie

Status
Niet open voor verdere reacties.
R

Robert Smidt

Gebruiker
Lid geworden
26 mei 2009
Berichten
901
Beste Helpmij'ers,

Onderstaande code geeft de volgende melding bij "Range("NaamBank").Locked = False" nl.: Fout 1004 tijdens uitvoering - Eigenschap locked van klasse range kan niet worden ingesteld.

Code: 
If Range("NaamBank").Locked = True Then
        Range("NaamBank").Locked = True
    Else
        Range("NaamBank").Locked = False
    ActiveSheet.Protect
End If

Naambank is één cel en geen samengestelde cellen.

Alvast bedankt voor de reactie.

Robert
 
Als je inderdaad een benoemde cel NaamBank hebt is dit voldoende:
Range("NaamBank").Locked = Not Range("NaamBank").Locked
 
Haal eerst de beveiliging eraf.
Je kan het niet wijzigen in een beveiligd blad.

Ps,
De code doet ook niets.

dit staat er in de code:
Als de cel is geblokkeerd? → blokkeer het
anders niet.
 
Laatst bewerkt:
Heel hartelijk dank voor jullie antwoorden. Ik heb de beveiliging er af gehaald, want dat stonde de code in de weg. Het probleem is nu opgelost en dankzij Ed ook nog een keer een eenvoudiger code aan toegevoegd.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan