ich habe, bevor die Mappe geöffnet werden soll ein Abfrage nach Benutzername und Passwort. Wenn dies falsch eingegeben wird, soll die Mappe sich wieder schließen, ohne einen Einblick zu gewähren.
Leider werde ich immer wieder gefragt, ob die Mappe speichern will, obwohl ich diese mit thisworkbook.saved = true eigentlich unterbinden will.
Habe ich einen Denkfehler?
!!!Modul zur Beendigung!!!
Sub Beenden()
Application.DisplayFullScreen = False
Application.ScreenUpdating = True
Application.CommandBars("Worksheet Menu Bar").Enabled = True
Application.DisplayFormulaBar = True
Application.DisplayStatusBar = True
ActiveWindow.DisplayHeadings = True
ActiveWindow.DisplayWorkbookTabs = True
ActiveWindow.DisplayVerticalScrollBar = True
ActiveWindow.DisplayHorizontalScrollBar = True
Application.ScreenUpdating = True
Application.Quit
ThisWorkbook.Saved = True
End Sub
!!!Abfrage zu Beginn!!!
Sub pwabfrageanfang()
Dim codeName As String
Dim Passw As String
codeName = InputBox("Geben Sie Ihren Benutzername ein")
Passw = InputBox("Geben Sie Ihr Passwort ein")
If codeName = "Decker" And Passw = "Alzey" Then
MsgBox ("Herzlich Willkommen im Bestellcenter Decker")
ActiveWorkbook.Worksheets("Büroausstattung Angebot").Visible = True
ActiveWorkbook.Worksheets("Büroausstattung Angebot").Activate
Else
MsgBox ("Sie haben keine Berechtigung für dieses Programm")
Call Ende.Beenden
End If
End Sub
!!! Startprozedur beim Öffnen der Mappe!!!
Sub Workbook_Open()
Call Startbedingungen.symbolleisten
Call Startbedingungen.starttabellen
Call Passwort.pwabfrageanfang
ActiveWorkbook.Worksheets("Begrüßung").Visible = True
ActiveWorkbook.Worksheets("Tabelle1").Visible = False
Tabelle5.Activate
UserForm1.Show
End Sub