Eine UF für mehrere Makros
Heinz
Ich rufe mit einer Autoform37 eine UF zur Paßworteingabe auf.
Der mir dann mit dem richtigen PW das Makro "Neuer_Schichtplan" aufruft.
Private Sub CMD_OK_Click()
Dim Paßwort As String
If TXT_Paßwort "test" Then
MsgBox "Das Paßwort war leider falsch!", vbOKOnly + vbInformation, "Paßwortabfrage"
End
Exit Sub
End If
Paßwort = TXT_Paßwort
Paßwort_Eingabe3.Hide
Call Neuer_Schichtplan
End
End Sub
Das mir dann das Makro "Public Sub Mitarbeiter_Loeschen()" aufruft.
Sinn der Sache ist es das ich nicht für jedes Makro eine UF für das PW brauche.
Hätte dazu bitte jemand eine Lösung.
Gruß
Heinz
Anzeige