Command Button
12.05.2014 13:25:18
E.Maltzan
ich bin neu in dieser Runde und brauche eure Hilfe,
ich möchte in einer Datei mehrere andere Tabellenblätter ein
und ausblenden (Excel 2010). Mit einen Tabellenblattt klapp das schon, aber wie füge ich die Anderen dazu?
Der Button ist mit Passwortschutz versehen!
Option Explicit
Private Sub cmdAdmin_Click()
If ActiveWorkbook.Worksheets("Bestands-Preisliste").Visible Then
mAdmin.AdminLogOut
cmdAdmin.Caption = "Administrator einlogen"
Else
mAdmin.AdminLogIn
cmdAdmin.Caption = "Administrator auslogen"
End If
End Sub
Option Explicit
Private Const PASS_WORD As String = "aaaaaaa"
Public Sub AdminLogIn()
If InputBox("Passsort") = PASS_WORD Then
ActiveWorkbook.Worksheets("Bestands-Preisliste").Visible = True
End If
End Sub
Public Sub AdminLogOut()
ActiveWorkbook.Worksheets("Bestands-Preisliste").Visible = False
End Sub
Anzeige