ich möchte durch ein Kontrollkästchen bestimmte Tabellenblätter sperren lassen.
Wie funktioniert das in VBA und wie kann ich steuern welche Tabellenblätter gesperrt werden?
Schon mal Danke im Voraus.
Gruß Iceman
Option Explicit
Public Sub CheckBox1_Click()
Dim avntNames() As Variant
Dim ialngIndex As Long '// unten Deine TabNamen anpassen...!!!
avntNames = Array("Tabelle3", "Tabelle4", "Tabelle5", "Tabelle7")
If ActiveSheet.CheckBoxes(Application.Caller).Value = xlOn Then
For ialngIndex = 0 To Ubound(avntNames)
Call ThisWorkbook.Worksheets(avntNames(ialngIndex)).Protect
Next
Else
For ialngIndex = 0 To Ubound(avntNames)
Call ThisWorkbook.Worksheets(avntNames(ialngIndex)).Unprotect
Next
End If
End Sub
VBA/HTML - CodeConverter für Office-Foren
AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel
Code erstellt und getestet in Office 14