Blattschutz
24.02.2020 15:07:36
Simone
ich habe diesen Code und er funktioniert super:
Private Sub Workbook_Open()
Dim loLetzte As Long
Dim loLetzte2 As Long
With Worksheets("Tabelle1")
loLetzte = .Cells(.Rows.Count, "A").End(xlUp).Row
loLetzte2 = .Cells(.Rows.Count, "B").End(xlUp).Row
If loLetzte Jetzt will ich gerne wenn diese Datei im schreibgeschützen Modus ist, das in Tabellenblatt Mitarbeiter und im Tabellenblatt Daten ein Blattschutz entsteht ohne Passwort.
Dankeschön und hoffe ihr könnt mir helfen.
Simone
Kann man das machen ?