Tabellenblätter per passwort einblenden
12.11.2013 20:00:49
mikey20
hallo
habe hier ein makro das funktioniert, jedoch möchte ich gern das es ausgebaut
wird. ich möchte gern die scrollfunktion und zoomfunktion für die jeweiligen eingeblendeten Registerkarten einschränken. ich habe verschiedene dinge wie case oder Sheets getestet, jedoch funktioniert das nicht. Vielliecht kann mir hier jemand helfen.
Auch ist es so das wenn ich das passwort falsch oder gar nicht eingebe das
er auf eine andere Registerkarte springt und dann meldet das das passwort falsch ist.
Vielleicht kann man das verhindern das er zu einer anderen Registerkarte springt, wenn das passwort falsch eingegeben wird.
Sub Sicher()
Dim RichtigesPasswort
Dim EingegebenesPasswort
RichtigesPasswort = "test"
EingegebenesPasswort = InputBox("Bitte geben Sie das Passwort ein:", "Zugriff nur nach _
Passworteingabe")
If EingegebenesPasswort = RichtigesPasswort Then
Sheets("Kunden").Visible = True
.ScrollArea = "$A$1:$AQ$450"
ActiveWindow.zoom = 60
Cells(6, 2).Activate
Sheets("Rechnungen").Visible = True
Sheets("Mahnungen").Visible = True
Else
MsgBox "Das eingegebene Passwort ist falsch. Sie erhalten normalen User-Zugriff.", _
vbCritical, "Falsche Eingabe"
Sheets("Kunden").Visible = False
Sheets("Rechnungen").Visible = False
Sheets("Mahnungen").Visible = False
End If
Application.ScreenUpdating = False
SheetNamegesichert = ActiveSheet.Name
Sheets("Kunden").Activate
ActiveWindow.zoom = 63
Range("C15").Select
Application.ExecuteExcel4Macro "Show.Toolbar(""Ribbon"", False)"
Application.DisplayFormulaBar = False
ActiveWindow.DisplayHeadings = False
End Sub
danke