AW: makro mit kennwort starten
22.09.2003 21:51:33
Hajo_Zi
Hallo Erich
mal als Ansatz. Eine Userform mit einer Textbox und ein CommandButton,.
Option Explicit
' erstellt von Hajo.Ziplies@web.de
' http://home.media-n.de/ziplies/
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
' Damit mit X nicht geschloßen werden kann
If CloseMode = 0 Then
MsgBox "Bitte schließen Sie die Anwendung mit der -Ende- Schaltfläche.", vbCritical
Cancel = 1
End If
End Sub
Private Sub UserForm_Initialize()
TXT_Paßwort.SetFocus
End Sub
Private Sub CMD_OK_Click()
If TXT_Paßwort <> "Test" Then
MsgBox "Das Paßwort war falsch!!!", vbOKOnly + vbInformation, "Paßwortabfrage"
Unload Paßwort_Eingabe
' ThisWorkbook.Close False
End If
Sheets("Tabelle2").Visible = True
Unload Paßwort_Eingabe
' zweite UserForm aufrufen
' oder entsprechende Aktivitäten
' Auswahl.Show
End Sub
Private Sub CmMD_Ende_Click()
CMD_OK_Click
End Sub
Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Zurzeit gibt es wieder Probleme mit der E-Mail Benachrichtigung.
Ich bekomme Mails zu Beiträgen an denen ich nicht beteiligt bin und zusätzlich noch Mails zu meinen eigenen Beiträgen.
Das Problem mit den eigenen Benachrichtigung kann gelöst werden durch Lösche und Neuanmelden. Dieses möchte ich aber nicht jeden Tag machen.
Um dieses Problem erstmal zu beseitigen habe ich die automatische Mailbenachrichtigung abgeschaltet.
Aus diesem Grunde ist es dem Zufall überlassen ob auf Rückfragen Antworten von mir kommen.
http://home.media-n.de/ziplies/