Excel per VBA starten und schließen die Zweite

Private Sub cmdExcel_Click() Dim strInput As String strInput = InputBox("Passwort eingeben: ") If strInput = "charterway" Then Sheets("DCVDQ42005ASVT12").Activate Application.Visible = True ' Excel wieder sichtbar Unload Me ' Userform beenden Else: MsgBox "Keine Zugriffsberechtigung!" End Sub

Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Monty,
du weiss hoffentlich, dass der Kennwortschutz in Exceldateien nicht so besonders effectiv ist. Er dient im wesenlichen dazu versehentliche Dateneänderungen zu verhindenr und Daten ggf. vor dem "einfachen" Anwender zu verbergen.
Damit du die Einsicht in die Daten per Passwort steuern kannst muss du etwas anders vorgehen:
1.
Wenn die Datei geöffnet wird, dann sollte nur eine Tabelle sichtbar sein, die Informationen und Buttons für die weitere Bearbeitung der Datei enthält. Alle anderen Tabellen die nur nach Passworteingabe bearbeitet/eingesehen werden dürfen, müssen per Makro auf den Status "xlSheetVeryHidden" gesetzt sein.
2.
Nach Passworteingabe werden die entsprechenden Blätter eingeblendet. Dass kannst du entweder in eine Workbook_Open-Prozedur einbauen oder über deinen Passwort-Eingabebutton steuern
3. Vor dem Schliessen der Datei werden alle Tabellenblätter bis auf das Einstiegs-/Infoblatt ausgeblendet.
So wird, wenn die Makos beim Öffnen der Datei nicht aktiviert werden, nur das Info-Blatt angezeigt. Die anderen Blätter sind ausgeblendet. Das Spielchen mit Excel sichtbar/unsichtbar schalten kannst du dir dann sparen.
Dein Problem mit der erneuten Anzeige des Userforms, wenn das Passwort falsch eingegeben wurde kann ich am grünen Tisch nicht klären. Dazu müsste ich die Datei/das Userform genauer kennen um die Abfolge der Prozeduren im Userform zu prüfen.
Nachfolgend ein kleines Beispiel für die Prozeduren, die im VBA-Ditor unter "DieseArbeitsmappe" eingefügt werden müssen. Eines der Tabellenblätter muss hier den Namen "Info" haben, sonst gibt es einen Fehler.
Gruss
Franz

Private Sub Workbook_Open()
Dim Passwort As String, wks As Worksheet
Passwort = "Test"
If InputBox("Bitte Passwort eingeben", "Passwortabfrage", "******") <> Passwort Then
MsgBox "Dateibearbeitung ist nur nach korrekter Passwort-Eingabe möglich!"
ThisWorkbook.Close savechanges:=False
Else
For Each wks In ThisWorkbook.Worksheets
Select Case wks.Name
Case "Tabelle1", "Tabelle2"
'Diese Tabellen einblenden
wks.Visible = xlSheetVisible
Case Else
'Do nothing
End Select
Next
End If
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
Select Case wks.Name
Case "Info"
'Diese Tabellen nicht ausblenden
'Do nothing
Case Else
'Alle anderen Blätter ausblenden
wks.Visible = xlSheetVeryHidden
End Select
Next
ThisWorkbook.Save
End Sub

Beliebteste Forumthreads (12 Monate)

Excel per VBA starten und schließen die Zweite

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread