wei kann ich in Excel eine ganze Mappe schützen ohne Passwort, so das der Benutzer das Inhalt sieht aber bearbeiten bleibt gesperrt.?
Danke
gruss
dark
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = SaveAsUI
End Sub
Private Sub Workbook_Open()
Select Case Environ("username")
Case "testuser" 'ist der Berechtigte
Case Else 'alle anderen
ThisWorkbook.ChangeFileAccess xlReadOnly
End Select
End Sub
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe