alternativer Vorschlag ohne Select ...
24.07.2009 23:50:32
Matthias
Hallo Harry
Wenn Dir auch eine Meldung über die Zelladressen der geschützten Zellen ausreicht, kannst Du
bei einem relativ kleinem UsedRange in der Tabelle, folgenden Code probieren:
Option Explicit
Sub hary()
Dim rng As Range
Dim STRG As String
STRG = "geschützte Zellen sind:" & vbLf
For Each rng In ActiveSheet.UsedRange
If rng.Locked = True Then
STRG = STRG & vbLf & rng.Address(0, 0)
End If
Next
MsgBox STRG
End Sub
oder Zelle mit Inhalsanzeige:
Option Explicit
Sub hary()
Dim rng As Range
Dim STRG As String
STRG = "geschützte Zellen sind:" & vbLf
For Each rng In ActiveSheet.UsedRange
If rng.Locked = True Then
STRG = STRG & vbLf & rng.Address(0, 0) & " - Zellwert = " & rng.Value
End If
Next
MsgBox STRG
End Sub
https://www.herber.de/bbs/user/63422.xls
Gruß Matthias