irgendwie habe ich Mist gebaut.
Habe mir aus der Recherche folgenden Code entnommen.
Private Sub Worksheet_Activate()
Dim s As String
Const passw = "test"
ActiveSheet.Columns.Hidden = True
s = InputBox("Geben Sie das Paßwort ein!")
If s = passw Then
Worksheets("Tabelle2").Columns.Hidden = False
Exit Sub
Else
Worksheets("Tabelle2").Columns.Hidden = True
MsgBox "Sie haben keine Zugriffsrechte. Und Tschüss!"
End If
Worksheets("Tabelle1").Activate
End Sub
In einer leeren Mappe funktioniert er einwandfrei. Nur wenn in dem Tabellenblatt welches ich Passwort schützen will dies anwende bekomme ich einen Laufzeitfehler 1004: Mit dem Wortlaut: Die Hidden Eigenschaft des Rangeobjektes kann nicht festgelegt werden!? Böhmische Dörfer.
Dachte nun mir biste schlau blendeste nur die Spalten A-Z aus - vergiss es! Habe die Anweisung
ActiveSheet.Columns.Hidden = True; in ActiveSheet.Columns("A:Z") = True umgeändert und gestartet. Nun habe ich den Effekt, dass mir in den betreffenden Zellen der Spalten A-Z die Werte verloren gegangen sind und stattdessen Wahr oder Falsch drinne steht. Wie bekomme ich dass denn wieder richtig gebogen?
Danke schon mal für Eure Mühe.
Gruß Frank