ich habe wirklich im Archiv und in der VBA-Hilfe gesucht aber nichts gefunden.
Ich habe ein Baltt geschütz aber eine Spalte für die Eingabe von Zahlen freigegeben. Leider ist keine Eingabe eines Kommentars möglich. Wie muss ich denn unten stehenden Code entsprechend ergänzen?
Sub PasswortAufAllenTabellenblätterSetzen()
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To Worksheets.Count
With Sheets(i)
' .EnableOutlining = True
.Protect Password:="password", UserInterfaceOnly:=True
''Trotz Blattschutzes Formatierung erlauben
If ActiveSheet.Protection.AllowFormattingCells = False Then
ActiveSheet.Protect AllowFormattingCells:=True
ActiveSheet.Protect AllowInsertComments:=True 'diese Codezeile klappt leider nicht
End If
End With
Next
ActiveWindow.SmallScroll Down:=-100
End Sub
Vorab meinen Dank
Bernd