fout afvangen

[longron]

Beste allen ,

ik wil foutmeldingen afvangen.

met name als een cel beveiligd is.
Dan krijg je de melding dat de cel is beveiligd en die wil ik niet zien.

wie weet hoe dit te doen.

thanks,

Ronald

 

[VenA]

Het is geen foutmelding maar een melding. Haal het vlaggetje weg bij select locked cells

 

[snb]

Sub M_snb()
   sheet1.Unprotect
End Sub

 

[longron]

Hai Beide,

soms is het wat lastiger.

ik wil niet dat de blokkering wordt verwijderd en ik wil ook niet dat bij het blad de beveiliging wordt uitgeschakeld.

Thanks voor het meedenken.

 

[VenA]

Soms wordt het wat makkelijker als je een bestandje bijvoegt.

 

[longron]

klopt helemaal,

daarom hier een voorbeeld.

thanks..

Bekijk bijlage test.xlsm

 

[snb]

Zie

 

[longron]

Hai snb,

ik zie niet wat je hebt veranderd. behalve dat je mij routine hebt weggehaald.
is dit het juiste bestand?

krijg dezelfde melding???

 

[VenA]

Wat is het doel van deze vraag? Met een goed ontwerp van het blad heeft een gebruiker niets in de geblokkeerde cellen te zoeken. Het voorbeeldbestand is niets zeggend.

 

[edmoor]

In je document staat: "Als ik elders klik krijg ik de melding van een vergrendeld blad."
Ik kan klikken waar ik wil, maar er verschijnt geen enkele melding.
Alleen als ik dubbelklik, maar dat kan je uiteraard simpel afvangen met:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
End Sub

 

[snb]

Ik heb het geplaatste bestand vervangen.

 

[longron]

oooo,

oke. ik kan wel een andere bestand neerzetten maar dat heeft geen meerwaarde.

Waar het om gaat is dat ik een aantal cellen heb waarin gegevens mag worden ingevoerd..
als je op de andere cellen klikt krijg je de melding di eik niet wil zien.

als je een ander bestand wil zien moet ik die eerst strippen want daar zitten weer allerlei linken en koppelingen in.

 

[edmoor]

Ik heb het geplaatste bestand vervangen.

@snb:
Slimme oplossing in dat bestand

 

[longron]

Thanks.

yes. daar kom ik weer verder mee.

groet en fijne avond

 

[snb]

Dan kun je ook mijn eerste suggestie uitvoeren: sheet1.unprotect.

 

[longron]

Hai snb,

hoe moet ik jou script gebruiken?
tussen :
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

End Sub

is jou script niet om te ontgrendelen?

thanks voor je reactie.

 

[snb]

Kan ook met de hand.

 

[longron]

oke maar dat is toch om het bestand te ontgrendelen en dat wil ik niet