Hejsan.

Jag undrar hur man får reda på om det aktiva bladet är låst (skyddat).
Jag har en VBA-snutt som gör lite omstuvningar i bladet och det blir inte så bra om bladet är låst.
Tills vidare låter jag felhanteringen sköta det hela genom att kolla efter err.number och
sedan vidta åtgärder.
Men det finns ju smartare och framför allt säkrare sätt.

/Per-Åke
(Snart helg, puh!)

Hej,

Här får du ett exempel på hur du kan göra:

<code>
Sub Skydd_Arbetsblad()
If ActiveSheet.ProtectContents = False Then Exit Sub
If ActiveSheet.ProtectContents = False And Selection.Locked = False Then
Else
End If
If ActiveSheet.ProtectContents = True And Selection.Locked = False Then
Else
MsgBox "Det aktiva arbetsbladet är skyddat." & Chr(13) & "Ta bort bladskyddet och försök igen.", vbCritical, "Listhanteraren"
End
End If
End Sub
</code>

Mvh och trevlig helg,
XL-Dennis

Tjena.

Fint tips.
Testade lite olika vinklingar av lösningen och den blev kanon.
Det är så lyckligt att den här prylen skyddas utan password så det gick fint att kolla skyddet, ev. låsa upp och när allt är klart så slår man på skyddet igen efter sig (om det nu var på från början).
Det blev *skitsnyggt*.

Tackar för tipset, du är en klippa.

Trevlig helg
/Per-Åke

Hej Dennis!

Chr(13) fungerar bra men varför inte föreslå vbCrLf som är det mer direkta och tydligare sättet att skriva.

mvh
/Michael