jedes Datenblatt einzeln mit Kennwort versehen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub blättersperre() Dim pw As Variant Dim sh As Worksheet pw = Array("A", "B", "C", "C", "D", "B", "A", "B", "A", "B", "A", "B") If UBound(pw) ActiveWorkbook.Sheets.Count Then MsgBox "zu wenig Passwörter vorgegeben", vbCritical: Exit Sub For Each sh In ActiveWorkbook.Sheets Sheets(sh.Index).Protect pw(sh.Index) Debug.Print "Tab """ & Sheets(sh.Index).Name & """ geschützt mit pw """ & pw(sh.Index); """" Next sh MsgBox "PW nachzulesen im Direktbereich, STRG+G im VBA-Editor" End Sub

Hallo Schauan!

Du hast recht, hab ich falsch verstanden. Am Thema vorbeiprogrammiert.
Aber dann erwarte ich von weiteren Teilnehmern im Thema, dass sie was Besseres abliefern und nicht nur schlau daherreden.
Von Onur kenn ich, dass er weiß was er tut, aber leider ist er oft sparsam im Text und bissig in den Ausführungen.

Dein Konzept kann ich nachvollziehen, aber der Fragesteller wohl kaum.

Also:
Weniger sülzen, mehr coden!

Workbook_Open
Makroaufruf --> Prüfen des Anwenders, Sichtbarmachung und ggf. Aktivierung des Anwenderblattes

Abfrage des Zugangsschlüssels

Sub blättersperre_eingabe()



    Dim sh As Long

    Dim nam As String

    

    For sh = 2 To ActiveWorkbook.Sheets.Count

        Sheets(sh).Visible = 2 'versteckt, nicht einzublenden

    Next sh

    

    nam = Application.InputBox("Wer bist du?", "Namen eingeben")

    

    Select Case nam

    

        Case "Adam": Sheets(2).Visible = -1

        Case "Berta": Sheets(3).Visible = -1

        Case "Cäesar": Sheets(4).Visible = -1

        Case Else: MsgBox "kein Zugriff"

        

    End Select

End Sub

ohne Abfrage aufgrund des benutzen Windowsaccounts (manipulierbar in excel-optionen/Benutzername)

Sub blättersperre()



    Dim sh As Long

    Dim nam As String



    For sh = 2 To ActiveWorkbook.Sheets.Count

        Sheets(sh).Visible = 2 'versteckt, nicht einzublenden

    Next sh

    

    nam = Application.UserName

    nam = "Berta" 'Beispiel

    

    Select Case nam

    

        Case "Adam": Sheets(2).Visible = -1

        Case "Berta": Sheets(3).Visible = -1

        Case "Cäesar": Sheets(4).Visible = -1

        Case Else: MsgBox "kein Zugriff"

        

    End Select

End Sub

Dazu gehört aber auch das Verhindern von VBA-Zugriff etc, alles andere ist für Fachleute schnell überwunden.

Gruß, MCO

Hallo MCO,

1)
ich schaue auch ganz gerne, ob dem TE mein Konzept gefällt oder frage, ob ich sein Anliegen richtig verstanden habe, und programmiere erst nach positiver Antwort.
2)
Zuweilen fragen die Leute nicht nur in einem Forum.

Da hat man schnell mal für die Tonne gearbeitet, und das mag ich nun wieder nicht :-(

@All

Nun hab ich mal eine Beispieldatei erstellt. Den username hole ich aus den Anmeldedaten und die Zuordnung geschieht im Beispiel über ein Userblatt gleichen Namens. Ansonsten, wie gesagt, könnte man das über eine Liste in der Datei machen.
Zusätzlich wird die Mappe geschützt, damit man die Blätter nicht über den VBA-Editor einblenden kann.
Selbiger ist hier nicht geschützt, müsste man aber machen, da das Kennwort im Code steht.
Natürlich alles mit der Einschränkung, dass der Schutz ggf. nur arbeitsrechtlich relevant ist und keine sonstige Sicherheit bietet.

Im Code steht auch noch ein Hinweis zur Variable für den Username - sollte man funktionssicherheitshalber auch anders lösen :-)

https://www.herber.de/bbs/user/166915.xlsm

Beliebteste Forumthreads (12 Monate)

jedes Datenblatt einzeln mit Kennwort versehen

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

jedes Datenblatt einzeln mit Kennwort versehen

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread