2.Paßwort für mehrere Arbeitsmappen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Function AdminPasswort() As String ' Diese Function dient der "Ablage" eines Passwortes, auf das von allen anderen Mappen zugegriffen ' werden kann wenn die Personl.xls geöffnet ist. AdminPasswort = "Admin" End Function Die OR Abfrage in den Mappen muss dann so ausehen. If TextBox1 = Application.Run("Personl.xls!AdminPasswort") Or TextBox1 = "Passwort" Then Gruß Heiko PS: Rückmeldung wäre nett !

Private Sub cmdOK_Click() Application.ScreenUpdating = False If txtPasswort.Text = "123" Then Sheets("Jänner").Visible = True Sheets("Hauptblatt").ComboBox1.Visible = True 'blendet Combobox ein Unload Me Else MsgBox "Sie haben ein falsches Passwort eingegeben, " _ & Chr(13) & "Versuchen Sie es nocheinmal !", vbExclamation, "Falsche Eingabe" txtPasswort.Text = "" txtPasswort.SetFocus End If Range("a1").Select End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) ' Damit mit X nicht geschlossen werden kann If CloseMode = 0 Then MsgBox "Bitte schließen Sie die Anwendung mit der -Abbrechen- Schaltfläche.", vbCritical, "Falsche Eingabe" Cancel = 1 End If End Sub

Hallo Heinz,
das ist ganz einfach, dann mußt du das halt nur so wie unten in allen fünf Mappen ergänzen.


Private Sub cmdOK_Click()
Application.ScreenUpdating = False
If txtPasswort.Text = "123" OR txtPasswort.Text = "456" Then
Sheets("Jänner").Visible = True
End Sub

Wenn dir das reicht ok, nur wenn du dann das Passwort für Admin, also "456", ändern willst mußt du wieder alle 5 Mappen anfassen. Und das halt jedes mal wenn das Passwort geändert wird.
Zur Personl.xls, das ist keine Installation die vom Admin gemacht werden muß. Das läßt EXCEL von jedem durchführen.
Wenn du das mit der Personl.xls trotzdem mal versuchen willst hier noch eine Erweiterung für die Abfrage in den 5 Mappen, da da ja die Personl.xls mit dem Admin Passwort nicht zwingend vorhanden ist. Dies ist ein Beispielcode, den du für dich dann noch anpassen mußt.


Private Sub CommandButton1_Click()
Dim booAdmin As Boolean
On Error Resume Next
Application.Run ("Personl.xls!AdminPasswort")
If Err.Number = 0 Then
booAdmin = True
Else
booAdmin = False
End If
On Error GoTo 0
If booAdmin = True Then
If TextBox1 = Application.Run("Personl.xls!AdminPasswort") Or TextBox1 = "Passwort" Then
MsgBox "Tabelle kann eingeblendet werden, mit AdminPasswort", vbInformation
Unload Me
End If
Else
If TextBox1 = "Passwort" Then
MsgBox "Tabelle kann eingeblendet werden, OHNE AdminPasswort", vbCritical
Unload Me
End If
End If
End Sub

Gruß Heiko

PS: Rückmeldung wäre nett !

Beliebteste Forumthreads (12 Monate)

2.Paßwort für mehrere Arbeitsmappen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2.Paßwort für mehrere Arbeitsmappen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread