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

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen