Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1188to1192
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

User + Blattschutz

User + Blattschutz
amintire
Hallo alle zusammen,
benötige soetwas ähnliches wie Beispieldatei, nur das wenn Passwort eingegeben wird, nicht eine Tabelle eingeblendet sondern in allen Tabellen Blattschutz entfernt ist.
Wenn Passwort für eingeschränkte User eingegeben wird, soll in jeder Tabelle ein Blattschutz aktiviert sein.
Kann mir jemand helfen den Code umzubauen?
Vielen Dank.
https://www.herber.de/bbs/user/72552.xls
Lieben Gruß
Amina

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: User + Blattschutz
02.12.2010 09:53:09
mumpel
Hallo!
Nimm das folgende Makro.
Gruß, René
AW: User + Blattschutz
02.12.2010 10:56:15
amintire
Hallo René,
danke für deine Hilfe, geht es auch dass wenn ich die Mappe schließe sich automatisch wieder Blattschutz aktiviert. Weil wenn Blattschutz mal vergessen wird, sollte trotzdem immer wenn die Mappe geöffnet wird das Blattschutz aktiviert sein und bei Passwort eingabe deaktiviert.
Vielen Dank.
Gruß Amina
AW: User + Blattschutz
02.12.2010 22:54:49
Gerold
Hallo Amina
Schreibe folgenden Code in "Diese Arbeitsmappe"
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Blatt As Worksheet
For Each Blatt In ThisWorkbook.Worksheets
Blatt.Protect Password:="DeinKennwort"
Next Blatt
End Sub
Aber bitte, gewöhne dir den Goto Befehl ab.
In Tabelle1  (Menue)
Private Sub CommandButton1_Click()
Nur bei - On Error goto - benutzen
Mach es zum Beispiel so
If Frage = PW1 Or Frage = PW2 Or Frage = PW3 Then
If Frage = PW1 Then MsgBox "Hallo " & U1 & " Zugriff erlaubt.": Worksheets(U1).Visible = True
If Frage = PW2 Then MsgBox "Hallo " & U2 & " Zugriff erlaubt.": Worksheets(U2).Visible = True
If Frage = PW3 Then MsgBox "Hallo " & U3 & " Zugriff erlaubt.": Worksheets(U3).Visible = True
Else
MsgBox "kein Zugriff"
End If
Mfg Gerold
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige