Thema Datum  Von Nutzer Rating
Antwort
05.06.2020 16:25:13 Lukas
NotSolved
Blau Ein- und Ausblenden von Blättern und Zeilen je nach Benutzername
 08.06.2020 19:26:30 AlterDresdner
NotSolved

Ansicht des Beitrags:
Von:
AlterDresdner		 Datum:
08.06.2020 19:26:30		 Views:
757		 Rating:
     
Antwort:
  Ja
Thema:
Ein- und Ausblenden von Blättern und Zeilen je nach Benutzername

Hallo Lukas,

in Diese Arbeistmappe folgenden code einfügen und anpassen:

Private Sub Workbook_Open()
  Select Case Mid(Environ(41), 10)
  Case "Martin", "Hansmueller", "xyz"
    Sheets("Zusammenfassung").Protect
    Sheets("Platz1").Visible = xlVeryHidden
    Sheets("Platz2").Visible = xlVeryHidden
    With Sheets("Platz3")
      .Range("13:32").EntireRow.Hidden = True
      .Protect
      .Activate
    End With
  Case "admin", "weißalles" 'nichts zu tun
  Case Else
    MsgBox "Sie haben kein Zugriffsrecht auf diese Datei."
    ThisWorkbook.Close
  End Select
End Sub

Gruß der AlteDresdner
 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
05.06.2020 16:25:13 Lukas
NotSolved
Blau Ein- und Ausblenden von Blättern und Zeilen je nach Benutzername
 08.06.2020 19:26:30 AlterDresdner
NotSolved