manuelles Einblenden verhindern
07.05.2019 07:39:16
Sandra
Gibt es eine Möglichkeit ein manuelles Einblenden von Registerkarten völlig zu unterbinden? Dass diese quasi wirklich nur mit einer PickBox und Passwort sichtbar werden können und nicht mit rechten Mausklick "Einblenden" etc.
Ich habe mal meinen Sub hinzugefügt. Vielleicht habt ihr eine Idee.
Private Sub CheckBox1_Click()
Worksheets("Optionen2").Unprotect ("Bitte")
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
PW = "Danke"
If CheckBox1 Then
Antwort = InputBox("Passwort für erweiterte Konfiguration eingeben!", "gesperrter Bereich!") _
If Antwort PW Then
MsgBox "Computer sagt Nein!", vbCritical, "Information"
Exit Sub
End If
End If
Sheets("Optionen2").Visible = (CheckBox1)
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
Worksheets("Optionen2").Protect ("Bitte")
End Sub
Anzeige