möchte in einer Tabelle zur Information alle geschützten Zellen markieren und
ev. auch ein bestimmtes Format zuweisen. Das geht doch bestimmt mit Makro, oder?
Grüße Harry
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