Guten Morgen,
Mein Makro soll beim öffnen einer Datei feststellen, ob die Datei schreibgeschützt.
Wenn ja, dann mach nichts.
Wenn nein, lies den User aus und schreibe den Wert in eine Zelle.
Weder mit "workbook_activate()" noch mit "workbook_open" erkennt das Makro jedoch, daß die Datei schreibgeschützt ist. Es wird grundsätzlich der ausgelesene User in die Zelle eingetragen
Anbei der Code:
Private Sub workbook_activate()
Dim user
user = Application.UserName
If ActiveWorkbook.ReadOnly = True Then
GoTo ende
End If
Sheets("Tabelle1").Cells(3, 2) = user
ende:
End Sub
Wer kann mir mal auf die Sprünge helfen?
Danke
Vossy