Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
472to476
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
472to476
472to476
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VBA-Problem

VBA-Problem
21.08.2004 17:38:56
Anja
Hallo,
hab vor einiger Zeit eine Beispielmappe im Archiv gefunden,
die sich über eine UserForm mit Passwortabfrage öffnen lässt.
Funktioniert auch bestens, bis ich festgestellt habe, das man
auch ohne Passwort einfach durch Bestätigung der OK-Taste
oder klicken von X, diese Mappe öffnen kann.
Das Problem mit „X“ konnte ich schon lösen, aber die Ok-Taste
krieg ich einfach nicht hin, zumal ich VBA-Neuling bin.
Kann mir bitte jemand helfen?
Gruß
Anja
XXXXXXXXXXXXXXXXXXXXXXXXX
UserForm
XXXXXXXXXXXXXXXXXXXXXXXXX

Private Sub CommandButton1_Click()
UName = TextBox1.Text
PWort = TextBox2.Text
Set XFind = Sheets("PW").Columns(1).Find(UName)
If Not XFind Is Nothing Then
If Sheets("PW").Cells(XFind.Row, 2) = PWort Then
Unload Me
Exit Sub
Else
MsgBox "Falsches Passwort"
ThisWorkbook.Close savechanges:=False
End If
Else
MsgBox "Falscher User-Name"
ThisWorkbook.Close savechanges:=False
End If
Unload Me
End Sub


Private Sub CommandButton2_Click()
ThisWorkbook.Close savechanges:=False
Unload Me
End Sub

XXXXXXXXXXXXXXXXXXXXXXXXXXX
Modul
XXXXXXXXXXXXXXXXXXXXXXXXXXX
Option Explicit
Public wks As Worksheet
Public PWort, UName As String
Sub Auto_open()
Application.Visible = False
Application.VBE.MainWindow.Visible = False
Passwort.Show
Application.ScreenUpdating = False
For Each wks In ActiveWorkbook.Sheets
If wks.Name "PW" Then
wks.Visible = True
Else
wks.Visible = xlVeryHidden
End If
Next
Worksheets("Start").Visible = xlVeryHidden
Application.Visible = True
End Sub
Sub Auto_close()
Application.ScreenUpdating = False
Worksheets("Start").Visible = True
For Each wks In ActiveWorkbook.Sheets
If wks.Name "Start" Then
wks.Visible = xlVeryHidden
End If
Next
Application.Visible = True
ActiveWorkbook.Save
If Workbooks.Count = 1 Then Application.Quit Else ThisWorkbook.Close
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA-Problem
HerbertH
probiere es so:


Private Sub CommandButton1_Click()
Dim uname As String, PWort As String
 Dim XFind As Variant
uname = TextBox1.Text
PWort = TextBox2.Text
Set XFind = Sheets("PW").Columns(1).Find(uname)
If Not XFind Is Nothing And uname <> "" Then
    If Sheets("PW").Cells(XFind.Row, 2) = PWort Then
        Unload Me
        
Exit Sub
    Else
        MsgBox "Falsches Passwort"
        ThisWorkbook.Close savechanges:=False
    End If
    
Else
    MsgBox "Falscher User-Name"
    ThisWorkbook.Close savechanges:=False
End If
Unload Me
End Sub

     gruß herbert
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige