AW: Einblenden von Spalten nur über Makro
18.04.2005 13:09:43
Spalten
Hallo Andre,
ich habe folgende Codes (in DieseArbeitsmappe)im Einsatz:
Es liegt ein Blattschutz auf der Tabelle (ohne Passwort).
Du wirst zweimal nach der Berechtigung gefragt. Ist sie richtig ("test"), werden die Spalten eingeblendet. Beim Schliessen werden sie wieder ausgeblendet.
Private Sub Workbook_Open()
Passw = InputBox("Geben Sie bitte den Berechtigungscode ein !", "Kontrollabfrage")
If Passw <> "test" Then
MsgBox "Leider falsch. Noch ein Versuch"
Else
GoTo weiter
End If
Passw = InputBox("Geben Sie bitte den Berechtigungscode ein !", "Kontrollabfrage")
If Passw <> "test" Then
MsgBox "Kein Zugriff"
Exit Sub
End If
weiter:
ThisWorkbook.Sheets("Tabelle1").Unprotect 'ggf "Passwort"
Sheets("Tabelle1").Columns("G:L").Hidden = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Sheets("Tabelle1").Unprotect 'ggf "Passwort"
Sheets("Tabelle1").Columns("G:L").Hidden = True
ThisWorkbook.Sheets("Tabelle1").Protect 'ggf "Passwort"
ThisWorkbook.Save
End Sub
Gruß
Harald