Beveiliging probleem

[zanfa11]

Beste,

In dit bestand Bekijk bijlage ZaterdagenBeveiliging.xlsm heb ik een aantal cellen beveiligd en daardoor krijg ik een fout melding bij het invullen van cel B2, zie bijlage:Bekijk bijlage TestZaterdagen.xlsx.

Het paswoord is "TEST".

BESTAND ZONDER BEVEILIGING: Bekijk bijlage Zaterdagen (32).xlsm

Alvast bedankt

Zanfa

 

[Timshel]

Beveilig het werkblad programmatisch met deze routine in de ThisWorkbook-module:

Private Sub Workbook_Open()
    Sheets("Blad1").Protect Password:="TEST", DrawingObjects:=True, Contents:=True, Scenarios:=True, [COLOR="#FF0000"]UserInterfaceOnly:=True[/COLOR]
End Sub

 

[Cobbe]

Je moet natuurlijk ook wel cel B2 ontgrendelen vóór de beveiliging.

 

[zanfa11]

Beste Experts,

Hartelijk dank!!. Het probleem is opgelost. De code werkt perfect.
Nu zit ik met een probleempje: als cel B2 verkeerd ingevuld is krijg ik een foutmelding en de code werkt niet meer. Zou het mogelijk zijn om een bericht te laten verschijnen (bv: vul het jaar in) bij het verkeerd invullen van B2.

Dank bij voorbaat

Zanfa

 

[Cobbe]

Met een validatie kan je B2 niet verkeerd invullen.

 

[zanfa11]

Hey Cobbe,

Super. Daar had ik echt niet aan gedacht. :thumb:.

Nogmaals veel dank aan Timshel en Cobbe.

Met vriendelijke groet,

Zanfa