wat aan macro aanpassen om opmerking te kunnen toevoegen in een cel

[davylenders123]

Ik heb een code(macro) en die vergrendeld de tabbladen met een wachtwoord als je de macro aktiveerd.

Sub vergrendelen()
For Each Sh In Sheets
If Sh.[A4] + 34 > Date Then
Sh.Protect "1302"
Else
Sh.Protect "1230"
End If
Next
End Sub

Als ik bij blad beveiligen een vinkje zet bij objecte bewerken dan zouden we normaal een opmerking moeten kunnen toevoegen aan een bepaald cel door rechts te klikken en dan opmerking invoegen te kiezen.
Dit gaat ook als ik via blad beveiligen het wachtwoord op het tabblad zet , maar niet als ik via de macro de tab bladen beveilig met een wachtwoord.

Wat moet er aan de code worden aangepast dat we wel opmerkingen kunnen toevoegen als de tab bladen zijn beveilig via de macro?

 

[Warme bakkertje]

Sub vergrendelen()
For Each Sh In Sheets
If Sh.[A4] + 34 > Date Then
Sh.Protect "1302", False
Else
Sh.Protect "1230", False
End If
Next
End Sub

 

[davylenders123]

Rudi,

Bedankt :thumb:
Dit was hem .
Weer simpel eigenlijk maar je moet het maar weten he.
Top :thumb::thumb:

Weet je mischien ook hoe ik deze code moet aanpassen voor hetzelfde resultaat.
Deze komt uit een ander bestand.

Sub vergrendelen()

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

Had geprobeerd met het woord False toe te voegen achter 1230 maar niet dus

 

[davylenders123]

Rudi of iemand anders de oplossing ??

 

[Warme bakkertje]

Haal die On Error er eens uit zodat je kan zien waar het misloopt, want normaal gezien zou dit geen problemen mogen geven.

 

[davylenders123]

Rudi,

Bedankt voor je reactie :thumb:
Ik heb "On Error Resume Next" eens weg gedaan maar dan werkt het nog niet.
Als je vergrendeld kan je nog steeds geen opmerking toevoegen.

Heb ook eens alleen "On Error " weggelaten en dan loopt de macro vast op "Resume Next"



Heb een vb bestandje toegevoegd.
Misschien vind je zo mijn fout ?

Dit is maar voor 2 maand maar het origineel is voor 12 maand met nog 1 extra tabblad.

De code staat in module 2 en noemt vergrendelen .

Bekijk bijlage gegevens sorteerband 20111.rar

 

[Warme bakkertje]

Heb je al eens geprobeerd om bij alle bladen de beveiliging te verwijderen en daarna terug te vergrendelen met de False erachter ? Op mijn PC (XL2007) geeft deze code geen probleem en worden al je werkbladen beveiligd,maar kan toch een opmerking ingevoegd worden.

 

[davylenders123]

Rudi,

Dat had ik nog niet geprobeerd.

Heb het zo gedaan nu en dan werkt het wel.

Maar nu is er een andere probleempje.

Als je de macro vergrendel gebruikt , vergrendeld hij alles correct.
Maar als je dan terug de macro vergrendel gebruikt , dan ontgrendeld hij terug alles zonder paswoord te vragen.

Ik heb volgende code gebruikt

Sub vergrendelen()

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

 

[davylenders123]

Rudi,

weet je mischien een oplossing voor het probleem van mijn berichtje hierboven ?

 

[Warme bakkertje]

Ik heb het ook getest en idd., maar ik heb er niet onmiddelijk een verklaring voor.
Het lijkt wat onorthodox, maar op deze manier doet hij het elke keer wel juist.

Sub vergrendelen()
On Error Resume Next
    For Each Sh In Sheets
        Sh.Unprotect "1230"
        Sh.Protect "1230", False
    Next
End Sub

 

[davylenders123]

Rudi,

B E D A N K T :thumb:

dit is hem inderdaad.:thumb:

Weer een probleempje opgelost dank zij u