ein kleines Problem mit den Kommentaren.Mit nachstehendem Code füge ich einen Blattschutz ein und hebe ihn wieder auf. Wie muss ich den Code ergänzen, wenn trotz Blattschutzes eine Kommentarbearbeitung möglich sein soll? Danke vorab.
Bernd
Sub PasswortAufAllenTabellenblättersetzen()
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To Worksheets.Count
With Sheets(i)
.Unprotect Password:="xyz"
.EnableOutlining = True
.Protect Password:="xyz", UserInterfaceOnly:=True
End With
Next
ActiveWindow.SmallScroll Down:=-100
End Sub
Sub PasswortLoeschenAufAllenTabellen()
Application.ScreenUpdating = False
Dim i As Integer
Dim j As Integer
Dim strPass As String
strPass = InputBox("Bitte geben Sie das Passwort ein!")
If strPass <> "xyz" Then
MsgBox "Passwort falsch!"
Exit Sub
Else
For i = 1 To 1 ' Zweite 1 bedeutet: nur Blatt 1
Sheets(i).Unprotect ("xyz")
Next i
For j = 2 To Worksheets.Count
Sheets(j).Unprotect ("xyz")
Next j
ActiveWindow.SmallScroll Down:=-100
End If
End Sub