Zellen mit Inhalt automatisch beim Öffnen schützen
mlipu
ileider kenne ich mich mit VBA zu wenig aus, habe mir das Makro im Anhang zusammengebastelt aus verschiedene Forumeinträgen, es funktioniert zwar, aber am Anfang braucht die Datei sehr lange.
Ich möchte gerne, das beim Öffnen, alle Zellen mit Inhalt, in allen Tabellenblättern geschützt werden.
Hier ist der Code:
Private Sub Workbook_Open()
Zellen_sperren
End Sub
und
Public Zeitspanne As Variant
Sub Zellen_sperren()
Dim Bereich As Range
For Each Bereich In Sheets(1).UsedRange.Cells
If WorksheetFunction.CountA(Bereich) 0 Then
Sheets(1).Unprotect "PASSWORT"
Bereich.Locked = True
Sheets(1).Protect "PASSWORT"
End If
Next
For Each Bereich In Sheets(2).UsedRange.Cells
If WorksheetFunction.CountA(Bereich) 0 Then
Sheets(2).Unprotect "PASSWORT"
Bereich.Locked = True
Sheets(2).Protect "PASSWORT"
End If
Next
For Each Bereich In Sheets(3).UsedRange.Cells
If WorksheetFunction.CountA(Bereich) 0 Then
Sheets(3).Unprotect "PASSWORT"
Bereich.Locked = True
Sheets(3).Protect "PASSWORT"
End If
Next
End Sub
Hier ist auch der link zu der Testdatei von mir.
Ich hoffe mir kann jemand weiterhelfen und dass Ganze etwas vereinfachen, es geht darum, das die Datei am Anfang nicht so rumflimmert
Danke im Voraus,
Mark
Anzeige