Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
24.08.2020 09:56:07 |
Armin Fischer |
|
|
|
24.08.2020 18:59:19 |
ralf_b |
|
|
|
25.08.2020 10:23:58 |
Gast32394 |
|
|
|
25.08.2020 18:10:18 |
ralf_b |
|
|
|
03.09.2020 11:10:42 |
Peter Zeschky |
|
|
Office 365 Excel - für bestimmte Nutzer Zeilen ausblenden |
03.09.2020 14:41:31 |
Peter Zeschky |
|
|
|
04.09.2020 10:33:01 |
Peter Zeschky |
|
|
Von:
Peter Zeschky |
Datum:
03.09.2020 14:41:31 |
Views:
748 |
Rating:
|
Antwort:
|
Thema:
Office 365 Excel - für bestimmte Nutzer Zeilen ausblenden |
Hallo Herr Fischer,
ich habe Ihnen einmal eine Excel gebastelt - siehe unten - der Reiter heisse "Schulnoten".
Die Abfrage der Passwords beginnt in Spalte "C" ab Zelle "C6". In Zelle "C50" muss "END" stehen.
Bitte das Password für BLATTSCHUTZ ändern und nicht vergessen, das Makro mit Paaword zu schützen - Code siehe unten - funktioniert gut.
Public Sub Auto_Open()
Dim Password As String
Dim Zeile As Integer
'Schritt 1: Aufruf des Password-Eingabefeldes
'Sheets("Schulnoten").Select
Password = InputBox("Bitte Password eingeben:")
'Schritt 2: Abfrage nach Schüler-Password
'Schritt 2.1: Der Bildschirmschoner wird aktiviert
Application.ScreenUpdating = False 'Bildschirmschoner "EIN"
'Schritt 2.3: Der Blattschutz wird aufgehoben
Sheets("Schulnoten").Unprotect "Blattschutz" 'Password für Blattschutz bitte ändern
'Schritt 2.3: Die Zeilen 6:50 werden eingeblendet
Rows("6:50").Select
Selection.EntireRow.Hidden = False
'Schritt 2.4: Die Spalte "C" wird ab Zeile 6 nach unten durchlaufen bis der Eintrag "END" kommt
'...und alle Zeilen werden ausgeblendet, welche nicht mit Password matchen
Zeile = 6
Do Until Cells(Zeile, 3).Text = "END" 'bis Eintrag "END" kommt
If Cells(Zeile, 3).Text = Password Then
Else
Cells(Zeile, 3).Select
Selection.EntireRow.Hidden = True 'Zeilen ausblenden
End If
Zeile = Zeile + 1
Loop
'Schritt 2.5 Der Blattschutz wird wieder eingerichtet
Sheets("Schulnoten").Protect "Blattschutz" 'Password für Blattschutz bitte ändern
'Schritt 2.6: Der Bildschirmschoner wird wieder deaktiviert
Application.ScreenUpdating = True 'Bildschirmschoner "AUS"
'Schritt 3: Abfrage nach Lehrer-Password
If Password = "Lehrer" Then
Sheets("Schulnoten").Unprotect "Blattschutz" 'Blattschutz aufheben
Rows("6:50").Select 'alle Zeilen auswählen
Selection.EntireRow.Hidden = False 'alle Zeilen einblenden
Range("D6").Select
Else
End If
End Sub
Public Sub Auto_Close()
'Schritt 1: Das Blendet die Zeilen 6:50 aus
Sheets("Schulnoten").Unprotect "Blattschutz" 'Blattschutz aufheben
Sheets("Schulnoten").Select
Rows("6:50").Select
Selection.EntireRow.Hidden = True
'Schritt 2: Das Makro richtet den Blattschutz wieder ein
Sheets("Schulnoten").Protect "Blattschutz"
'Schritt 3: Speichern der Datei vor dem Schliessen
ActiveWorkbook.Save
End Sub
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
|
24.08.2020 09:56:07 |
Armin Fischer |
|
|
|
24.08.2020 18:59:19 |
ralf_b |
|
|
|
25.08.2020 10:23:58 |
Gast32394 |
|
|
|
25.08.2020 18:10:18 |
ralf_b |
|
|
|
03.09.2020 11:10:42 |
Peter Zeschky |
|
|
Office 365 Excel - für bestimmte Nutzer Zeilen ausblenden |
03.09.2020 14:41:31 |
Peter Zeschky |
|
|
|
04.09.2020 10:33:01 |
Peter Zeschky |
|
|