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
Wenn die Datei geöffnet wird speichert es den Namen und Datum. Wenn die Datei schon vom anderen MA geöffnet ist kommt dieser Debuggen fehler.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 ?