Macro werkt niet na beveiligen blad

[lindaH1979]

Hallo,

Ik heb een document gemaakt met meerdere bestelbonnen op meerdere tabbladen.
Om te voorkomen dat men alleen de cellen invult die men mag invullen wil ik het blad beveiligen.
Alleen als ik dit doe werk de macro niet meer....



Bekijk bijlage Map3.xlsm

Ik hoop dat iemand een oplossing heeft...

 

[Cobbe]

Om te voorkomen dat men alleen de cellen invult die men mag invullen

Als je wil voorkomen dat alleen de cellen invult die men mag invullen moet je de beveiliging er juist afhalen mijns inziens.

Anders moet je in je macrocode de Protect en Unprotect van het werkblad opnemen.

 

[lindaH1979]

Beste Cobbe,

Ik heb inderdaad van de cellen die bewerkt mogen worden de beveiliging verwijderd, de rest is niet te bewerken.
Ik ben helaas niet thuis in het schrijven van macro's dus 'het opnemen van macrocode Protect en Unprotect van het werkblad' gaat mij helaas niet lukken...
Kun je me verder helpen?

Gr Linda

 

[Cobbe]

Zet deze code in ThisWorkbook, wel het paswoord aanpassen:

Private Sub Workbook_Open()
For I = 1 To Sheets.Count
  With Sheets(I)
    .Protect Password:=1234, UserInterfaceOnly:=True
  End With
Next
End Sub

 

[lindaH1979]

Werkt nog niet...

 

[Cobbe]

Misschien nog vermeldenswaard: Je moet het bestand eerst opslaan en opnieuw openen vooraleer een en ander werkt.

 

[lindaH1979]

Als ik hem nu open vraagt hij om de bladbeveiliging te verwijderen. Maar dat wil ik juist niet dus doe ik annuleren, de macro doet het dan niet...
Ik denk dat ik hem gewoon onbeveiligd houd. Moet iedereen maar opletten!!

 

[Cobbe]

Test deze dan eens:

 

[lindaH1979]

Ik heb nog een hoop te leren... Nou weet ik nog niet hoe en waar je dit hebt gedaan...
Nou heeft mijn bestand 150 tabbladen.... Kan het ergsn in het bestand worden aangepast dat dit voor alle bladen dan wel werkt?

 

[Cobbe]

Wellicht werkt het zo wel:

 

[lindaH1979]

Ik ga er verder mee sleutelen!!
Bedankt voor de hulp!!