beveiliging 's macro aanpassen voor exel

[davylenders123]

Heb in een exel file een macro staan die alle tab bladen beveiligd met een wachtwoord(vergrendelen)
Deze macro beveiligd alles .
Maar de celeigenschappen en sorteren zou wel moggelijk moeten zijn .
Hoe moet die macro dan worden aangespast.

Sub vergrendelen()

On Error Resume Next
For Each Sh In Sheets
Sh.Protect "1230"
Next
End Sub



vb bestand

Bekijk bijlage sorteer planning1.zip

 

[wampier]

Je hoeft alleen maar de juiste params mee te geven aan protect:

http://msdn.microsoft.com/en-us/library/microsoft.office.tools.excel.worksheet.protect(VS.80).aspx

 

[davylenders123]

Je hoeft alleen maar de juiste params mee te geven aan protect:

http://msdn.microsoft.com/en-us/library/microsoft.office.tools.excel.worksheet.protect(VS.80).aspx

Sorry maar ben helemaal niet zo goed in het engels en ook niet in vb kan er iemand de code aanvullen voor mij aub.

 

[oeldere]

vertalen engels naar nederlands (google)

google heeft in de taakbalk een knop met vertalen (van b.v. nederlands naar engels)

 

[Warme bakkertje]

In de Helpfiles van je VB-Editor vind je de volledige uitleg in het nederlands

Sub vergrendelen()
On Error Resume Next
For Each Sh In Sheets
Sh.Protect Password:="1230", AllowFormattingCells:=True, AllowSorting:=True
Next
End Sub

 

[davylenders123]

In de Helpfiles van je VB-Editor vind je de volledige uitleg in het nederlands

Sub vergrendelen()
On Error Resume Next
For Each Sh In Sheets
Sh.Protect Password:="1230", AllowFormattingCells:=True, AllowSorting:=True
Next
End Sub

Bedankt voor de code :thumb:

 

[davylenders123]

In de Helpfiles van je VB-Editor vind je de volledige uitleg in het nederlands

Sub vergrendelen()
On Error Resume Next
For Each Sh In Sheets
Sh.Protect Password:="1230", AllowFormattingCells:=True, AllowSorting:=True
Next
End Sub

Heb de code geplakt in this workbook en op het eerste gezicht werkt het wel maar blijkbaar als je een stuk wil sorteren dan krijg je de volgende melding

"de cel of grafiek die u wilt wijzigen is beveiligd en heeft het kenmerk alleen lezen"

Het gaat over het tab blad laadlijst toks
De cellen die liggen tussen I 6 tot I 31 TOT N 6 tot N 31
Waarvan kolom j en kolom m is beveilig met een paswoord.

Deze zou je moeten kunnen sorteren .

Dit is een exel file waar bepaalde cellen niet mogen worden aangepast en andere wel en op die cellen die niet mogen worden aangepast zit een wachtwoord als je de macro vergrendelen uitvoert.

Iemand een oplossing

 

[Warme bakkertje]

Als je de Helpfile in VBE had geraadpleegd had je dit gevonden

AllowSorting Variant, optioneel. Indien True kan de gebruiker het beveiligde werkblad sorteren. Er mogen geen vergrendelde of beveiligde cellen in het sorteerbereik aanwezig zijn. De standaardwaarde is False.

Je zal dus voor het sorteren een macro moeten maken die eerst het werkblad ontgrendelt, dan sorteert en daarna je werkblad terug vergrendelt.

 

[davylenders123]

Als je de Helpfile in VBE had geraadpleegd had je dit gevonden

Je zal dus voor het sorteren een macro moeten maken die eerst het werkblad ontgrendelt, dan sorteert en daarna je werkblad terug vergrendelt.

Had al een paar keer in help aan het zoeken geweest maar lukte niet zo goed .
Zal er in het vervolg eerst is in gaan kijken of ik het daar vind

B E D A N K T