protect en unpprotect van ranges

[marccram]

In bijlage een excell sheet :

De sheet is beveiligd met een password ( = a - de letter a )

Volgende zones zijn niet beveiligd :
* E4 = unprotected
* B9:O39 = unprotected ( om de copy te kunnen doen )
* B60:O89 = unprotected


In B60:O89 staan gegevens via formules,
Ik copier deze met een makro naar B9:O39 ( enkel de waardes )
( via de VBA code "incontloadnewweek" )

Ik wil ook nog de range B9:O39 kunnen sorteren ( dus eerst de copy van values doen van B60:O89 naar B9:O39
en dan sorteren van B9:O39 ( de sort instructie in VBA heb ik al, en die werkt, maar dat mag er geen beveiliging op staan )
( ik heb het sorteren getest door het werkblad niet te beveiligen )

Dus hoe kan dit opgelost worden ?


Na het sorteren moet enkel I10:I39 wijzigbaar zijn door de gebruiker ( en indien mogelijk de range I10:I29 omdat hier enkel de getallen staan )
Geen idee hoe dit moet.

Heeft iemand een oplossing ? Idieen ?

 

[gast0660]

Beveilig de cellen die je wilt beveiligd hebben.
En test volgende:

Sub Uw macro()
Sheets ("Blad naar keuze").Unprotect Password:="a"
'Uw code
Sheets ("Blad naar keuze").Protect Password:="a"
End Sub