Alles Schützen bis auf eine Zelle
20.02.2021 08:03:07
Werner
wiedermal benötige ich Eure Hilfe.
Ich habe folgenden Code VB siehe unten Alle Schützen , aber jetzt möchte ich
eine Zelle nicht schützen: wie geht das?
Ich habe es hiermit ausprobiert, aber funtioniert nicht.
'soll Zellen ohne Schutz sein
'Tabelle7("Inhalt").unprotect Cells(3, 6).Locked = False
'Tabelle26("fabigeBox").unprotect Cells(3, 6).Locked = False
Wo, und welchen code muss ich einbauen
Habe schon ein paar Stunden gesucht und ausprobiert aber klappt nicht.
Danke in Voraus Grüße aus Kiel Werner
'__________________________________________________________________________
Option Explicit
Public Sub AlleSchuetzen()
Dim objWorksheet As Worksheet
Dim strPassword As String
Do
strPassword = InputBox("Passwort eingeben:", "Passwort")
If StrPtr(strPassword) = 0 Then Exit Sub
If strPassword vbNullString Then Exit Do
Loop
ThisWorkbook.Protect Password:=strPassword, Structure:=True, Windows:=True
For Each objWorksheet In ThisWorkbook.Worksheets
With objWorksheet
.Protect Password:=strPassword, UserInterfaceOnly:=True
.EnableOutlining = True
.EnableSelection = xlNoRestrictions
End With
Next objWorksheet
End Sub
Public Sub AlleFreilegen()
Dim objWorksheet As Worksheet
Dim strPassword As String
strPassword = InputBox("Passwort eingeben:", "Passwort")
If StrPtr(strPassword) = 0 Then Exit Sub
On Error GoTo Abbruch:
For Each objWorksheet In ThisWorkbook.Worksheets
With objWorksheet
.unprotect Password:=strPassword
.Protect Password:=strPassword, UserInterfaceOnly:=False
.unprotect Password:=strPassword
End With
Next objWorksheet
ThisWorkbook.unprotect Password:=strPassword
Exit Sub
Abbruch:
MsgBox "Falsches Passwort", vbExclamation, "Hinweis"
End Sub
'soll Zellen ohne Schutz sein
'Tabelle7("Inhalt").unprotect Cells(3, 6).Locked = False
'Tabelle26("fabigeBox").unprotect Cells(3, 6).Locked = False
' bis hierher
'__________________________________________________________________________