Einblenden Zeilen/Tabellenblatt sperren
09.10.2019 12:23:17
Thomas
ich kann über einen VBA-Button sowohl das gesamte Tabellenblatt A, als auch mehrere Zeilen des Tabellenblatt B, zeitgleich aus- oder einblenden lassen. Beim Einblenden wird ein Passwort abgefragt:
Sub Einblenden()
' Einblenden Makro
Dim sPassWord As String
sPassWord = InputBox("Falls Ihnen kein Passwort vorliegt, wenden Sie sich bitte an mich:", " _
_
Bitte geben Sie das Passwort ein.", "- Passwort hier eintragen -")
Select Case sPassWord
Case "Forum"
With Worksheets("B")
Rows("14:300").Select
Selection.EntireRow.Hidden = False
End With
With Worksheets("A")
.Visible = True
.Select
End With
Case ""
Case Else
Beep
MsgBox "Bitte Passwort erneut eingeben. Andernfalls bitte an mich wenden.", vbOKOnly, " _
_
Passwort falsch."
End Select
End Sub
Sub Verbergen()
' Verbergen Makro
Rows("14:300").Select
Sheets("B").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("A").Select
Selection.EntireRow.Hidden = True
End Sub
Gibt es da eine Möglichkeit, das manuelle Einblenden der Zeilen und des gesamten Tabellenblatts A zu verhindern?
Die gesamte Arbeitsmappe oder Arbeitsblätter zu sperren ist leider keine Option!
Danke und Gruß
Thomas
Anzeige