Blattschutz per VBA in Bereich entfernen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column 2 Then Exit Sub If InStr(Target.Address, ";") > 0 Or _ InStr(Target.Address, ":") > 0 Then Exit Sub End If 'wenn Blattschutz mit Passwort verwendet, dann in der nächsten Zeile das * vor dem Komma _ entfernen + das richtige Passwort eintragen ActiveSheet.Unprotect ', "DeinPasswort" Range("B:B").Locked = True Range("B3:B" & Cells(Rows.Count, 1).End(xlUp).Row).Locked = False 'wenn Blattschutz mit Passwort verwendet, dann in der nächsten Zeile das * vor dem Komma _ entfernen + das richtige Passwort eintragen ActiveSheet.Protect ', "DeinPasswort" End Sub

Hi,
super!^^
Und warum erzählst du das nicht gleich?!
Jens, mir ist schon öfter aufgefallen, dass du mit Informationen eher spärlich umgehst.
Versetz dich mal in die Lage desjenigen, der dir helfen will.
Du stellst eine Frage, erzählst aber nur ganz wenig vom Drumherum.
Vielleicht könntest du daran bei deinen nächsten (Erst)Fragen etwas ändern.
Lösch den Code dort, wo er jetzt ist. (ist er denn schon da, wo ich vermutet habe?)
Füg im VBE ein allgemeines Modul ein.
Füg in das Modul diesen Code ein:


Sub sbUnPro()
If Target.Column  2 Then Exit Sub
If InStr(Target.Address, ";") > 0 Or _
InStr(Target.Address, ":") > 0 Then
Exit Sub
End If
'wenn Blattschutz mit Passwort verwendet, dann in der nächsten Zeile das * vor dem Komma  _
entfernen + das richtige Passwort eintragen
ActiveSheet.Unprotect ', "DeinPasswort"
Range("B:B").Locked = True
Range("B3:B" & Cells(Rows.Count, 1).End(xlUp).Row).Locked = False
'wenn Blattschutz mit Passwort verwendet, dann in der nächsten Zeile das * vor dem Komma  _
entfernen + das richtige Passwort eintragen
ActiveSheet.Protect ', "DeinPasswort"
End Sub

Weise das Makro mit dem Namen "sbUnPro" dem klick-Ereignis des Buttons zu.
Hilfts?
Ciao
Thorsten

Public Sub Zellschutz_raus() Dim loLetzte As Long With Worksheets("Tabelle1") 'Blatt anpassen loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row .Unprotect "DeinPasswort" 'Passwort anpassen .Range(.Cells(3, 2), .Cells(loLetzte, 2)).Locked = False .Protect "DeinPasswort" 'Passwort anpassen End With End Sub

Beliebteste Forumthreads (12 Monate)

Blattschutz per VBA in Bereich entfernen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

18 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Blattschutz per VBA in Bereich entfernen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

18 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread